通过Excel vba打开CSV文件-日期格式更改

关于这个问题已经有很多问题了，但是没有一个答案能解决我的问题。问题是：我必须编辑大量的.csv文件，所以我要通过excelvba进行编辑。前三列是格式为dd/mm/yyyy hh:mm:ss的日期，这些日期在通过打开时转换为美国格式MDY

    set wb1 = Workbooks.Open (Filename:=savefolder & filename, Local:=True)

解决此问题的最常见答案是已知的“功能”，即Excel将使用US dateformat打开CSV，除非通过Local:=True使用区域设置，但我已经这样做了，它仍然不起作用。有人能建议一个可能需要更改的设置以使以下代码正常工作吗？谢谢

    Sub cleandata()
    dim wb1 as workbook
    dim ws1 as worksheet
    dim savefolder, filename as string

    savefolder = "C:\Users\ME\Desktop\Clean Up Folder\"
    filename = dir(savefolder & "*")
    Do while len(filename) >0
           set wb1 = Workbooks.Open (Filename:=savefolder & filename, Local:=True)
           set ws1 = wb1.worksheets(1)
           'code related to what I am wanting to do to the data to 'clean it up'
           wb1.close true
           filename = dir()
    Loop
    End Sub

---

使用

数据>>From Text

工具打开文件：在流程的第3步中，您可以指定传入数据的日期格式

录制宏将为您提供所需代码的开始

---

使用

数据>>From Text

工具打开文件：在流程的第3步中，您可以指定传入数据的日期格式

录制宏将为您提供所需代码的开始

---

如果使用

TextToColumns

功能，可以使用

FieldInfo:=Array（1,4）

参数

我遇到了一个类似的问题，这对我很有效（除了使用

Local:=True

）

它只在使用这两种“解决方案”时起作用

---

祝你好运

如果使用

TextToColumns

函数，则可以使用

FieldInfo:=Array（1,4）

参数

我遇到了一个类似的问题，这对我很有效（除了使用

Local:=True

）

它只在使用这两种“解决方案”时起作用

祝你好运

@SMLBW

将系统短时间和长时间更改为“dd/mm/yyyy”格式

我希望这能起到作用：

@SMLBW

将系统短时间和长时间更改为“dd/mm/yyyy”格式

我希望这能起到作用：

---

如果设置不起作用，您始终可以在

代码相关…

部分重新设置日期。听起来您已经完成了yopur研究，但这怎么不是重复的？@Jeeped我已经阅读并尝试了导入CSV后涉及此问题的几个问题的建议解决方案，你链接到的问题在我的谷歌搜索中都没有出现。我将看看这一点和蒂姆·威廉关于这个问题的回答，看看这是否解决了我的问题。thanks@ScottHoltzman谢谢你的建议-我希望我能找到一种方法来解决它的进口，但是的，如果需要，将在事后修复。如果设置不起作用，您始终可以在

代码相关…

部分重新设置日期。听起来您已经完成了yopur研究，但这怎么不是重复？@Jeeped我已经阅读并尝试了导入CSV后涉及此问题的几个问题的建议解决方案，你链接到的问题在我的谷歌搜索中都没有出现。我将看看这一点和蒂姆·威廉关于这个问题的回答，看看这是否解决了我的问题。thanks@ScottHoltzman谢谢你的建议-我希望我能找到一种方法来解决它的进口，但是的，将修复后，如果需要的话。