- 帖子
- 472
- 主題
- 5
- 精華
- 0
- 積分
- 485
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- MS Office
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 香港
- 註冊時間
- 2010-7-4
- 最後登錄
- 2014-12-28
|
各位前輩，現在因工作上需要
我在 a.xls 分頁1，放個按鈕
點他可以開啟檔案，查閱書上有個命令可用
...
a703130 發表於 2012-8-21 18:43  - Sub test()
-
- Dim wbNew As Workbook
- Dim result As Boolean
- '你懂的
- result = Application.Dialogs(xlDialogOpen).Show("*.xls")
-
- '如果取消就下班
- If Not (result) Then
- Exit Sub
- End If
-
- '找出剛打開的WORKBOOK
- Set wbNew = ActiveWorkbook
-
- '一頁一頁地抄到舊WORKBOOK, THISWORKBOOK=舊WORKBOOK
- For Each s In wbNew.Sheets
- s.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
- Next
-
- '關掉新WORKBOOK
- wbNew.Close (False)
- End Sub
|
|
發表於 2012-8-21 22:07
| 