Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


73942 / 76732 ←次へ | 前へ→

【7262】Re:WebSingleBlockTextImport プロパティ
質問  sabo  - 03/8/28(木) 10:42 -

引用なし
パスワード
   ▼こうちゃん さん:
こうちゃんさん ありがとうございます.

以下のコードで実行してみたところ,
.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

1 hits

【7253】WebSingleBlockTextImport プロパティ sabo 03/8/27(水) 18:01 質問
【7259】Re:WebSingleBlockTextImport プロパティ こうちゃん 03/8/28(木) 8:43 回答
【7262】Re:WebSingleBlockTextImport プロパティ sabo 03/8/28(木) 10:42 質問
【7263】Re:WebSingleBlockTextImport プロパティ こうちゃん 03/8/28(木) 11:22 回答
【7295】Re:WebSingleBlockTextImport プロパティ sabo 03/9/1(月) 16:25 お礼

73942 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free