標題: 程式啟動時，擇一開啟另外兩個檔案 [打印本頁]

---

作者: eigen    時間: 2017-5-31 15:39     標題: 程式啟動時，擇一開啟另外兩個檔案

程式啟動時，擇一開啟另外兩個檔案

請問如保開啟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

---

作者: prin.huang    時間: 2017-5-31 20:57

1. Private Sub Workbook_Open()
   
2. dim fs as object, Sdir$
   
3. set fs=createobject("Scripting.FileSystemObject")
   
4. with thisworkbook.worksheets("基本資料")
   
5.         if fs.FileExists(.Range("B14").value) then
   
6.                 SDir = .range("B14").value
   
7.         else if fs.FileExists(.Range("B18").value) then
   
8.                 SDir = .range("B14").value
   
9.         else
   
10.                 msgbox "Open file error"
    
11.         end if
    
12.         Set MyBook = Workbooks.Open Filename:=
    
13. end sub

複製代碼

---

作者: eigen    時間: 2017-6-5 19:49

回復 2# prin.huang


    非常感謝，我剛剛重新修改我的系統，終終可以正常運作了，十分感謝你的協助~~~

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)