如何在一个excel里用vba调用另一个excel所有的数据

你可以使用如下代码来调用另一个Excel文件的数据：

Sub GetExternalData()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim fileName As String
    
    fileName = "C:\Folder\ExternalFile.xlsx" '修改为另一个Excel文件的路径
    
    Set wb = Workbooks.Open(fileName, True, True) '打开目标Excel文件
    Set ws = wb.Worksheets(1) '获取目标文件的第一个工作表
    
    '读取目标Excel文件中的数据，可根据需要修改范围
    Range("A1").Copy Destination:=ws.Range("A1")
    Range("B1:C10").Copy Destination:=ws.Range("B1")
    
    wb.Close False '关闭目标Excel文件，不保存修改
End Sub

相关问题

如何在一个excel里用vba调用另一个excel一整行的数据

你可以使用以下代码来调用另一个Excel文件中一整行的数据：

Sub GetRowData()
   Dim wb As Workbook
   Dim ws As Worksheet
   Dim rowNum As Long
   Dim dataRange As Range
   
   '打开另一个Excel文件
   Set wb = Workbooks.Open("C:\目标文件.xls")
   '选择需要读取数据的Sheet
   Set ws = wb.Sheets("Sheet1")
   
   '设置读取的行号
   rowNum = 2 '例如：读取第2行
   
   '选择整行数据的范围
   Set dataRange = ws.Rows(rowNum)
   
   '将整行数据读入变量
   Dim rowData As Variant
   rowData = dataRange.Value
   
   '关闭另一个Excel文件
   wb.Close
   
   '将数据显示在当前工作簿中
   Range("A1").Resize(1, UBound(rowData, 2)).Value = rowData
End Sub

在上面的代码中，你需要将"目标文件.xls"替换为你需要读取数据的Excel文件的路径和文件名，将"Sheet1"替换为数据所在的Sheet名称，将"rowNum"替换为需要读取的行号。

运行这个宏之后，你将在当前工作簿的"A1"单元格中看到所读取行的数据。

vba中如何调用另一个以xls结尾后缀名excel中的宏并且传入参数

在VBA中调用另一个以xls结尾后缀名excel中的宏，可以使用以下代码：

Sub CallExcelMacro()

    Dim xlApp As Excel.Application
    Set xlApp = New Excel.Application
    
    '打开指定的Excel文件
    xlApp.Workbooks.Open "C:\example.xls"
    
    '调用指定的宏
    xlApp.Run "example_macro", "parameter1", "parameter2"
    
    '关闭Excel文件
    xlApp.Workbooks.Close
    
    '释放Excel对象
    Set xlApp = Nothing

End Sub

其中，example.xls是要打开的Excel文件名，example_macro是要调用的宏名，"parameter1"和"parameter2"是传递给宏的参数。

需要注意的是，调用另一个Excel文件中的宏时，需要确保该文件的安全性设置为“低”，否则可能会无法调用成功。