通過Excel VBA打開CSV文件-日期格式更改

Question

關於這個問題已經有多個問題，但是似乎沒有答案可以為我解決問題。 問題是這樣的：我必須編輯大量的.csv文件，所以要通過Excel VBA進行此操作。 前三列是以dd / mm / yyyy hh：mm：ss格式顯示的日期，通過以下方式打開時，這些日期將轉換為美國格式MDY。

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

解決此問題的最常見答案圍繞着已知的“功能”，即除非通過Local：= True使用區域設置，否則Excel將使用美國日期格式打開CSV，但我已經做到了，但仍然無法正常工作。 誰能建議一個可能需要更改才能使以下代碼正常工作的設置？ 謝謝。

    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

Answer 1

使用Data >> From Text工具打開文件：在流程的第3步中，您可以指定傳入數據的日期格式。

記錄宏將使您從所需的代碼開始。

Answer 2

如果使用的是TextToColumns函數，則可以使用FieldInfo:=Array(1, 4)參數。

我有一個類似的問題，這對我有用（除了使用Local:=True ）

它只能使用兩個“解決方案”。

祝好運！

Answer 3

@SMLBW

將您的系統短時間和長時間更改為“ dd / mm / yyyy”格式。

我希望這可以解決問題：