使用VBA选取其他Excel文件并将其内容复制到当前表格中，并且选择方式为弹出选择地址框

在Excel中，使用VBA（Visual Basic for Applications）可以通过编写宏来选取其他Excel文件并将其内容复制到当前工作表中。以下是一个简单的例子，展示了如何通过弹出文件选择对话框来选取文件，并将选中的Excel文件中的内容复制到当前工作表中。

1. 首先，按下 `ALT + F11` 打开VBA编辑器。
2. 在VBA编辑器中，选择“插入”菜单中的“模块”，在弹出的窗口中粘贴以下代码。

Sub 导入其他工作簿数据()
    Dim fd As FileDialog
    Dim selectedFiles As Variant
    Dim fileDialogResult As Integer
    Dim selectedFile As Variant
    Dim wb As Workbook
    Dim ws As Worksheet

    ' 创建文件对话框对象
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
    ' 设置文件对话框的属性
    With fd
        .AllowMultiSelect = False ' 不允许多选
        .Title = "请选择要导入的Excel文件" ' 设置对话框标题
        .Filters.Clear
        .Filters.Add "Excel Files", "*.xls;*.xlsx;*.xlsm;*.xlsb", 1
    
        ' 显示文件对话框
        fileDialogResult = .Show
        If fileDialogResult <> -1 Then Exit Sub ' 用户取消，则退出宏
    
        ' 获取用户选择的文件路径
        selectedFiles = .SelectedItems
        Set selectedFile = selectedFiles(1)
    End With
    
    ' 加载选中的工作簿
    Set wb = Workbooks.Open(selectedFile)
    
    ' 假设我们要复制第一个工作表的内容
    Set ws = wb.Sheets(1)
    
    ' 复制数据到当前工作簿的当前工作表中，从A1开始
    ws.Cells.Copy Destination:=ThisWorkbook.Sheets(1).Range("A1")
    
    ' 关闭源工作簿而不保存更改
    wb.Close SaveChanges:=False
    
    ' 清理
    Set ws = Nothing
    Set wb = Nothing
    Set fd = Nothing
End Sub

3. 完成代码输入后，关闭VBA编辑器并返回Excel。
4. 在Excel中，按下 `ALT + F8`，在弹出的宏列表中选择刚才创建的宏（例如“导入其他工作簿数据”）并运行。

这段宏首先弹出一个文件选择框，让用户选择一个Excel文件。一旦用户选择了文件，宏会打开这个文件，并假设复制第一个工作表的数据到当前工作簿的当前工作表开始位置。