(若是和其他不同软件互动之问题 请记得一并填写)
软件: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","")