打开 Excel 并启动 VBA 编辑器(按 ALT + F11)。
在 VBA 编辑器中,新建一个模块。
复制下面的代码并粘贴到模块
Sub ImportData()
Dim wb As Workbook
Set wb = Workbooks.Open("C:\path\to\your\file.xlsx")
' Import the data into the active sheet
wb.Sheets(1).Range("A1").CurrentRegion.Copy Destination:=ActiveSheet.Range("A1")
wb.Close False
End Sub
替换 "C:\path\to\your\file.xlsx" 为你的文件路径。
在 VBA 编辑器中运行该代码(按 F5 或选择“运行”)。
该代码会导入 Excel 中的数据到当前工作簿的第一个工作表中。