Question

如何在EXCEL中添加按钮，实现导入另一张excel的全部内容

请问如何在excel里设计一个按钮，点击后弹出文件浏览窗口，选择另外一个excel文件后（这个文件只有一张表），点ok，把选择的excel文件表的全部内容复制到当前表。谢谢

Answer 1

按钮链接下面这个名为“m”的宏：
Sub m()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
k = Application.GetOpenFilename("Excel 文件 ,*.xls;*.xlsx")
If k <> "" Then
Workbooks.Open k
ActiveWorkbook.Sheets(1).Cells.Copy ThisWorkbook.Sheets(1).Cells
ActiveWorkbook.Close
End If
Application.ScreenUpdating = False
Application.DisplayAlerts = False
End Sub

Answer 2

点击控件工具箱，在工作表中添加一个按钮，按钮的Click事件写为：
WorkSheets("要复制的表名").Range("复制表的区域").Copy WorkSheets("粘贴表名").Range("粘贴表的区域或第一个单元格")

Answer 3

录个宏，再改改代码呗

Answer 4

要写代码。。。。。。。。。。。