マクロを使った文字化けしないCSV取込について

質問

マクロを使って、csvをインポートしたいです。
しかし、csvを取り込むと、対象列が日付になってしまいます。

元データcsvには、とある一列の行毎に、0-3　10-1　22-5　0-1-2、11-14-0　などの数字と記号が並んでいます。
下記に意図したコードを入れたのですが、csvが変換されて、2022/1/3だとか、2011/1/14などとなります。
これを元のデータの通りに取り込むには、どのようなコードを差し込めば良いのでしょうか？

※設定(adodb.stream)は行わない想定です。

ご教示願います。

"Sub Csv_Import()
Dim A_Sheet 'Excelファイルのシート名を入れ込む変数'
Dim Csv_Import_File 'Excelファイルに取り込むCSVファイルの名前を入れ込む変数'
A_Sheet = ActiveSheet.Name '現在アクティブなシート名を変数 A_Sheet に入れ込む'
Csv_Import_File = Application.GetOpenFilename(""CSVファイル,*.csv"") 'CSVファイルを選択する'
If Csv_Import_File = ""False"" Then Exit Sub 'キャンセルなら終了' ThisWorkbook.Sheets(""Import"").Range(""A1:OOO2000"").ClearContents '「CSVデータ取込み」シートのセル「A1～OOO2000」をクリアする'
With Workbooks.Open(Csv_Import_File)
.Sheets(1).Cells.Copy ThisWorkbook.Sheets(""Import"").Range(""A1"") '全てのデータをこのブックの「CSVデータ取込み」シートにコピー'
.Close 'CSVファイルを閉じる'
End With
Worksheets(A_Sheet).Activate 'A_Sheet という名前のシートをアクティブにする'
End Sub

回答No.2

SI299792 · ベストアンサー

Workbooks.Openを使う以上不可能です。
QueryTables を使えばできますが、どの列が文字列かを指定する必要があります。
「とある一列」ではどの列か解りません。回答は欲しいが情報は出したくない人間は多いですが、それでは正しい回答ができません。

また、文字コードの指定も必要です。
取りあえず、Ｃ列が文字列（日付にしたくない）
ANSI（シフトジス）又はUNICODE にしました。
直接シートに取り込むので、コピーする必要はありません。
Option Explicit
'
Sub Macro1()
　　Dim FileName As String
'
　　FileName = Application.GetOpenFilename("CSV ファイル,*.csv")
'
　　If FileName = "False" Then
　　　　End
　　End If
'
　　With ActiveSheet.QueryTables.Add("TEXT;" & FileName, [A1])
　　　　.RefreshStyle = xlOverwriteCells
　　　　.TextFileParseType = xlDelimited
　　　　.TextFileCommaDelimiter = True
　　　　.TextFileColumnDataTypes = Array(1, 1, 2)
　　　　.Refresh
　　End With
　　[A1].QueryTable.Delete
　　End
End Sub

指定の方法は Arrayの中で文字列したい列を 2にします。その後（この場合Ｄ列以右）は省略してもいいです。
UTF-8 だと文字化けします。その場合、
　　　　.TextFileCommaDelimiter = True
の下に
　　　　.TextFilePlatform = 65001
を追加して下さい。

お礼

拙い質問で申し訳なかったです。
ただ、ご回答も補足もほぼ期待したものでした。
早々、ありがとうございました。

回答No.1

Ultra-Hetare

line output を使えばよいのでは？

お礼

参考にさせていただきます