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

但是，这在测试您的方案时似乎不适用于我。