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

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

帖子: 24
主題: 3
精華: 0
積分: 52
點名: 0
作業系統: windows vista
軟體版本: office95
閱讀權限: 20
性別: 男
註冊時間: 2011-1-7
最後登錄: 2012-6-9

4^# 跳轉到 »

發表於 2012-6-9 17:00 | 只看該作者

看到這問題想起多年前ZZ版兄在OFFICE精英
也問過同樣問題.那時後StartUp剛出現沒多久

不過剛要進OFFICE精英...仍進不去...OFFICE精英有好幾天進不去了
上次OFFICE精英進不去是2004年的時候了.結果是主機壞掉.所有文章退回1個月前

不恥下問,不斷學習,才會進步

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

3^#

發表於 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

複製代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章