復制一個工作簿粘貼到另一個

Question

我已經看到了這些問題的答案，這些答案是我所尋找內容的變體，但是當我嘗試根據自己的情況修改代碼時，總是收到錯誤消息。

我有兩個工作簿，一個主“模板”和一個YTDJune2015的月度報告。 每個都有15個工作表，兩者都相同，我想將月度報告中的數據復制到模板中，該模板具有用於計算15個唯一工作表中每個工作表的附加數據的公式。 我不斷收到“類型不匹配”的錯誤消息，因此無法測試單個工作表的復制和粘貼是否有效。 到目前為止，我擁有的代碼是：

'Sub ExtractData()


Dim SheetNames As Variant
Dim i As Integer
Application.ScreenUpdating = False
Range("C8:AB117").Select
FileNames = Application.GetOpenFilename(FileFilter:="Excel Filter (*.xlsx),*.xslx", Title:="Open File(s)", MultiSelect:=True)

For i = 1 To UBound(FileNames)
Workbooks.Open FileNames
Sheets("Total").Range("C8:AB117").Select
Selection.Copy
Windows("Template.xlsm").Activate
Selection.PasteSpecial Paste:=xlPasteAll, Transpose:=False

'Workbooks.Open FileNames(i)
'Sheets("Domestic").Range("C8:AB117").Select
'Selection.Copy
'Windows("Template.xlsm").Activate
'Selection.PasteSpecial Paste:=xlPasteAll, Transpose:=False'

Answer 1

當需要字符串時，您正在發送數組：

更改

Workbooks.Open FileNames

至

Workbooks.Open FileNames(i)