- 帖子
- 79
- 主題
- 33
- 精華
- 0
- 積分
- 123
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- x64
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2013-10-24
- 最後登錄
- 2024-3-28
|
程式啟動時，擇一開啟另外兩個檔案
程式啟動時，擇一開啟另外兩個檔案
請問如保開啟excel 後，在Private Sub Workbook_Open() 擇一開啟檔案
Private Sub Workbook_Open()
Workbooks.Open Filename:=ThisWorkbook.Worksheets("Sheet1").Range("B14").value
Workbooks.Open Filename:=ThisWorkbook.Worksheets("Sheet1").Range("B18").value
End Sub
如果 b14 位置的檔案可以開啟成功，就不開啟B18的檔案
如果 b14 無法開啟，則改開啟 b18 （如果 b18 也無法開啟，則顯示 msg "open file error" ）
請問該怎麼寫？？ 怎麼寫怎麼怪~~
Set MyBook = Workbooks.Open Filename:=ThisWorkbook.Worksheets("基本資料").Range("B18").value
On Error GoTo 0
If MyBook Is Nothing Then
Workbooks.Open Filename:=ThisWorkbook.Worksheets("基本資料").Range("B18").value
End If
Else |
|
發表於 2017-5-31 15:39
| 
