[[20220912134226]]　『文字化けしないでCSVを読み込みたい』（ブルボンブル）　ページの最後に飛ぶ

『文字化けしないでCSVを読み込みたい』（ブルボンブル）

Excel初心者　ＶＢＡ素人です。お助けください。

https://excel-ubara.com/excelvba5/EXCEL111.html
ここのサイト様のソースをそのまま使わせてもらい、Excelファイルにcsvを読み込むところまでは出来たのですが、日本語で入力された値などが「鬟ｲ譁吶・繧｢繧､繧ｹ」などと文字化けしています。

解決ソースをご教授ください。

下が使わせてもらったソースです。

Sub CSV入力3()

    Dim varFileName As Variant

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

    Workbooks.Open Filename:=varFileName
    ActiveSheet.Cells.Copy ThisWorkbook.ActiveSheet.Cells
    ActiveWorkbook.Close SaveChanges:=False
End Sub

よろしくお願いします。

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

 ↓この辺りが参考になるかと。

【VBA】Shift-JIS・UTF-8等、各種文字コードのファイル読み込み【コピペで使えるサンプル付き】 | nyanblog ~にゃんぶろぐ~
https://nyanblog2222.com/office/2291/
Office TANAKA - ファイルの操作[UTF-8形式のテキストファイルから読み込む]
http://officetanaka.net/excel/vba/file/file10.htm

 ↓おまけです
文字化けから元の文字を推測するツール 面倒な人向けの自動判別変換 - ぺんたん info
https://pentan.info/tools/garble/

 鬟ｲ譁吶・繧｢繧､繧ｹ → 飲料Eアイス

（白茶） 2022/09/12(月) 14:06

コメント返信：

[ 一覧(最新更新順) ]

[[20220912134226]] 『文字化けしないでCSVを読み込みたい』（ブルボンブル） ページの最後に飛ぶ

[[20220912134226]]　『文字化けしないでCSVを読み込みたい』（ブルボンブル）　ページの最後に飛ぶ