创建一个新的工作簿并粘贴数据3个不同的工作簿一个接一个

Question

我有一个问题（顺便说一下，我有多个问题，稍后会发布）关于创建一个新的工作簿和一个接一个地粘贴数据3个不同的工作簿。

这是日常工作的一部分，有关人员将在3个不同的文件夹中发布3组不同的数据。文件名将根据日期提供。例如：我的书01 22，NT book 01 21等

而不是手动取出每个文件并将数据复制到一张表中，我想用一个宏来创建一个新的工作簿，并根据日期和时间保存它将存储在不同文件夹中的3个不同工作簿中的数据一个接一个地复制到一张表中。

下面是我使用的代码：

Sub Main() 
Dim fd As FileDialog 
Dim SelectedItem As Variant 

Set NewBook = Workbooks.Add 

Set fd = Application.FileDialog(msoFileDialogFilePicker) 
With fd 

.AllowMultiSelect = True 


If .Show = -1 Then 

For Each SelectedItem In .SelectedItems 

Workbooks.Open (SelectedItem) 
    'Workbooks.Application.Worksheets("Sheet1").Copy 
    Workbooks("NewBook").Activate 
    LastRow = ActiveSheet.UsedRange.Rows.Count 
    MsgBox (LastRow) 
    NewBook.Worksheets("Sheet1").Cells(LastRow + 1, 1).PasteSpecial (xlPasteValues) 
    LastRow = ActiveSheet.UsedRange.Rows.Count 
    MsgBox (LastRow) 
Next SelectedItem 
End If 
End With 

Set fd = Nothing 

End Sub 

Answer 1

你可以使用宏录制（http://m.dummies.com/how-to/content/how-to-record-a-macro-to-automate-tasks-in-excel-2.html）。它只是将您在Excel中手动执行的步骤重现为VBA代码。如果您对VBA不太了解，可以将其作为第一步。看看代码并尝试改变它。如果我不知道标准Excel功能的VBA命令，我经常使用它。