Board logo

標題: [發問] 當網頁有更新，如何出聲音提示 [打印本頁]
作者: donod    時間: 2012-6-13 20:01     標題: 當網頁有更新，如何出聲音提示

本帖最後由 donod 於 2012-6-13 21:50 編輯

請教大大，例如當本網頁有更新/新留言，想自動出聲音提示，應該如何寫?謝謝!
作者: donod    時間: 2012-6-14 17:37

是否不能夠這樣?謝謝!
作者: Hsieh    時間: 2012-6-14 19:46

回復 2# donod

網頁更新與EXCEL有何關聯?
這個問題似乎不應該是在EXCEL程式區發問的
作者: donod    時間: 2012-6-14 22:21

回復 3# Hsieh

之前有大大用excel可檢視網頁在線人數，所以有此想法。
作者: Hsieh    時間: 2012-6-15 00:00

回復 4# donod

引用沙拉油版大部落格文章
讓WEB查詢具有事件
1.先在第一張工作表建立一個Web查詢   
2.Thisworkbook模組輸入程式碼
  1. Public WithEvents qyt As QueryTable

  3. '查詢結束後的事件
  4. Private Sub qyt_AfterRefresh(ByVal Success As Boolean)
  5.     播放 "C:\Users\Hsieh\Documents\ringout.wav" '完成更新要播放的wav檔案
  6. End Sub

  8. Private Sub Workbook_Open()
  9.     '如果工作表 Sheet1 內已經有WEB查詢了，就將其指定給變數 qyt
  10.     If Worksheets(1).QueryTables.Count > 0 Then
  11.         Set qyt = Worksheets(1).QueryTables(1)
  12.     Else
  13.         '如果沒有可以考慮在這裡建立一個查詢,再將它指定給 qyt
  14.         '或者將 qyt 指定給其他工作表的WEB查詢（如果有需要的話）
  15.     End If
  16. End Sub
複製代碼
3.一般模組輸入以下程式碼
  1. Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrcommand As String) As Long
  2. Sub 播放(mypath)
  3. On Error Resume Next
  4. mciExecute "play " & mypath
  5. End Sub
複製代碼
4.儲存檔案，關閉後重新開啟檔案
[attach]11393[/attach]
作者: donod    時間: 2012-6-15 00:48

回復 5# Hsieh


    請版大指教...
[attach]11395[/attach]
作者: c_c_lai    時間: 2012-6-15 06:20

回復 5# Hsieh
以下之程式碼只能在32位元下執行，請教如果要在64位元下也能作業要如何修正？
謝謝大家！
  1. Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrcommand As String) As Long
  2. Sub 播放(mypath)
  3.       On Error Resume Next
  4.       mciExecute "play " & mypath
  5. End Sub
複製代碼
作者: GBKEE    時間: 2012-6-23 12:13

回復 6# donod
工作表 程式碼
  1. Option Explicit
  2. Dim A As String
  3. Private Sub Worksheet_Calculate()
  4.      If A <> "" Then If Mid([B6], 1, 10) <> A Then MsgBox "有新回覆"
  5.     A = Mid([B6], 1, 10)
  6. End Sub
複製代碼

工作表設置

[attach]11465[/attach]
   
外部資料查詢 設定每1分鐘自動更新資料

[attach]11466[/attach]



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)