CSVファイルをエクセルで開くVBAをつくりたい

前提・実現したいこと

VBA初心者です。
CSVファイルをエクセルで開くコードを書きたいです。

発生している問題・エラーメッセージ

つまづいているのが、
●数字の先頭の0落ち回避
●UTF-8文字化け対応
●商品コードが4949443102222のところ表示が4.94944E+12になってしまう
といった点です。
※理想はExcelの機能で手作業でCSVを開いたときと同じ状態にしたいと思っています。

該当のソースコード

Public Const targetsheet = "result"
'結果を出力するシート名を指定

Sub CSV取り込みUTF8()

Dim SettingFileName As Variant

Sheets(targetsheet).Cells.Clear
'ファイルクリア

SettingFileName = Application.GetOpenFilename(FileFilter:="CSVファイル(*.csv),*.csv", _
                                    Title:="CSVファイルの選択")
If SettingFileName = False Then
    Exit Sub
End If

With Sheets(targetsheet).QueryTables.Add(Connection:="text;" & SettingFileName, Destination:=Sheets(targetsheet).Range("A1"))
    .TextFilePlatform = 65001 'UTF-8
    .AdjustColumnWidth = False '列の幅を自動計算しない
    .TextFileCommaDelimiter = True 'コンマ区切り
    .Refresh BackgroundQuery:=False 'シートに出力

    .Delete
End With

Sheets(targetsheet).Activate

End Sub

試したこと

上記はネットから拾ったコードを加工したものですが、
理想の通りにならず、悩んでいます。

補足情報（FW/ツールのバージョンなど）

Excel for Microsoft 365 を使用しています。

行動規範の内容に同意します

回答1件

ベストアンサー

[数字先頭0落ち] => おそらく表示形式が[標準]になっている為。
[E+12] => おそらく表示形式が[指数]になっている為。

QueryTablesのプロパティの[.TextFileColumnDataTypes]で、各列の表示形式を指定出来る。
問題の列（面倒なら全部の列）を、[表示形式=文字列（xlTextFormat）]で取り込むと良い。

*文字列型で取り込んだデータを、後で数値として扱いたい時はValとかCIntで数値に変換。
*UTF-8の取り込みは.TextFilePlatform = 65001でOKと思います。

追記。以下3列のtest.csvの場合。

CSV
1列A前ゼロ,列B指数,列C日付
201,1111111111111,2020/1/1
302,9999999999999,2021/12/31
4

VBA
1With Sheets(targetsheet).QueryTables.Add(Connection:="text;" & SettingFileName, Destination:=Sheets(targetsheet).Range("A1"))
2.TextFilePlatform = 65001 'UTF-8
3.AdjustColumnWidth = False '列の幅を自動計算しない
4.TextFileCommaDelimiter = True 'コンマ区切り
5.TextFileColumnDataTypes = Array(xlTextFormat, xlTextFormat, xlTextFormat) '★追加
6'.TextFileColumnDataTypes = Array(2, 2, 2) '★こっちでも動きます
7.Refresh BackgroundQuery:=False 'シートに出力
8
9.Delete
10End With