標題: Workbooks.Open 的用法 [打印本頁]

---

作者: openpc    時間: 2012-9-17 16:09     標題: Workbooks.Open 的用法

Application.Workbooks.Open ("D:\B.xls")
Workbooks.Open "D:\B.xls"
請教：
１．以上兩種開啟檔案的差異及使用時機?
２．為何一定要指定路徑D:\，如果所有EXCEL檔案都放在相同的路徑(目錄）下，可不可以有什麼簡便的寫法?
Thanks!

---

作者: GBKEE    時間: 2012-9-17 16:49

回復 1# openpc

1. Option Explicit
   
2. Sub Ex()
   
3. Dim S As Workbook, xlPath As String
   
4. xlPath = CurDir                      'CurDir 函數 傳回一個 Variant (String)，用來代表目前的路徑。
   
5. Application.Workbooks.Open "a.xls"   '開啟目前的路徑的檔案
   
6. 'Workbooks.Open xlPath & "a.xls"     '開啟指定路徑的檔案
   
7. 'Set S = Workbooks.Open("a.xls")     '指定到變數要( )
   
8. MsgBox ActiveWorkbook.FullName
   
9. End Sub
   
10. '如果所有EXCEL檔案都放在相同的路徑(目錄）下，可不可以有什麼簡便的寫法?
    
11. Sub Ex1()
    
12.     Dim xlPath As String
    
13.     xlPath = "D:\test\"
    
14.     ChDrive Mid(xlPath, 1, 1)    '移動(磁碟機)
    
15.     ChDir xlPath                 '移動(目錄）
    
16.     Workbooks.Open "a.xls"       '開啟目前的路徑的檔案
    
17. End Sub

複製代碼

---

作者: openpc    時間: 2012-9-17 17:05

感謝指教,受惠良多.我還要花時間消化吸收了解個中巧妙.

---

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