VBA　文字コードの変換をどこですればいいのかわからない

初めまして。プログラミング初心者です。
現在、フォルダを選択するとフォルダ内のファイルの中身を1行ずつ読み込み、
・日付
・フォルダ名
・件数
を取得しセルに張り付けるプログラムを作りたいです。

現在、頭がこんがらがってきてしまっており１つずつ問題を解消していこうと
上から順に修正しているので、後半部分は特にぐちゃぐちゃになってしまっています('Д')

今回は、
取得したファイルパスを開き、テキストファイルを１行ずつ読み込む際
文字化けしてしまうため、文字コードを【UTF-8】としたいのですが
どこに命令文を書けばいいのかわかりません。
現在、自分なりに考えた場所に追記してみましたが添付画像のように
文字化けした状態で表示されてしまっています。

文字コードを指定する命令文が間違えていないか、
また、命令文の記載位置について教えていただけますと幸いです。
よろしくお願いします。

'指定フォルダの全テキストの任意行を取得
Sub GetAllTextData()
    
    '
    '【変数の宣言】
    '
    Dim Fname                  'ファイル名
    Dim FSO As Object          'インスタンス化後保存先
    Dim Folder As Variant      'フォルダー
    Dim File As Variant        'ファイル
    Dim FilePath As Variant    'ファイルパス
    Dim Hozon                  '保存
    Dim GetData As Variant     '取得データ
    Dim Target As String
    
    
    
    
    
    'フォルダ指定用のダイアログを表示します
    With Application.FileDialog(msoFileDialogFolderPicker)
        
        'カレントディレクトリを指定します
        .InitialFileName = ThisWorkbook.path
        
        '設定しなかったら終了します
        If .Show = False Then Exit Sub
            
        '設定したフォルダを表示します
                'Dim Fname
        Fname = .SelectedItems(1)
        
    End With
    
    
    
    '参照設定
                'Dim FSO As Object, Folder As Variant, File As Variant
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    
    
                'Dim FilePath As Variant
    ReDim FilePath(1 To 200)
        
        
    '指定フォルダ内の.logファイルを探索します
    i = 0
    For Each File In FSO.GetFolder(Fname).Files
        If InStr(File.Name, "sh") > 0 Then
            
            Else
            If InStr(File.Name, ".log") > 0 Then
            i = i + 1
            FilePath(i) = File.path 'ファイルのフルパスを取得
            
        End If
        End If
    Next
    

    
    
'**********************************************************************



    
    '文字コードを変換
     With CreateObject("ADODB.Stream")
    .Charset = "UTF-8"
    .Open
    .LoadFromFile FilePath(i)
    charchange = .ReadText
    .Close
    End With
    Close #1


    '配列を指定
                    'Dim Hozon, GetData As Variant
    ReDim GetData(1 To 200, 1 To 200) As Variant
    
    '全テキストファイルの任意行のデータを取得する
    m = 0
    For k = 1 To UBound(FilePath, 1)
    
    MsgBox k
    

    
        
        'テキストファイルが存在する場合に実行
        If IsEmpty(FilePath(k)) = False Then
            
            '保存する配列を空にする
            ReDim Hozon(1 To 200, 1 To 200) As Variant
            

            
            'テキストを開いて配列にデータを保存
            Open FilePath(k) For Input As #1
            
                  Line Input #1, buf
            Close #1
        
            tmp = Split(buf, vbLf)           '改行コードで分割
            For i = 1 To UBound(tmp) - 1      'インデックス番号の最大値-1まで繰り返し
            logdate = Left(tmp(i), 23)
           
            
            '件数の取得
            abc = Mid(tmp(i), InStr(tmp(i), "件数＝") + 1)
            CaseNum = Left(abc, InStr(abc, ")") - 1)
            
            MsgBox CaseNum
            
            
            
            'Cells(i + 1, 1).Resize(1, UBound(tmp) + 1).Value = LogDate
            'Cells(i + 1, 2).Resize(2, UBound(tmp) + 1).Value = FileType
            'Cells(i + 1, 3).Resize(3, UBound(tmp) + 1).Value = CaseNum
            
            
            ' Cells(i + 1, 1).Resize(1, UBound(tmp) + 1).Value = abc

            Next i
                
                'テキストをすべて取得する
                'Do Until EOF(1)
                   ' Line Input #1, buf
                    'i = i + 1
                    'コンマ区切りでデータを取得する
                    'a = Split(buf, ",")
                   ' For j = 0 To UBound(a, 1)
                       ' Hozon(i, j + 1) = a(j)
                   ' Next
               ' Loop
          '  Close #1
            
            'テキストを開いて配列にデータを保存
            'Open FilePath(k) For Input As #1
             '   i = 0

            'テキストをすべて取得
              '  Do Until EOF(1)
               '     Line Input #1, buf
                '    i = i + 1
                    
                    
                    '改行コード区切りでデータを取得
                 '   a = Split(buf, vbLf)
                    
                    
                    
                  '  For i = 1 To UBound(a, 1)
                   ' Day = Left(tmp(i), 23)
                    'MsgBox i
                    'Next i
                    
                    'Loop
                'Close #1

                
                                'コンマ区切りでデータを取得する
                                'a = Split(buf, ",")

                   
                     'For j = 0 To UBound(a, 1)
                    '   Hozon(i, j + 1) = a(j)
                    'Next

          
                'Loop
            
            
            
            
            '日付けを取得
            
            
            'i = 2 '2行目のデータを取得
            'm = m + 1
            'For j = 1 To UBound(Hozon, 2)
            '    GetData(m, j) = Hozon(i, j)
            'Next
            
        End If
    Next
    
    'データ貼り付け
    With ActiveSheet
        .Range(.Cells(2, 1), .Cells(2, 1).Offset(UBound(GetData, 1) - 1, UBound(GetData, 2) - 1)) = GetData
    End With
    
End Sub

KOZ6.0

2022/05/24 01:09

提示されたコードの「'文字コードを変換」という箇所で、変数 charchange に変換された文字列が入るので、それを改行コードで区切って処理するだけだと思います。

KOZ6.0

2022/05/24 01:27

あと、コードが非常に読みづらいです。整理してから投稿してください。

hatena19

2022/05/24 01:46

そのテキストファイルがUTF8ということは確定しているのでしょうか。また、コード中に 'コンマ区切りでデータを取得するとのコメントがありますが、コンマ区切りのテキストデータということでしょうか。

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

回答1件

参考までに、別案です。
Workbooks.OpenText でテキストファイルを開いてそれをコピーしてはどうでしょう。

VBA CSV ファイルの読み込み (Workbooks.OpenText 関数を使う)

vba
1Sub Sample()
2
3    Application.ScreenUpdating = False
4
5    Workbooks.OpenText Filename:="C:\test\UTF8.txt", _
6                       Origin:=65001, Comma:=True
7        
8    ActiveWorkbook.ActiveSheet.UsedRange.Copy ThisWorkbook.ActiveSheet.Cells(2, 1)
9    ActiveWorkbook.Close Savechanges:=False
10    
11    Application.ScreenUpdating = True
12
13End Sub