excel 宏 如何在新生成的文件引用源文件的数值

excel 宏 如何在新生成的文件引用源文件的数值

Sub test()
Dim n, t
Dim oldBook, newBook As Workbook

Set oldBook = ActiveWorkbook

n = Sheets("sheet1").Cells(3, 2)
t = Sheets("sheet1").Cells(3, 4)

Sheets(Array("sheet2", "sheet3")).Copy

Set newBook = ActiveWorkbook

ChDir "C:\Users\Administrator\Desktop\test\"
ActiveWorkbook.SaveAs Filename:= _

"C:\Users\Administrator\Desktop\test\" & t & n & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False

End Sub
现在，你可以使用oldBook这个对象来引用源工作簿、newBook来引用新工作簿：
newBook.sheets("sheet2").range("A1")=oldBook.sheets("sheet1").range("A1")

你的引用是指不要链接的吗？只复制数字那种？如果是的话，可以使用workbooks.open 语句，然后range.copy ，可以试试

Sub test()
Dim n, t
n = Sheets("sheet1").Cells(3, 2)
t = Sheets("sheet1").Cells(3, 4)
  Sheets(Array("sheet2", "sheet3", )).Copy
   ChDir "C:UsersAdministratorDesktop est"
activesheet.[a1]=sheets(1).[a1]
    ActiveWorkbook.SaveAs Filename:= _
        "C:UsersAdministratorDesktop est" & t &  n & ".xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
End Sub