20.07.2012

Tabellenblatt aus allen Dateien kopieren

Frage: Aus allen Dateien eines Ordners soll das erste Tabellenblatt jeweils als neues Blatt in eine Zusammenfassung kopiert werden, wie geht das?

Option Explicit
Public Sub Main()
    Dim strFileName As String
    Dim strPath As String
    On Error GoTo Fin
    strPath = "C:\Temp\Test\" ' anpassen!!!
    Application.ScreenUpdating = False
    strFileName = Dir$(strPath & "*.xls*")
    If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
    Do While strFileName <> ""
        If Not strFileName = ThisWorkbook.Name Then
            Workbooks.Open strPath & strFileName, ReadOnly:=True
            With ActiveWorkbook
                .Worksheets(1).Copy _
                    After:=ThisWorkbook.Worksheets _
                    (ThisWorkbook.Worksheets.Count)
                .Close False
            End With
        End If
        strFileName = Dir$()
    Loop
Fin:
    Application.ScreenUpdating = True
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & " " & Err.Description
End Sub

Sollen auch Dateien aus Unterordner berücksichtigt werden, folgenden Code nehmen:
Mit Unterordner

Formeln auf einer UserForm in einer TextBox darstellen...

Formeln auf einer UserForm in einer TextBox anzeigen. Z. B. "Formula", "FormulaLocal"... und wie muss die Formel in VBA ...