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

我无法将数据从一个工作簿复制到另一个工作簿。 但在同一个工作簿中工作。 运行macros程序后，目标工作表为空。 我有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 

Answer 1

我假设你正在编写一个单独的文件Code1和Code2 excelmacros，比如说copy_paste.xlsm ：

当您向Workbooks.open提供文件的完整path时， 代码1正在工作：

 Sub mycode() Workbooks.Open Filename:="C:\Users\xyz\Documents\Excel-Problem\source_file.xlsx" Worksheets("Sheet1").Cells.Select Selection.Copy Workbooks.Open Filename:="C:\Users\xyz\Documents\Excel-Problem\destination_file.xlsm" Worksheets("Sheet1").Cells.Select Selection.PasteSpecial xlPasteValues 'xlPasteAll to paste everything ActiveWorkbook.Save ActiveWorkbook.Close SaveChanges:=True 'to close the file Workbooks("source_file").Close SaveChanges:=False 'to close the file End Sub 

要粘贴所有内容（公式+值+格式），请使用粘贴types作为xlPasteAll 。

代码2也在工作，所有你需要的是提供完整的path，你缺less_文件名：

 Sub foo2() Dim x As Workbook Dim y As Workbook Set x = Workbooks.Open("C:\Users\xyz\Documents\Excel-Problem\source_file.xlsx") Set y = Workbooks.Open("C:\Users\xyz\Documents\Excel-Problem\destination_file.xlsm") 'it copies only Range("A1") ie single cell y.Sheets("Sheet1").Range("A1").Value = x.Sheets("Sheet1").Range("A1") x.Close SaveChanges:=False y.Close SaveChanges:=True End Sub 

Answer 2

编辑以添加（最小）文件检查

您必须指定完整的文件path，名称和扩展名

你可以只打开目标文件，就像这样

 Option Explicit Sub foo2() Dim y As Workbook Dim sourcePath As String, sourceFile As String, destFullPath As String '<--| not necessary, but useful not to clutter statements sourcePath = "C:\Users\xyz\Documents\Excel-Problem\" '<--| specify your source file path down to the last backslash and with no source file name sourceFile = "source_file.xlsx" '<--| specify your source file name only, with its extension destFullPath = "C:\Users\xyz\Documents\Excel-Problem\destination_file.xlsm" '<--| specify your destination file FULL path If Dir(destFullPath) = "" Then '<--| check is such a file actually exists MsgBox "File " & vbCrLf & vbCrLf & destFullPath & vbCrLf & vbCrLf & "is not there!" & vbCrLf & vbCrLf & vbCrLf & "The macro stops!", vbCritical Else Set y = Workbooks.Open(destFullPath) With y.Sheets("Sheet1").Range("A1") .Formula = "='" & sourcePath & "[" & sourceFile & "]Sheet1'!$A$1" .Value = .Value End With y.Close SaveChanges:=True End If End Sub 

你甚至可以使用Excel4macro打开他们