如何使用VBA实现将多个Excel文件中的数据复制到某个Excel文件中

最近做了一个小的Demo，实现了将各个销售的Excel台帐数据自动复制到主管的台帐Excel中，主要代码如下：

-------------------------------------------------------------

Sub CopyFromSubFiles()
    Dim MyFile As String
    Dim Arr(1000) As String '最多处理1000个子台帐
    Dim count As Integer
    Dim CurrentPath As String
    Dim MyWorkbook As Workbook      '父台帐
    Dim Targetkbook As Workbook     '子台帐
    Dim StartLine1 As Integer
    Dim StartLine2 As Integer
    
    CurrentPath = ThisWorkbook.Path & "\temp\"
    
    MyFile = Dir(CurrentPath & "*.*")
    count = count + 1
    Arr(count) = MyFile
      
    Do While MyFile <> ""
        MyFile = Dir
        If MyFile = "" Then
            Exit Do
        End If
        count = count + 1
        Arr(count) = MyFile         '