- 帖子
- 258
- 主題
- 77
- 精華
- 0
- 積分
- 385
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2010-8-8
- 最後登錄
- 2021-1-25
|
[發問] 利用程式自動得到檔案本身filename?
諸位大大"
(試算表.vbs)
Dim f1,fbn
f1="試算表"
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(f1 & ".vbs")
dim n
n = fso.GetParentFolderName(f.path)
Dim objXLApp
set objXLApp = WScript.CreateObject("Excel.Application")
objXLApp.Visible = True
objXLApp.Workbooks.Open (n & "\" & f1 & ".xls")
Set objXLApp = Nothing
Set fso = Nothing
WScript.Quit
可有辦法不用 f1="試算表"
讓利用程式內容自動得到檔案本身filename
如fullname1=self filename
謝謝指導 |
|
發表於 2017-12-9 13:44
| 
