xlsm檔案能否設定一個功能將檔案另存為，同時只洗掉其中的操作表及宏代碼，生成.xls的檔案即可
uj5u.com熱心網友回復：
參考下面的這段代碼。分別是：如何洗掉指定作業表、如何指定保存的“格式”。
Sub Main()
Application.DisplayAlerts = False ' 關閉警告提示
' 若不關閉，下面兩句執行時會彈出對話框讓用戶確認
Sheets("Sheet3").Delete ' 洗掉指定作業表
' 注意下面的“另存為……”操作：
' 1. 檔案名為abc、沒給擴展名，Excel會自動加上正確的擴展名
' 2. 在“關閉警告提示”的情況下，目標檔案存在時也不提示、直接覆寫
ThisWorkbook.SaveAs "E:\Temp\TestE", xlExcel12, CreateBackup:=False
Application.DisplayAlerts = True ' 恢復警告提示
End Sub
uj5u.com熱心網友回復：
上面代碼中，給的“檔案名”是TestE，保存結果檔案是 TestE.xlsx 。象上面代碼第9行那樣不給出擴展名，那么不能存在“E:\Temp\TestE”這個檔案夾，
如果有這個檔案夾，可能會操作出錯， 這個時候應該給定擴展名，寫成 E:\Temp\TestE.xlsx
uj5u.com熱心網友回復：
剛才清理測驗檔案，發現多了一個檔案出來……原來“型別”引數寫錯了，應該是 xlOpenXMLWorkbook 。
ThisWorkbook.SaveAs "E:\Temp\TestE", xlOpenXMLWorkbook, CreateBackup:=False
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/43595.html
標籤：VBA