MS EXCEL-VBA - brauche ich zum importieren eines Arbeitsblatts aus einer excel Datei in eine andere

Muss ich den import eines Arbeitsblatts aus einer excel-Arbeitsmappe (worksheet-name ist nicht immer das gleiche) und importieren Sie es in die aktuelle aktive Arbeitsmappe.

Hier ist was ich habe, so weit:

Sub openFile_Click()
    FileToOpen = Application.GetOpenFilename _
    (Title:="Please choose a Report to Parse", _
    FileFilter:="Report Files *.rpt (*.rpt),")

    If FileToOpen = False Then
        MsgBox "No File Specified.", vbExclamation, "ERROR"
        Exit Sub
    Else
        Workbooks.Open Filename:=FileToOpen

        Dim wb1 As Workbook
        Dim wb2 As Workbook
        Set wb1 = ActiveWorkbook
        wb2 = Workbooks(FileToOpen)     'This is where I am stuck..I can't give it a static name

        For Each Sheet In wb1.Sheets
            If Sheets.Visible = True Then
                Sheets.Copy After:=wb2.Sheets(wb2.Sheets.Count)
            End If

        Next Sheet

    End If

InformationsquelleAutor Larry | 2012-03-20

  1. 2

    Dieser code funktioniert für das, was Sie wollen Sie wollen. Ich habe die folgenden Korrekturen.

    1. Verschieben Sie alle Deklarationen von Variablen zu Beginn der Prozedur, so Sie deklariert sind, bevor Sie Sie verwenden. Es ist einfach eine gute Praxis.

    2. Weisen Sie Ihre Aktiven Arbeitsmappe auf der Variablen, bevor Sie öffnen Sie die zweite Arbeitsmappe-es ist also nur eine Arbeitsmappe öffnen.

    3. Ihr für jede Anweisung hatte, ein paar Korrekturen, wie gut.

      Sub openFile_Click()
Dim wb1 As Workbook
Dim wb2 As Workbook

Set wb1 = ActiveWorkbook

FileToOpen = Application.GetOpenFilename _
(Title:="Please choose a Report to Parse", _
FileFilter:="Report Files *.rpt (*.rpt),")

If FileToOpen = False Then
    MsgBox "No File Specified.", vbExclamation, "ERROR"
    Exit Sub
Else
    Set wb2 = Workbooks.Open(Filename:=FileToOpen)

    For Each Sheet In wb2.Sheets
        If Sheet.Visible = True Then
            Sheet.Copy After:=wb1.Sheets(wb1.Sheets.Count)
        End If
    Next Sheet

End If

End Sub

    InformationsquelleAutor Matt Demaine

  2. 0

    Legen Sie die Arbeitsmappe öffnen, (oder legen Sie die Arbeitsmappe später ohne filepath)

    Hier gehen Sie:

    Sub openFile_Click()
FileToOpen = Application.GetOpenFilename _
(Title:="Please choose a Report to Parse", _
FileFilter:="Report Files *.rpt (*.rpt),")

If FileToOpen = False Then
    MsgBox "No File Specified.", vbExclamation, "ERROR"
    Exit Sub
Else
    Dim wb1 As Workbook
    Dim wb2 As Workbook
    Set wb1 = ActiveWorkbook
    Set wb2 = Workbooks.Open(FileToOpen)




    For Each Sheet In wb1.Sheets
        If Sheet.Visible = True Then
            Sheets.Copy After:=wb2.Sheets(wb2.Sheets.Count)
        End If

    Next Sheet

End If
End Sub

    InformationsquelleAutor Abe Gold

Schreibe einen Kommentar