VBA之不打开读写其它路径下的工作簿

Sub test()

    Dim wb_data, wb_copy As Workbook
    Dim fn_data, fn_copy As String
    
    fn_data = "C:\Users\xlbtlmy\Desktop\VBA\data.xlsx"
    fn_copy = "C:\Users\xlbtlmy\Desktop\VBA\copy.xlsx"
    
    Set wb_data = GetObject(fn_data)
    Set wb_copy = GetObject(fn_copy)
    
    'ThisWorkbook.Sheets(1).Cells(1, 1) = "hello world!"
    'wb_copy.Sheets(1).Range("a" & 1) = wb_data.Sheets(1).Range("a" & 1)
    
    For i = 1 To 10
        For j = 1 To 10
            wb_copy.Sheets(1).Cells(i, j) = wb_data.Sheets(1).Cells(i, j)
        Next
    Next
    
    Application.DisplayAlerts = False
    Application.Windows(wb_copy.Name).Visible = True
    wb_copy.Close savechanges:=True

End Sub