外部データの取り込みについて

Question

マクロにて「外部データの取り込み」を実装したExcelファイルをWeb画面からダウンロードして、ファイルオープン時にマクロを実行させ、ＣＳＶファイルを取り込むとエラーになります。

エラーの内容は以下の通り

*************** エラーの内容　****************

Err.Number: -2147417848

Err.Description：
オートメーションエラーです。
起動されたオブジェクトはクライアントから切断されました。

*************** エラーの内容　****************

取り込む外部データはファイルサイズが小さいとエラーになり

データが大きい場合はエラーになりません。

何か原因と対処方法があればご教示願います。

マクロの実装例は以下です。

実装例

*************** 実装例 ******************

   ' 処理開始
    strActiveBookName = Application.Workbooks(Application.ActiveWindow.Caption).Name
    Workbooks(ブック名).Application.WindowState = xlMinimized
    Workbooks(ブック名).Application.Visible = False
    Workbooks(Application.ActiveWindow.Caption).Worksheets(シート名).Activate
    Workbooks(ブック名).Application.Visible = True

    With ActiveSheet.QueryTables.Add(Connection:= _
        CSVファイル名, Destination:=Range("A1"))
       
        .FieldNames = False
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshStyle = xlInsertDeleteCells
        .AdjustColumnWidth = True
        .TextFilePlatform = 932
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierNone
        .TextFileCommaDelimiter = True
        .TextFileColumnDataTypes = arrColumnDataTypes
        .TextFileTrailingMinusNumbers = False
        .Refresh BackgroundQuery:=False
    End With

    Workbooks(ブック名).Application.Visible = False

*************** 実装例 ******************

また、ExcelファイルがWeb画面とは別のウィンドウとして表示する必要があります。