クエリテーブルExcelのデバッグインポート

Question

マクロを使用してhtmファイルからデータをインポートしました。これまでのところ、クエリテーブルも非常にうまく機能していました。私はその後、全体のファイルをオンラインフォルダに移動し、もう動作しません。マクロは、最後の行backgroundqueryで停止します。私はそれが、速度がデータをインポートするのに十分速くないかもしれないオンラインフォルダへのファイルの移動に関連すると考えています。しかし、私はそこに書かれていることを理解するのに十分な経験はありません。私はマクロを記録したばかりです。なぜそれが動作を停止したか知っていますか？

With ActiveSheet.QueryTables.Add(Connection:= _ 
    "URL;file:///C:/.../.../..." & Datei & ".htm",  Destination:= _ 
    Range("$A$1")) 
    .FieldNames = True 
    .RowNumbers = False 
    .FillAdjacentFormulas = False 
    .PreserveFormatting = True 
    .RefreshOnFileOpen = False 
    .BackgroundQuery = True 
    .RefreshStyle = xlInsertDeleteCells 
    .SavePassword = False 
    .SaveData = True 
    .AdjustColumnWidth = True 
    .RefreshPeriod = 0 
    .WebSelectionType = xlEntirePage 
    .WebFormatting = xlWebFormattingNone 
    .WebPreFormattedTextToColumns = True 
    .WebConsecutiveDelimitersAsOne = True 
    .WebSingleBlockTextImport = False 
    .WebDisableDateRecognition = False 
    .WebDisableRedirections = False 
    .Refresh BackgroundQuery:=False 
End With 

Answer 1

ファイルをロード（リフレッシュ）できないため停止します。あなたはファイルのパスをチェックしましたか？

これ以外の場合は、すでにクエリテーブルがあり、古いクエリテーブルを作成/置換できないため、問題が発生する可能性があります。古いクエリテーブルを削除し、再度コードを実行してください。既存のクエリテーブルを更新するには、このサブタイトルを使用してください：

Sub Refresh() 
Dim qt As QueryTable 
Set qt = Worksheets("Table1").ListObjects(1).QueryTable 

With qt 
    .Refresh 
End With 
End Sub