使用vba达成excel里导入excel的效果

您好！对于使用 VBA 实现在 Excel 中导入另一个 Excel 文件的效果，您可以使用下面的代码：

Sub ImportExcel()
    Dim wb As Workbook
    Dim ws As Worksheet
    
    '选择要导入的 Excel 文件
    FileToOpen = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*")
    
    '如果用户选择了文件，则执行导入操作
    If FileToOpen <> False Then
        '打开选择的文件
        Set wb = Workbooks.Open(FileToOpen)
        
        '选择要导入数据的目标工作表
        Set ws = ThisWorkbook.Sheets("目标工作表名称")
        
        '将源工作表的数据复制到目标工作表中
        wb.Sheets("源工作表名称").UsedRange.Copy ws.Range("A1")
        
        '关闭源工作簿，不保存更改
        wb.Close False
        
        MsgBox "导入完成！"
    End If
End Sub

请注意，您需要将代码中的 "目标工作表名称" 替换为您要将数据导入的目标工作表的名称，并将 "源工作表名称" 替换为要从源文件中复制数据的工作表的名称。

当您运行该宏时，会弹出一个文件选择对话框，您可以选择要导入的 Excel 文件。选择完毕后，代码将打开该文件，并将源工作表中的数据复制到目标工作表中。

希望这可以帮助到您！如果您还有其他问题，请随时提问。