Vba VB宏Excel脚本应复制整个文件夹数据

背景：大约300份Excel调查（包含多张表格）应集中在一份Excel中。宏已准备就绪。 目标：尽管宏已准备就绪，能够从调查excel复制所需数据，但我无法一次复制所有300个调查（我必须逐个完成所有调查）

问题：是否可以要求宏从特定网络路径进行目标复制，从而复制所有300个excel工作簿

宏脚本：

Function bIsBookOpen(ByRef szBookName As String) As Boolean
    On Error Resume Next
    bIsBookOpen = Not (Application.Workbooks(szBookName) Is Nothing)
End Function

Sub Start()
currwb = ActiveWorkbook.Name

If bIsBookOpen("PERSONAL.XLSB") Then
    Windows("PERSONAL.XLSB").Visible = True
    ActiveWindow.Close
End If

If Workbooks.Count > 1 Then
MsgBox " To many files open...  " & Workbooks(1).Name
Else
Application.Dialogs(xlDialogOpen).Show
Response = MsgBox("Weiter mit 'IT-Personal'?", vbYesNo)
If Response = vbYes Then
Windows(currwb).Activate
Call CopyForm
End If

End If

End Sub

---

要循环浏览文件夹中的文件

Sub LoopThroughFiles()
    Dim path As String
    Dim filename As String
    Dim wb As Workbook
    path = ""  'your folder path here
    filename = Dir(path & "*.xls")

    While (filename <> "")
        Set wb = Workbooks.Open(path & filename)
        'Your code goes here
        wb.Close
        filename = Dir
    Wend
End Sub

Sub-LoopThroughFiles（）
将路径设置为字符串
将文件名设置为字符串
将wb设置为工作簿
path=“”此处显示您的文件夹路径
filename=Dir（路径&“*.xls”）
While（文件名“”）
设置wb=Workbooks.Open（路径和文件名）
“你的代码在这里
wb.关闭
filename=Dir
温德
端接头