返回列表 上一主題 發帖

[發問] 如何改寫讓這個程式碼在隨身碟上可以執行

[發問] 如何改寫讓這個程式碼在隨身碟上可以執行

Sub 打開案夾裡所有檔案_矩形3_Click()
Dim mFile As String
mFile = Dir("D:\桌面\080526\0201\*.XLSx")
Do While mFile <> ""
Workbooks(mFile).Close False
mFile = Dir()
Loop

End Sub

回復 1# oak0723-1
把底下這些文字改成你隨身碟要處理那些檔案的所在目錄,

D:\桌面\080526\0201\

TOP

問題是……怎麼寫

TOP

可能我沒把我的問題寫清楚,所以讓各位先進誤解
我的意思是說我把這個巨集檔案存放在隨身碟上的條件下,如何在任意電腦上都可以執行?
我覺得問題應該是在"D:\桌面\080526\0201\*.XLSx"上
問題是我不知道如何改寫
因為路徑會隨著電腦不同而不同

TOP

這個檔案的路徑

可以用 ThisWorkbook.Path 取得

TOP

Sub 打開案夾裡所有檔案_矩形3_Click()
Dim mFile As String
mFile = Dir(ThisWorkbook.Path&"\桌面\080526\0201\*.XLSx")
Do While mFile <> ""
Workbooks(mFile).Close False
mFile = Dir()
Loop

End Sub
-----好像怪怪

TOP

        靜思自在 : 一個人不怕錯,就怕不改過,改過並不難。
返回列表 上一主題