Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

31244 / 76732

←次へ　｜　前へ→


	【50740】Re:Excel　を自動更新できますか？

かみちゃん

- 07/8/13(月) 22:44 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>Webクエリを
>.RefreshPeriod = 1
>などで、「定期的に更新する」（この例では1分間隔）タイミングを捉えることで
>いいでしょうか？

この件であれば、私は、以下のようにしています。

'■標準モジュール
Private wbes() As Class1

Sub Macro1()
　Dim strURL As String
　ReDim wbes(1)
　
　Set wbes(0) = New Class1
　
　'（xxxxは、ｈｔｔｐを半角にします）
　strURL = "xxxx://www.vbalab.net/vbaqa/c-board.cgi?id=excel"

　With ActiveSheet.QueryTables.Add(Connection:="URL;" & strURL, _
　　Destination:=Range("A1"))
　　.WebSelectionType = xlAllTables　　 'ページ全体
　　.WebFormatting = xlWebFormattingNone '取り込み形式は指定なし
　　.RefreshPeriod = 1 '★１分間隔で更新する
　　.Refresh BackgroundQuery:=False
　End With
　Set wbes(0).wq = ActiveSheet.QueryTables(1)
End Sub

'起動したいマクロ名
Sub Macro1_1(ByVal w As Excel.Worksheet)
　MsgBox "Macro1_1が起動しました"
End Sub

'■クラスモジュールモジュール名 Class1
Private WithEvents wb As Excel.QueryTable

Property Set wq(ByVal tmp As Excel.QueryTable)
　Set wb = tmp
End Property

Private Sub wb_AfterRefresh(ByVal Success As Boolean)
　If Success Then
　　Call Macro1_1(wb.ResultRange.Worksheet) '起動したいマクロ名
　End If
End Sub

2 hits

▼

【50735】Excel　を自動更新できますか？ Rin 07/8/13(月) 21:57