将启用宏的工作表从一个工作簿复制到另一个“运行时错误'1004”

Question

我正在尝试创建一个宏，使我可以将这个非常常用的工作表直接放入我们需要的文件中。这是一个常用的工作表，我希望能够快速，轻松地放入要复制的现有文档中并经常使用。

我收到：运行时错误'1004'：Excel无法访问'垃圾'。 该文档可以是只读的或加密的。

此代码是从堆栈溢出的另一种解决方案修改而来的，以便在我希望的任何文档上全局使用。 （这是最终目标）下面的代码：

Sub foo()
Dim x As Workbook
Dim y As Workbook
Dim z As String
z = ActiveWorkbook.Path

Dim WS As Worksheet
Sheets.Add.Name = "Finance"

'## Open both workbooks first:
Set x = Workbooks.Open("Desired worksheet file path")
Set y = Workbooks.Open(z)

'Now, copy what you want from x:
x.Sheets("Finance1").Range("A1:G12").Copy

'Now, paste to y worksheet:
y.Sheets("Finance").Range("A1:G12").PasteSpecial

'Close x:
x.Close

End Sub

在错误点，两个文档都已打开。

Answer 1

该代码将是这样的。

Sub foo()
    Dim x As Workbook
    Dim y As Workbook
    Dim z As String, FileName1 As String, FileName2 As String

    z = ThisWorkbook.Path & "\"

    Dim WS As Worksheet
    FileName1 = "test1.xlsx"
    FileName1 = "test2.xlsx"
    '## Open both workbooks first:
    Set x = Workbooks.Open(z & FileName1)
    Set y = Workbooks.Open(z & FileName2)

    'Now, copy what you want from x:
    x.Sheets("Finance1").Range("A1:G12").Copy y.Sheets("Finance").Range("A1")

    x.Close

End Sub

Answer 2

ActiveWorkbook.Path给出了activeworkbook的路径，您应该将文件添加到其中。 像这样：

Set y = Workbooks.Open(z & "\\fileSample.xlsx")

还有一个错误选择-如果未保存ActiveWorkbook，则它将不返回任何内容。 因此，以如下方式检查它： If len(activeworkbook.path)>0 then