[發問] 偵錯沒問題,就是無法執行

wells330

各位前輩大家好!
       可以幫忙看一下這巨集哪裡有錯誤嗎?
       這是我在舊論壇裡找到的應用，用Office2000和Office2010都沒辦法順利執行,
       音效檔案測試也沒問題,按F8偵錯也沒問題,就是發不出聲音,
       是否需要修改的地方請各位前輩指正.

         謝謝!   

Private Sub Worksheet_Calculate()

    Dim spath As String, cmd As String
  
    If Range("A1").Value <= Range("B1").Value Then
  
    spath = "C:\op.wav"
  
        cmd = "sndrec32 /play /close " & Chr(34) & spath & Chr(34)
   
        Shell cmd, 6
   
    End If
  
End Sub

chin15

用錄音程式播放音樂還是頭一次看到
使用Wimm.dll應該純淨點，也可避免版本衝突
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrcommand As String) As Long
Private Const Mic = "c:\op.wav"
Sub op()
mciExecute ("play " & Mic)
End Sub

wells330

大家好！
本來是想用我在舊論壇裡找到的應用，加以修改再使用，現在應直接說明想達成的效果。
我想做的是：
1.如:當 A1>A2 時；自動撥放 C:\168.WAV、當 B1=>B2 時；自動撥放 C:\258.WAV........不同條件可播放指定音效。
2.當條件成立時所設定的聲音播放2次然後自動停止，除非條件又再次成立。
3.巨集有START、STOP按鍵。

  謝謝!      感恩

hugh0620

回復 3# wells330


    可否附上您的test檔~ 這樣比較能夠討論到~ 為什麼會有問題~

wells330

檔案已上傳；麻煩各位前輩了。:)

   謝謝! play.zip (17.77 KB)

下載次數: 7

2011-4-29 21:50

Hsieh

回復 5# wells330

放錯工作表模組

wells330

Hsieh版主你好！
     已修正；出現以下錯誤麻煩指正       謝謝! play.zip (16.46 KB)

下載次數: 8

2011-4-30 09:45

下載 (38.49 KB)

2011-4-30 09:43

chin15

我測試能通過，也許你的路徑檔案不存在。

Hsieh

WINDWOS 錄音機
C:\Windows\system32\SoundRecorder.exe
但是，錄音機能用來播放音效嗎?

wells330

大家好！
真的是好手雲集！小弟先謝謝各位
       先回覆Hsieh超級版主：W7的錄音機真的只能用來錄音，不能播放音效（作業系統；EXCEL版本的不同弄的．．．．．．。）你的細心我會多加學習。
        chin15大大妳好！妳建議的巨集我有試過OK有聲音，但我真不之從何修改起？請各位前輩幫幫忙！
       1.我有許多動態資料會進來作比對動作，如:當 A1>A2 時；自動撥放 C:\168.WAV、
          當 B1=>B2 時；自動撥放 C:\258.WAV........不同條件可播放指定音效。
       2.當條件成立時所設定的聲音播放1次然後自動停止，除非條件又再次成立。
       3.巨集有START、STOP按鍵。
                        謝謝!      感恩

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrcommand As String) As Long
Private Const Mic = "c:\op.wav"
Sub op()
mciExecute ("play " & Mic)
End Sub