VBA導出並保存到CSV問題

Question

在網上找到了以下代碼，但是當我為日期運行宏時有點奇怪，因為我的日期將從：[DD / MM / YYYY]轉換為[MM / DD / YYYY]

例如：2017年7月31日至2017年7月31日。

任何能夠協助的人，我都希望保留為[DD / MM / YYYY]。

請參閱以下內容：

Dim strName As String
Dim filepath As String

Application.ScreenUpdating = False

strName = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & " " & ActiveSheet.Name & ".csv"

ActiveSheet.Copy    'copy the sheet as a new workbook
ActiveWorkbook.SaveAs Filename:=strName, FileFormat:=xlCSV
ActiveWorkbook.Close SaveChanges:=False

Application.ScreenUpdating = True

MsgBox "File has been Created and Saved as:  " & vbCr & strName, , "Copy & Save Report"

謝謝，

Answer 1

根據您的本地語言設置（在“控制面板”中指定），以下方法應該起作用：

ActiveWorkbook.SaveAs Filename:=strName, FileFormat:=xlCSV, Local:=True

理想情況下，應通過指定SaveAs方法的TextCodepage參數來使用它。 但是，根據MSDN參考 ，對於所有Excel語言都將忽略此參數。

關於SO的先前問題解決了此問題，並建議使用FileFormat:=xlUnicodeText ，然后將擴展名設置為.csv ，即：

ActiveWorkbook.SaveAs Filename:=strName & ".csv", FileFormat:=xlUnicodeText

但是，這在測試您的方案時似乎不適用於我。