- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2012-9-17 16:49
| 只看該作者
回復 1# openpc - Option Explicit
- Sub Ex()
- Dim S As Workbook, xlPath As String
- xlPath = CurDir 'CurDir 函數 傳回一個 Variant (String)，用來代表目前的路徑。
- Application.Workbooks.Open "a.xls" '開啟目前的路徑的檔案
- 'Workbooks.Open xlPath & "a.xls" '開啟指定路徑的檔案
- 'Set S = Workbooks.Open("a.xls") '指定到變數要( )
- MsgBox ActiveWorkbook.FullName
- End Sub
- '如果所有EXCEL檔案都放在相同的路徑(目錄）下，可不可以有什麼簡便的寫法?
- Sub Ex1()
- Dim xlPath As String
- xlPath = "D:\test\"
- ChDrive Mid(xlPath, 1, 1) '移動(磁碟機)
- ChDir xlPath '移動(目錄）
- Workbooks.Open "a.xls" '開啟目前的路徑的檔案
- End Sub
|
|
發表於 2012-9-17 16:09
| 
