標題: [發問] 如何讓這個vba變成可攜 [打印本頁]

---

作者: oak0723-1    時間: 2019-6-12 21:07     標題: 如何讓這個vba變成可攜

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

---

作者: mistery    時間: 2019-6-13 15:09

本帖最後由 mistery 於 2019-6-13 15:13 編輯

匯出成 .bas檔

再匯入
[attach]30847[/attach]

---

作者: oak0723-1    時間: 2019-6-13 19:01

抱歉
我的意思是說如何改程式碼
讓這個程式放在隨身碟也可以執行

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)