創建一個新的工作簿並粘貼數據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命令，我經常使用它。