从一个Excel工作簿复制和粘贴值到另一个

我试图logging一个macros将一个工作簿的值粘贴到另一个工作簿，但是当我这样做时，我得到一个“运行时错误9下标超出范围”

我相信这只是一个简单的解决方法，我是新的macros，所以任何帮助，将不胜感激。 这是我的代码：

`Sub Refresh() ' ' Refresh Macro ' Update XY Act. Values 2017 ' ' Keyboard Shortcut: Ctrl+r ' Windows("XY Update File v2.xlsx").Activate Selection.Copy Windows("Engineering XY Chart v2.xlsx").Activate ActiveSheet.Paste End Sub 

Answer 1

远离“激活”和“select”一般会更好。

 'variables Dim workbook1 As Workbookm, workbook2 As Workbook, filePath1 As String filePath1 = ThisWorkbook.Path & "\Engineering XY Chart v2.xlsx" 'assuming filepath is the same as macro workbook filePath2 = ThisWorkbook.Path & "\XY Update File v2.xlsx" 'assuming filepath is the same as macro workbook 'make references to workbooks Set workbook1 = Workbook.Open(Filename:=filePath1) Set workbook2 = Workbook.Open(Filename:=filePath2) 'Copies cell A1 from sheet1 of workbook 2 to cell A1 sheet 1 of workbook 1 workbook1.Sheets(1).Range("A1").Value = workbook2.Sheets(1).Range("A1").Value