変数に格納された文字列を改行コードごとに切り分け配列に格納したい

Question

実行したい処理

・変数に格納された文字列を改行ごとに切り分け、１行ずつ配列に格納したい
【例】

上記の内容を、
あいうえお、かきく、けこさしすせ、そたちつてと
ごとに配列に格納し、エクセルに張り付けたいです。
（配列なくでも各行ごとに張り付けられる方法でしたらなんでも構いません。）

エラー内容

”型が一致しません”というエラーが表示されてしまう。（デバック⇒MsgBox temp部にマーカー）

試したこと

・Dim temp As String の変数を宣言
⇒結果変わらず

Sub ファイルを開く()

'************************************************************
' 変数の宣言
'************************************************************
Dim target As String
Dim text
Dim i
Dim buf As String
'Dim temp As String

With Sheets("取得パス")
For i = 2 To 5

    buf = "A" & i
    If .Range(buf).Value <> "" Then
         'MsgBox buf
         
         FilePath = Range(buf).Value

            With CreateObject("ADODB.Stream")
                .Charset = "UTF-8"
                .Open
                .LoadFromFile FilePath
                 abc = .readtext
                 End With
                 
                 
                 temp = Split(abc, bvlf)
                 MsgBox temp

    End If
        
Next

End With

End Sub

Answer 1

Split関数の戻り値はバリアント型の配列ですので、バリアント型の変数に代入してください。
ちなみに、改行コードは通常は vbCrLf です。

    Dim temp As Variant

    temp = Split(abc, vbCrLf)

---

”型が一致しません”というエラーが表示されてしまう。（デバック⇒MsgBox temp部にマーカー）

Msgboxの引数は文字列ですので、配列を与えるとそのようなエラーになります。Join関数で文字列に変換すればエラーなく表示されます。

    MsgBox Joion(temp, vbCrLf)

---

・変数に格納された文字列を改行ごとに切り分け、１行ずつエクセルに張り付けたい

どこにどのように貼り付けたいのか不明ですが、縦に１行ずつ貼り付けたいのなら、
Tranpose関数で縦横変換して貼り付けるといいでしょう。

    Dim temp As Variant
    
    temp = WorksheetFunction.Transpose(Split(abc, vbCrLf))
    
    ActiveSheet.Range("A2").Resize(UBound(temp)).Value = temp

アクティブシートのA2セル以降に貼り付ける場合のコード例です。