GBKEE

回復 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

複製代碼