|
▼こうちゃん さん:
こうちゃんさん ありがとうございます.
以下のコードで実行してみたところ,
.Connection = ConnString や .Refresh BackgroundQuery:=False のところで
「実行時エラー"1004" バックグラウンドでデータを更新中であるため,この操作は
行えません.」とでます.
こうちゃんさんが実行されたときは,このようなエラーがでませんでしたか?
いろいろ試してみましたが,どうも解決できません.
これについて解決策等をご教授頂ければ幸いです.
どうぞ宜しくお願いいたします.
>
>Sub Macro1()
>
> Dim ConnString As String
>
> ConnString = _
> "URL;http://ABC.co.jp/DEF/HIJ.htm"
>
> With ActiveSheet.QueryTables.Add(Connection:=ConnString, _
> Destination:=Range("B1") _
> )
>
> .Refresh
> End With
>
> With Selection.QueryTable
> .Connection = _
> ConnString
> .WebSelectionType = xlAllTables
> .WebFormatting = xlWebFormattingNone
> .WebPreFormattedTextToColumns = True
> .WebConsecutiveDelimitersAsOne = True
> .WebSingleBlockTextImport = True
> .WebDisableDateRecognition = False
> .Refresh BackgroundQuery:=False
> End With
>
> MsgBox "aaa"
>
>End Sub
|
|