Excelmacros将CSV转换为XSLM，无date格式
我希望你能帮上忙。 我有一个Excel VBAmacros来自动保存CSV作为XLSM文件。 但是，如果这样做，则会将CSV中的date格式更改为默认的本地英国设置。 我需要它不这样做，并保持原来的date格式。
原始date格式在CSV文件中是mm / dd / yyyy，我需要以XLSM格式保存这个格式。 目前macros允许Excel将格式更改为dd / mm / yyyy（本地英国设置）。
举例来说，在CSV中：
05/24/2017,2,3,email@email.com 在保存的XLSM文件中成为以下内容：
24/05/2017 2 3 email@email.com
这是我有的代码：
Private Sub Workbook_Open() Dim wb As Workbook Dim strFile As String, strDir As String strDir = "C:\Processing\" strFile = Dir(strDir & "*.csv") Set wb = Workbooks.Open(strDir & strFile) With wb .SaveAs Replace(wb.FullName, ".csv", ".xlsm"), 52 'UPDATE: .Close True End With Set wb = Nothing Application.Quit End Sub
代码中正在使用通配符，因为文件的名称是可更改的。
希望你能帮忙。