返回列表 上一主題 發帖

[發問] 如何讓這個vba變成可攜

[發問] 如何讓這個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:13 編輯

匯出成 .bas檔

再匯入
p.jpg
2019-6-13 15:12

矩形3.zip (352 Bytes)

TOP

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

TOP

        靜思自在 : 要批評別人時,先想想自己是否完美無缺。
返回列表 上一主題