- 帖子
- 38
- 主題
- 18
- 精華
- 0
- 積分
- 115
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office xp
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 香港
- 註冊時間
- 2010-5-11
- 最後登錄
- 2015-9-29
|
在 office 2007 不能正常運作
各位大大：
以下程式碼在office xp 運作是正常的，為何在 office 2007 裡便沒有反應？請各位指教！謝謝！
Private Sub Worksheet_Calculate()
If [E52] = 1 Then
Dim spath As String, cmd As String
spath = "D:\Ring.wav"
If Range("B51").Value = 1 Then
cmd = "sndrec32 /play /close " & Chr(34) & spath & Chr(34)
Shell cmd, 6
End If
End If
End Sub |
|
發表於 2014-9-21 15:15
| 
