一個朋友跟我說，很多時後掌握基礎比複雜的說明問題更好；今天處理自己工作上的xlsx檔案轉存為xls檔案，用了之前自己寫的FileDialog案例，也做做分享。
作一個按鈕插入以下CODE：
CODE流程：關閉自動運算等功能>宣告物件>對話框>迴圈>開啟檔案>變更檔名>關閉>下一個檔案>離開迴圈>完成對話框顯示
操作流程：點選按鈕>對話框選擇檔案>開始轉換>發呆
若要修改成其他副檔案名稱：修改這裡： 設定參考
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & WORKNAME & "-NEW" & ".xls", FileFormat:=xlExcel8
沒有留言:
張貼留言