wS.SaveAs sPath & wB.Name & ".csv", xlCSV 改成wS.SaveAs sPath & replace(wB.Name,".xls","") & ".csv", xlCSV不确定正不正确 测试时 别用原先的档案资料夹以免破坏原有的旧档案 先创新资料夹测试是否成功
不过上面的方式不完整 遇到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","")