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

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2019-6-22 12:39 | 顯示全部帖子

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

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

樓主熱帖

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

2^#

發表於 2019-6-29 16:17 | 顯示全部帖子

問題是……怎麼寫

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

3^#

發表於 2019-6-30 19:48 | 顯示全部帖子

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

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

4^#

發表於 2019-7-3 22:57 | 顯示全部帖子

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
-----好像怪怪

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

5^#

發表於 2019-10-9 05:51 | 顯示全部帖子

謝謝你的解惑