Excel工作表：将数据从一个工作簿复制到另一个工作簿

Posted 2021-04-14

我无法将数据从一个工作簿复制到另一个工作簿。但是在同一个工作簿中它的工作。运行宏程序后，目标工作表为空。我有2个代码。两者都不起作用。我的源文件是.xlsx格式，目标文件是.xlsm格式。有什么错误吗？

代码1：

Sub mycode()

Workbooks.Open Filename:="source_file"
Worksheets("Sheet1").Cells.Select
Selection.Copy


Workbooks.Open Filename:="destination_file"
Worksheets("Sheet1").Cells.Select
Selection.PasteSpecial
ActiveWorkbook.Save


End Sub

代码2

Sub foo2()
Dim x As Workbook
Dim y As Workbook

Set x = Workbooks.Open("source file")
Set y = Workbooks.Open("destination file")

y.Sheets("Sheet1").Range("A1").Value = x.Sheets("Sheet1").Range("A1")

x.Close

End Sub