.SaveAs Replace(flnm, ".csv", ".xlsx"), IIf(Application.Version >= 12, xlWorkbookDefault, xlWorkbookNormal) 这句改为：
.SaveAs ThisWorkbook.Path & "\" & Replace(flnm, ".csv", ".xlsx"), IIf(Application.Version >= 12, xlWorkbookDefault, xlWorkbookNormal)
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024