Excel vbaで日付形式を変更してCSVファイルを開く

Question

この問題に関する質問は複数ありますが、いずれの回答も私の問題を解決するものではありません。問題は次のとおりです。多数の.csvファイルを編集する必要があるため、Excel VBAでこれを実行します。 MM：最初の3列の形式はDD/MM/YYYY HHの日付です

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

経由SSと開いたときにこれらの日付は、米国形式のMDYに変換され、この問題を解決するための最も一般的な答えは "知られを囲んでlocal = = Trueで地域の設定を使用していない限り、ExcelはCSVを米国のdateformatで開きますが、これを実行してもまだ動作していません。誰も、次のコードを実行するために変更が必要な設定をアドバイスできますか？ありがとう。

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で、あなたは、着信データの日付形式を指定することができます。

マクロを記録すると、必要なコードが開始されます。