刪除指定資料夾中所有巨集 - Excel程式區

[發問] 刪除指定資料夾中所有巨集

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2012-6-9 12:08 | 顯示全部帖子

本帖最後由 GBKEE 於 2012-6-9 12:11 編輯

回復 1# PJChen
另存為 2007無巨集格式的活頁簿 "xlsx"

Sub Ex()
Dim xlPath As String, xlFile As String 'String: 資料型態
Application.DisplayAlerts = False '停止系統的提示
xlPath = ThisWorkbook.Path & "\" 'ThisWorkbook.Path: 程式碼活頁簿所存檔的路徑; 你可修改為指定的路徑
xlFile = Dir(xlPath & "*.xlsm") '指定的路徑中尋找副檔名"xlsm"的檔案
Do While xlFile <> "" '處裡找到"xlsm"的檔案
With Workbooks.Open(xlPath & xlFile) '開啟這檔案
.SaveAs Filename:=Mid(xlPath & xlFile, 1, Len(xlPath & xlFile) - 1) & "x", FileFormat:=51
'這檔案另存為 2007無巨集格式的活頁簿 "xlsx"
.Close '關閉檔案
End With
xlFile = Dir '指定的路徑中繼續尋找副檔名"xlsm"的檔案
Loop
If Dir(xlPath & "*.xlsm") <> "" Then Kill xlPath & "*.xlsm"
'刪除指定的路徑中所有副檔名"xlsm"的檔案
Application.DisplayAlerts = True '恢復系統的提示
End Sub

複製代碼

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-3-13 12:15 | 顯示全部帖子

回復 11# PJChen
勾選它

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。