將 Excel 表復制到新的分號分隔的 CSV

Question

所以我有一個大的 Excel 表（.xlsm），我想從中獲取 3 個新的 CSV 文件。 我已經在下面嘗試過類似的方法，但這用普通逗號分隔：

Sub walrus()

Dim dir As String
dir = "My\Super\Cool\Path.csv"

Application.DisplayAlerts = False

ThisWorkbook.Sheets("FooBar").Copy
ActiveWorkbook.SaveAs Filename:=dir, FileFormat:=xlCSV, CreateBackup:=True
ActiveWorkbook.Close

Application.DisplayAlerts = True

End Sub

那么有人知道如何改變嗎？

多謝你們

Answer 1

感謝您的幫助，我只是通過將Local:=true添加到復制行來使其正常工作，不知道它是什么，但它有效也許這對任何人都有幫助