vbs宏：excel读取多个文件并合并为一个文件

Sub MergeFiles()
    Dim p$, f$, m&, sh As Worksheet
    Set sh = ActiveSheet
    Application.ScreenUpdating = False
    sh.UsedRange.ClearContents
    p = ThisWorkbook.Path & "\"
    f = Dir(p & "*.csv")
    While f > ""
       With GetObject(p & f)
            m = m + 1
            If m = 1 Then
                .ActiveSheet.UsedRange.Copy sh.Range("a1")
            Else
                .ActiveSheet.UsedRange.Copy sh.Range("a" & sh.Rows.Count).End(3).Offset(1)
            End If
            .Close False
       End With
       f = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub