帖子: 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

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2025-7-5

2^#

發表於 2019-6-26 22:02 | 只看該作者

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

D:\桌面\080526\0201\

TOP

oak0723-1

中學生 Rank: 2

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

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

3^#

發表於 2019-6-29 16:17 | 只看該作者

問題是……怎麼寫

TOP

oak0723-1

中學生 Rank: 2

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

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

4^#

發表於 2019-6-30 19:48 | 只看該作者

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

TOP

chen1490

中學生 Rank: 2

帖子: 1
主題: 0
精華: 0
積分: 51
點名: 0
作業系統: Windows
軟體版本: 10
閱讀權限: 20
註冊時間: 2015-10-1
最後登錄: 2019-7-2

5^#

發表於 2019-7-2 14:03 | 只看該作者

這個檔案的路徑

可以用 ThisWorkbook.Path 取得

TOP

oak0723-1

中學生 Rank: 2

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

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

6^#

發表於 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
-----好像怪怪

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

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

7^#

發表於 2019-10-5 16:36 | 只看該作者

回復 6# oak0723-1

程式碼看起來是截取其中一段,檔案都沒打開,就關閉,所以這段程式無法做什麼動作...與隨身碟無關
程式碼是打開 "D:\桌面\080526\0201\"裡面的檔案...在桌面的檔案一般都在C,你的卻是在D
先查下路徑有沒有錯?有錯改路徑即可打開檔案
稍加修改為
Sub 打開案夾裡所有檔案_矩形3_Click()
Dim mFile As String, Path As String
Path = "D:\桌面\080526\0201\" '路徑,少了這段檔案打不開
mFile = Dir(Path & "*.xlsx") '路徑中的檔案
Do While mFile <> ""
Workbooks.Open(Path & mFile) '開啟檔案
...做某些動作...
Workbooks(Path & mFile).Close False '不存檔就關閉
mFile = Dir()
Loop

End Sub

TOP

oak0723-1

中學生 Rank: 2

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

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

8^#

發表於 2019-10-9 05:51 | 只看該作者

謝謝你的解惑

TOP