複数ファイルのデータを転記したい

Question

前提・実現したいこと

FileDialogで複数のファイルを指定し、各ファイルの内容(A1～AW400：19600セル程度)をコピーし転記したいです。

発生している問題・エラーメッセージ

GetObjectでデータをオブジェクトに格納し転記しようとしているのですが、以下のエラーとなります。

実行時エラー '-2147221020(800401e4)':
オートメーションエラーです。
構文が無効です

該当のソースコード

    Dim i               As Integer
    Dim lPos            As Long        '位置取得
    Dim appExcel        As Object      '読み込みファイル(object)
    Dim strFile1(3)     As String      '前回分:読み込みファイル
    Dim strFileName1(3) As String      '前回分:読み込みファイル名

    '読み込みファイルを指定
    With Application.FileDialog(msoFileDialogFilePicker)
        With .Filters
            .Clear                                          'ファイルの種類:クリア
            .Add "Excelブック", "*.xls; *.xlsx; *.xlsm"     'ファイルの種類:追加
        End With
        .AllowMultiSelect = True                            '複数選択:可

        If .Show = True Then                                'ダイアログボックスを表示
            For i = 1 To .SelectedItems.Count
                If i > 3 Then
                    MsgBox "ファイルは3個までです"
                    Exit Sub
                End If
                strFile1(i) = vbLf & .SelectedItems(i)
                
                'ファイル名取得
                lPos = InStrRev(strFile1(i), "\")
                strFileName1(i) = Mid(strFile1(i), lPos + 1)
            Next i
        Else
            Exit Sub                                        '「キャンセル」ボタンを押された場合、処理を中断する
        End If
    End With

    MsgBox strFile1(1)
    Set appExcel = GetObject(strFile1(1))   '←ここでエラーとなります

試したこと

FileDialogの複数選択を不可とし、1つのファイルで処理を行った場合は正常に動作します。
選択したファイルを1つずつWorkbooks.Openでオープンしてコピーしようとしましたが、それもエラー（ファイルがない、もしくは移動された）となります。
助言がいただけたら幸いです。

補足情報（FW/ツールのバージョンなど）

なし

Answer 1

GetObjectに与えるファイル名はフルパスでないとエラーになります。
GetObject(strFile1(1))のstrFile1(1)はフルパスのファイル名ではありません。それが、エラーの原因かと。

Comments

[sa3sa3sa3]

早速の回答ありがとうございます。
strFile1(1)はフルパスにしています。1行上のmsgboxでも確認しています。
また、同じ記述で、複数選択：不可（.AllowMultiSelect = False）の場合、正常に動作することも確認しています。
他にお気付きの点があれば、アドバイスお願いいたします。

[tatsu99]

失礼しました。
strFile1(i) = vbLf & .SelectedItems(i)　を
strFile1(i) = .SelectedItems(i)
にしてください。
vbLfが悪さをしています。

[sa3sa3sa3]

返信ありがとうございます。
教えていただいた通り「vbLf &」を削除したら正常に動作しました。
大変たすかりました、本当にありがとうございました！