[發問] 當網頁有更新，如何出聲音提示

donod

請教大大，例如當本網頁有更新/新留言，想自動出聲音提示，應該如何寫?謝謝!

GBKEE

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

複製代碼

工作表設置

下載 (69.67 KB)

2012-6-23 12:11

   
外部資料查詢 設定每1分鐘自動更新資料

下載 (37.33 KB)

2012-6-23 12:11

c_c_lai

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

複製代碼

donod

回復 5# Hsieh


    請版大指教...
網頁更新提示1.rar (16.7 KB)

下載次數: 8

2012-6-15 00:48

Hsieh

回復 4# donod

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

1. Public WithEvents qyt As QueryTable
   
2. 
   
3. '查詢結束後的事件
   
4. Private Sub qyt_AfterRefresh(ByVal Success As Boolean)
   
5.     播放 "C:\Users\Hsieh\Documents\ringout.wav" '完成更新要播放的wav檔案
   
6. End Sub
   
7. 
   
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.儲存檔案，關閉後重新開啟檔案
查詢後播音.rar (16.66 KB)

下載次數: 10

2012-6-15 00:00

donod

回復 3# Hsieh

之前有大大用excel可檢視網頁在線人數，所以有此想法。

Hsieh

回復 2# donod

網頁更新與EXCEL有何關聯?
這個問題似乎不應該是在EXCEL程式區發問的

donod

是否不能夠這樣?謝謝!