将单元格值从一个工作簿复制到另一个工作簿

球队，

是新的macrosExcel，并试图将工作簿名称九月E15的单元格的值复制到另一个工作簿名称格式的D15，无法使用下面的代码。 请帮帮我

我使用下面的代码来做到这一点。

Sub COPYCELL() Dim wbk As Workbook strFirstFile = "c:\documents and Settings\msivas\Desktop\James\September.xls" strSecondFile = "c:\documents and Settings\msivas\Desktop\James\Format.xls" Set wbk = Workbooks.Open(strFirstFile) With wbk.Sheets("Summary") Range("E15").Copy End With Set wbk = Workbooks.Open(strSecondFile) With wbk.Sheets("sheet1") Range("D12").PasteSpecial Paste:=xlPasteAll End With End Sub 

我收到一个错误，无法知道。

Answer 1

尝试此更新。 通过不回收wbkvariables，您将避免问题。

 Sub COPYCELL() Dim wbkOrg As Workbook, wbkDest as workbook dim strFirstFile as string, strSecondFile as string strFirstFile = "c:\documents and Settings\msivas\Desktop\James\September.xls" strSecondFile = "c:\documents and Settings\msivas\Desktop\James\Format.xls" Set wbkOrg = Workbooks.Open(strFirstFile) Set wbkDest = Workbooks.Open(strSecondFile) wbkOrg.Sheets("Summary").Range("E15").Copy wbkDest.Sheets("sheet1").Range("D12") End Sub 

Answer 2

根据我的评论，这对我有用：

 Option Explicit Sub COPYCELL() Dim wbk1 As Workbook, wbk2 As Workbook Dim strFirstfile As String, strSecondFile As String strFirstfile = "c:\documents and Settings\msivas\Desktop\James\September.xls" strSecondFile = "c:\documents and Settings\msivas\Desktop\James\Format.xls" Set wbk1 = Workbooks.Open(strFirstfile) Set wbk2 = Workbooks.Open(strSecondFile) With wbk1.Sheets("Summary") .Range("E15").Copy End With With wbk2.Sheets("sheet1") .Range("D12").PasteSpecial Paste:=xlPasteAll End With End Sub