[[20210402174537]]　『VBAでtxtデータ取込時『0』から始まる11桁数字を潤x（saebonpa）　ページの最後に飛ぶ

『VBAでtxtデータ取込時『0』から始まる11桁数字を省略せずに表記したい』（saebonpa）

VBAが全く分からない初心者です。

いろいろ調べた結果、以下のコマンドをVBAで登録することで、CSV形式のTXTファイルをExcelファイルに取り込むことができるようにはなったのですが、『0』から始まる11桁の登録番号等が、先頭の『0』が省略され10桁になったり、『1.28699E+11』このような形に省略されてしまったりして、再度Systemに書き込むときに問題が発生して困っております。

つきましては、『0』から始まる11桁の数値を文字列形式で取り込むVBAコマンドを教えていただきたく、またどの位置にそのコマンドを入れたら良いのかをご教示いただきたく投稿させていただきました。

＜現在のVBA＞
Sub a_SysData取込()

    Dim Ws As Worksheet
    Dim Qt As QueryTable
    Dim SelFile As Variant
    Dim ConFile As String

    SelFile = Application.GetOpenFilename("Textファイル(.txt),.txt")

    If VarType(SelFile) = vbBoolean Then
        Exit Sub
    End If
    ConFile = "TEXT;" & SelFile
    Sheets("SysData取込").Activate
    Set Ws = ActiveSheet
    Set Qt = Ws.QueryTables.Add(Connection:=ConFile, Destination:=Ws.Range("A4"))
    With Qt
        .TextFilePlatform = 932
        .TextFileParseType = xlDelimited
        .TextFileCommaDelimiter = True
        .RefreshStyle = xlOverwriteCells
        .Refresh
        .Delete
    End With
End Sub

具体的には上記に、『列Hのデータを文字列化して取込時にすべてを表示させる』というコマンドを入れ込みたいと考えております。
（実際には列H～列Lまでを文字列化してすべてを表示させたいのですが。。。）

ご教示のほどよろしくお願いいたします。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

＜ご参考＞
https://www.tipsfound.com/vba/18014
（きまぐれ） 2021/04/02(金) 18:21

(きまぐれ)様
ありがとうございました。
ゆっくり読んで、何とか設定ができました。
本当に助かりました。
（saebonpa） 2021/04/02(金) 18:45

コメント返信：

[ 一覧(最新更新順) ]

[[20210402174537]] 『VBAでtxtデータ取込時『0』から始まる11桁数字を潤x（saebonpa） ページの最後に飛ぶ

[[20210402174537]]　『VBAでtxtデータ取込時『0』から始まる11桁数字を潤x（saebonpa）　ページの最後に飛ぶ