返回列表 上一主題 發帖

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

PJChen
　暱稱: PJ

大學生Rank: 4

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

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 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

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題