作者:乔山办公网日期:
返回目录: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