(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:Office Excel
版本:2013
我在網路上參考VBA CODE. XLS轉檔CSV
檔案類型轉檔成功
不過檔名都會出現XXXXXX.xls
原本的檔名是沒有.xls
請問可以就原有的CODE把.xls去掉嗎?
謝謝!

wS.SaveAs sPath & wB.Name & ".csv", xlCSV 改成wS.SaveAs sPath & replace(wB.Name,".xls","") & ".csv", xlCSV不確定正不正確 測試時 別用原先的檔案資料夾以免破壞原有的舊檔案 先創新資料夾測試是否成功

真的非常感謝@waiter337！我成功了

不過上面的方式不完整 遇到xlsx檔案會出錯建議從'MsgBox (wB.Name) 以下開始修改dim wBN as stringwBN = replace(wB.Name,".xls","")wBN = replace(wBN,".xlsx","")For Each wS In wB.SheetswS.SaveAs sPath & wBN & ".csv", xlCSVNext wSwB.Close False糟糕 第二 與 第三 行 互換 沒注意到 .xlsx要先過濾第二行改 wBN = replace(wB.Name,".xlsx","")第三行改 wBN = replace(wBN,".xls","")