LoginSignup
@nommanoliferyoryo (りょう すぎ)

Are you sure you want to delete the question?

If your question is resolved, you may close it.

Leaving a resolved question undeleted may help others!

We hope you find it useful!

QueryTable.Refresh メソッド を用いた際に、2回に1回はエラーが発生してしまう原因について

Q&A

VBACSV#Query

解決したいこと

ここに解決したい内容を記載してください。

QueryTable.Refresh メソッド を用いた際に、2回に1回はエラーが発生してしまいます。
デバックでステップインをしてF８を押して進めるとエラーは発生せずに進みます。
ただ、ボタンをクリックして実行すると、2回に1回の頻度でエラーが発生します。
その原因が不明です。
ＶＢＡの内容はＣＳＶをExcel上にダウンロードするというものです。

発生している問題・エラー

実行時エラー 1004
https:// csv名
を開くことが出来ません。必要な情報をダウンロードできません。

例）

NameError (uninitialized constant World)

または、問題・エラーが起きている画像をここにドラッグアンドドロップ

該当するソースコード

ソースコードを入力

例）

Sub

URLPkg = Sheets("日勤").Range("S14")

    Sheets("貼り付け").Select
    Columns("A:S").Select
    Selection.ClearContents

    With Sheets("貼り付け").QueryTables.Add(Connection:="URL;" & URLPkg, Destination:=Sheets("貼り付け").Range("A1"))
            .WebSelectionType = xlEntirePage
            .WebFormatting = xlWebFormattingNone
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .Refresh BackgroundQuery:=False
            .WebDisableRedirections = False
            .Application.DisplayAlerts = False



    End With

    Sheets("日勤").Select

End Sub

自分で試したこと

URLの参照元は=B6&B7&B8&B9&B10&B11&B12&B13&B14&B15のように関数を用いています
この関数が原因かと思い、直接入力されたもので試しましたが同じエラーがでました。

0 likes

No Answers yet.

Your answer might help someone💌

LoginSign Up