|
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
|
|