VBA从文件夹中的所有文件复制工作表并将其复制到主文件夹

Question

我有一个文件夹完整的多个Excel文件，并且所有文件都有一个特定工作表，我需要将其复制到主工作表中。

我需要宏才能逐个打开该文件夹中的所有文件，并使用源文件名作为主工作簿中的工作表名称将特定工作表复制到主文件。 Excel的2013年

我试着在网上搜索，并有下面的代码：

Option Explicit 

Sub test() 

Dim wkbDest As Workbook 
Dim wksDest As Worksheet 
Dim wkbSource As Workbook 
Dim wksSource As Worksheet 
Dim MyPath As String 
Dim MyFile As String 

Application.ScreenUpdating = False 

Set wkbDest = ThisWorkbook 
Set wksDest = wkbDest.Worksheets("Sheet1") 'change the destination sheet name accordingly 

MyPath = "H:\Cutover\" 

If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\" 

MyFile = Dir(MyPath & "*.xls") 

Do While Len(MyFile) > 0 
    Set wkbSource = Workbooks.Open(MyPath & MyFile) 
    Set wksSource = wkbSource.Worksheets("Sheet1") 'change the source sheet name accordingly 
    'Your copy/paste code here (((((need help here please)))))))) 
    wkbSource.Close savechanges:=False 
    MyFile = Dir 
Loop 

Application.ScreenUpdating = True 

MsgBox "Completed...", vbInformation 

End Sub 

编辑：

所以我设法去以下但其仍不能正常工作。它不会将工作表重命名为源文件名。有人可以帮忙吗？

显式的选项

次试验（+）

Dim wkbDest As Workbook 
Dim wksDest As Worksheet 
Dim wkbSource As Workbook 
Dim wksSource As Worksheet 
Dim MyPath As String 
Dim MyFile As String 

Application.ScreenUpdating = False 

Set wkbDest = ThisWorkbook 
Set wksDest = wkbDest.Worksheets("Sheet1") 'change the destination sheet name accordingly 

MyPath = "H:\Cutover\" 

If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\" 

MyFile = Dir(MyPath & "*.xlsx") 

Do While Len(MyFile) > 0 
    Set wkbSource = Workbooks.Open(MyPath & MyFile) 
    Set wksSource = wkbSource.Worksheets("Sheet1") 'change the source sheet name accordingly 
    Sheets("SheetToCopy").Copy Before:=Workbooks("WorkbookToPasteIn").Sheets(SheetIndex) 
    wkbSource.Close savechanges:=False 
    MyFile = Dir 
Loop 

Application.ScreenUpdating = True 

MsgBox "Completed...", vbInformation 

末次

Answer 1

，所以你需要的是如何从一个工作表中的一个文件复制/粘贴范围为帮助部分目标文件中的常用工作表？

设置一个变量，以跟踪目标表单

查找如何确定最后一行是每个源表的内容，选择该源范围内的最后一个空行，将其复制到剪贴板，然后其粘贴在目标表中的最后一个空行，并重置目标变量到新的第一个空行的目的地片

---

这样做将打开输出CSV文件的另一种方式，并解析每一行并生成一个字符串并将其写入文件，而不会关闭输出CSV文件，直到循环超过

---

如果文件很大寿，这将是更好的使用VB.NET，而不是因为它的速度要快得多，在处理大型文件

---

你也可以阅读每个文件/行写入内存数据表，然后将数据表输出到CSV文件或目标Excel文件

您更喜欢哪种方法？

Answer 2

你可以简单地在新的工作簿的工作表复制，下面这段代码：

Sheets("SheetToCopy").Copy Before:=Workbooks("WorkbookToPasteIn").Sheets(SheetIndex)

，然后重命名表，以适应你的手段。