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)

复制粘贴一个工作簿到另一个

1 个答案: