[[20220225082304]]　『マクロでテキストを取り込むと文字化けしてしまう』（txt）　ページの最後に飛ぶ

『マクロでテキストを取り込むと文字化けしてしまう』（txt）

始めまして。
テキストファイルをExcelに取り込むマクロを調べながら作りました。

Sub test()

'テキスト取込

Sheets("Sheet2").Select

    Cells.Select
    Selection.ClearContents
    Range("A1").Select
Dim txtName As String
    txtName = Application.GetOpenFilename("テキストファイル,*.txt")

    If txtName = "False" Then

    MsgBox "キャンセルが選択されました。終了します。"

    Application.DisplayAlerts = False
    Application.Quit

End

    End If

    If txtName <> "False" Then
        Open txtName For Input As #1
    End If

    Dim R As Long
    R = 1

    Do Until EOF(1)

        Dim buf As String
        Line Input #1, buf

        Dim aryLine As Variant
        aryLine = Split(buf, ",")

        Dim i As Long
        For i = LBound(aryLine) To UBound(aryLine)
            Cells(R, i + 1) = aryLine(i)
        Next

        R = R + 1

    Loop

    Close #1

End Sub

ですが、このマクロを使用するとテキストが文字化けしてしまうのです。
どこが問題なのか、改良箇所を良ければ教えていただきたいです。
文字コードはUnicodeになります。
よろしくお願いします。

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

ご参考。

https://www.google.com/search?q=vba+unicode+%E3%83%86%E3%82%AD%E3%82%B9%E3%83%88+%E8%AA%AD%E3%81%BF%E8%BE%BC%E3%81%BF

（ひまつぶし） 2022/02/25(金) 08:34

＞＞ひまつぶし様

教えていただいたサイトを見て載っているＶＢＡを使用してみましたが、
文字化けの化ける文字が変化するだけでした。

（txt） 2022/02/25(金) 09:03

まず、Unicodeを検索、何たるかを調べてから、
ご自身の文字符号化方式を調べて、
それで、コードを検索すれば出てくるんじゃないですか。

（tkit） 2022/02/25(金) 09:25

Line Inputで読み込んでいますが、Excel にて、UTF-8 形式のテキストファイル (拡張子 CSV や TXT) を開くと文字化けが発生します。
この現象は Excel の仕様に基づく制限事項で文字コードをShift-JIS でテキストを取り込んで下さい。
それ以外の形式の文字は文字化けして正しく表示できません。

[XL2002] UTF-8 形式のテキストファイルが文字化けする
https://support.microsoft.com/ja-jp/topic/-xl2002-utf-8-%E5%BD%A2%E5%BC%8F%E3%81%AE%E3%83%86%E3%82%AD%E3%82%B9%E3%83%88-%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%81%8C%E6%96%87%E5%AD%97%E5%8C%96%E3%81%91%E3%81%99%E3%82%8B-930bf754-0280-dd2e-cd67-398acdca418b

（KonNo） 2022/02/25(金) 09:31

まずは、文字コードが何なのか調べましょう。
https://www.google.com/search?q=%E3%83%86%E3%82%AD%E3%82%B9%E3%83%88%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB+%E6%96%87%E5%AD%97%E3%82%B3%E3%83%BC%E3%83%89+%E7%A2%BA%E8%AA%8D

（ひまつぶし） 2022/02/25(金) 09:49

コメント返信：

[ 一覧(最新更新順) ]

[[20220225082304]] 『マクロでテキストを取り込むと文字化けしてしまう』（txt） ページの最後に飛ぶ

[[20220225082304]]　『マクロでテキストを取り込むと文字化けしてしまう』（txt）　ページの最後に飛ぶ