使用文件path名称从一个工作簿复制到另一个工作簿

我试图运行一个现有的工作簿，1）打开一个不同的工作簿，我会打电话给其他 2）从其他工作簿中复制值3）将其他值粘贴到现有的工作簿和4）closures其他工作簿。 以下是我到目前为止的代码。 有没有更好的定义或设置y的方法？ 我的代码工作，除了我不能够closures其他 ，我想如果我有更好的定义，我可以使用像y.close。 谢谢！

Dim x As Worksheet Dim y As Worksheet Set x = ActiveWorkbook.Sheets("File44") Workbooks.Open (ThisWorkbook.Path & "\File44.xlsm") Workbooks("File44.xlsm").Activate Set y = ActiveWorkbook.Sheets("File44 - Detail") LastRow = y.Range("A" & Rows.Count).End(xlUp).Row y.Range("A15:CQ" & LastRow).Copy x.Range("A2").PasteSpecial xlPasteValues ActiveWorkbook.Close savechanges:=False 

Answer 1

未经testing

 Sub Chris2015() Dim other As Workbook Dim fromWS As Worksheet Dim toWS As Worksheet Dim lastRow As Long Set toWS = ThisWorkbook.Sheets("File44") 'pasting to this worksheet Set other = Workbooks.Open(ThisWorkbook.path & "\File44.xlsm") Set fromWS = other.Sheets("File44 - Detail") lastRow = fromWS.Range("A" & fromWS.Rows.Count).End(xlUp).Row toWS.Range("A2:CQ" & lastRow - 13).Value2 = fromWS.Range("A15:CQ" & lastRow).Value2 'hope I did math right XD other.Close savechanges:=False End Sub