Question

excel vba 导入xls文件的问题

我的工作簿是test.xlsm，如何点击F5运行后，弹出一个对话框选择要导入的xls文件，选择完后，就把该文件的数据复制并导入到我的test.xlsm工作簿中？

Answer 1

Sub test()

Dim FileName As String
FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xlsx),*.xls;*.xlsx")
If FileName <> "" Then
Workbooks.Open FileName, 0, 1
Range("A1:D5").Copy ThisWorkbook.ActiveSheet.Range("A65000").End(xlUp).Offset(1, 0)
ActiveWorkbook.Close 0
End If

End Sub

粗体字部分解释：
Range("A1:D5").Copy ThisWorkbook.ActiveSheet.Range("A65000").End(xlUp).Offset(1, 0)
把打开工作簿活动工作表的单元格A1:D5区域
复制到
test.xlsm的A列最后一格向上的最后一个空白单元格。