excel中的VBA问题

2024-12-31 10:18:42
推荐回答(1个)
回答1:

.SaveAs Replace(flnm, ".csv", ".xlsx"), IIf(Application.Version >= 12, xlWorkbookDefault, xlWorkbookNormal) 这句改为:
.SaveAs ThisWorkbook.Path & "\" & Replace(flnm, ".csv", ".xlsx"), IIf(Application.Version >= 12, xlWorkbookDefault, xlWorkbookNormal)