| |
saboさん、こんにちは
>「WebSingleBlockTextImport プロパティ」を用いてHTML内のデータをインポートし，そのデータを同一のマクロで処理をしたいのですが，インポートするには一度マクロを終了させなければなりません．同一のマクロで処理するためには，マクロを終了せずにインポートすることが必要です．これを解決できる方法はないでしょうか．ご存知でしたら教えていただけないでしょうか．
Webクエリを使ったことがないので、明確な回答はできないのですが、どなたかからレスが付くまでのつなぎで・・
下記のコードでマクロ内でHTML内のデータインポートができるようです。
インポート後、マクロを終了せずに次の処理が行えますが、こういうことじゃないんでしょうか？
お役にたたなかったらごめんなさい。
＃HELPとマクロ記録だけでつくりました。不具合があったらごめんなさい。(^^;)
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
|
|
- 03/8/28(木) 8:43 -
