返回列表 上一主題 發帖

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

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
82  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-4-6 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2012-6-14 19:46 | 顯示全部帖子
回復 2# donod

網頁更新與EXCEL有何關聯?
這個問題似乎不應該是在EXCEL程式區發問的
學海無涯_不恥下問

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
82  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-4-6 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 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.儲存檔案，關閉後重新開啟檔案
查詢後播音.rar (16.66 KB)
學海無涯_不恥下問

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題