乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > 如何在EXCEL中添加按钮,实现导入另一张excel的全部内...

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

作者:乔山办公网日期:

返回目录:excel表格制作


选中单元格,Insert(插入)-Hyperlink(超链接)-,Place in this Document(第二个按钮,本表中位置),再选定你需要去到的表,OK.

按钮链接下面这个名为“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
Worksheets(fname).Activate
Worksheets(fname).UsedRange.Select
后一句改为
Worksheets(fname).sheets(1).UsedRange.Select
你没有选择工作表的问题zd

可以用VBA 来解决。
其中1.xls为指定的表格,2为待导入的表格。

Sub Macro1()

ChDir "C:\Documents and Settings\Administrator\桌面"
Workbooks.Open Filename:="C:\Documents and Settings\Administrator\桌面\2.xls"
Cells.Select
Selection.Copy
Windows("1.xls").Activate
Range("a1").Select
ActiveSheet.Paste
Windows("2.xls").Activate
ActiveWindow.Close

End Sub

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网