VBA 型が一致しません 13

Question

実現したいこと

テキストファイルを読み込み、それを改行コードスプリットし
その配列の各要素をイミディエイトウィンドウに表示する

参考にしたサイト

UTF-8形式のテキストファイルから読み込む

現在のコード

        Dim fmt_cntnt As String, fmt_path As String
        fmt_path = "ファイルのパス"
        
        'フォーマットファイルを全行読み込み
        With CreateObject("ADODB.Stream")
            .Charset = "UTF-8"
            .Open
            .LoadFromFile fmt_path
            fmt_cntnt = .ReadText
            .Close
        End With
        
        'フォーマットファイルを1行ずつ配列に格納する
        Dim fmt_cntnt_arr As Variant
        fmt_cntnt_arr = Split(fmt_cntnt, vbCrLf)
        
        For i = 0 To UBound(fmt_cntnt_arr)
            Dim fmt_cntnt_line As Variant
            fmt_cntnt_line = Split(fmt_cntnt_arr(i), vbCrLf)
            Debug.Print fmt_cntnt_line 'ここで表題のエラーがでる
        Next i

なぜエラーが出てしまうのでしょうか。どこが原因かわかりません。
変数宣言時の型は参考にしたURLをそのまま参考にしました。

Answer 1

実現したいことに

テキストファイルを読み込み、それを改行コードスプリットし
その配列の各要素をイミディエイトウィンドウに表示する

とありますが、改行コードでのスプリットはForの前のfmt_cntnt_arr = Split(fmt_cntnt, vbCrLf)で済んでいて、もう配列が出来上がっています。

そのため、Forの中では、その配列の各要素を表示するだけで良いのですが、エラーの1つ上の行でfmt_cntnt_line = Split(fmt_cntnt_arr(i), vbCrLf)と再びスプリットしようとしています。ここが間違いなのではないかと思います。

なお、参考にされているサイトは対象ファイルがCSVのため、改行コードでスプリットした後、その各行を半角カンマでスプリットする必要がありForの中でもSplitを使っています。

Comments

[Chandler_Bing]

なるほどそういうことだったんですね。理解しました。
また一つ学べました。ありがとうございました。

[segavvy]

いえいえ、お役に立てたようでよかったです。

[Chandler_Bing]

補足的な質問で申し訳ないのですが、配列で回すと配列の要素数が[0]になっていました。

読み込んでいるファイルをサクラで開くと改行している後に「↓」がついていましたこれは改行ではないのでしょうか。それともCrで改行すべきなのでしょうか。

[Chandler_Bing]

vbCrLf→vbLfで上手くはいきました。

[segavvy]

テキストファイルの「改行」は、主に次の3種類が使われています。
・vbCrのみ（主に大昔のMac）
・vbLfのみ（主にUnixやLinuxや最近のMac）
・vbCrLf（上の2つを続けたもので、主にWindows）

そのため、対象のテキストファイルの改行コードが何なのか？を調べて、それに合わせたコードを書く必要があります。

サクラエディタは使っていないので詳しくはわかりませんが、説明を見ると、改行コードはかなり柔軟に扱えるようです。
https://sakura-editor.github.io/help/HLP000149.html

[Chandler_Bing]

丁寧に返信までありがとうございました。まだまだ知らないことだらけです。
ありがとうございました。

Answer 2

Debug.Print に配列を渡すことはできません。どうしても配列の中身をイミディエイトウィンドウに出力したい場合は配列をループで回して中身を1つ1つ Debug.Print してください。

Dim i as Long
For i=0 To Ubound(fmt_cntnt_line)
  Debug.Print fmt_cntnt_line(i)
Next i

Comments

[Chandler_Bing]

上手くいきました。ありがとうございました。