返回列表 上一主題 發帖

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

oak0723-1

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

論壇贊助勳章論壇榮譽勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 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
收藏 分享

oak0723-1

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

論壇贊助勳章論壇榮譽勳章
3#
發表於 2019-6-13 19:01 | 只看該作者
抱歉
我的意思是說如何改程式碼
讓這個程式放在隨身碟也可以執行

TOP

mistery

帖子
82 
主題
5 
精華
0 
積分
115 
點名
0  
作業系統
Vista 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2010-5-1 
最後登錄
2023-4-18 
2#
發表於 2019-6-13 15:09 | 只看該作者
本帖最後由 mistery 於 2019-6-13 15:13 編輯

匯出成 .bas檔

再匯入
p.jpg

矩形3.zip (352 Bytes)

TOP

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
返回列表 上一主題