Αναπαραγωγή αρχείων WAV χρησιμοποιώντας VBA στο Microsoft Excel

Anonim

Είναι εύκολο να παίξετε αρχεία ήχου σε μορφή WAV. Χρειάζεται μόνο να γνωρίζετε το όνομα αρχείου του ήχου που θέλετε να παίξετε,
και αποφασίστε αν θέλετε η μακροεντολή να περιμένει όσο ο ήχος αναπαράγεται ή όχι. Εδώ είναι ένα παράδειγμα:

Public Declare Function sndPlaySound Lib "winmm.dll" _ Alias ​​"sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Sub PlayWavFile (WavFileName As String, Wait As Boolean) If Dir (WavFileNit) = " Sub 'no file to play If Wait Then' αναπαραγωγή ήχου πριν από την εκτέλεση κώδικα sndPlaySound WavFileName, 0 Else 'αναπαραγωγή ήχου ενώ ο κώδικας εκτελείται sndPlaySound WavFileName, 1 End If End Sub Sub TestPlayWavFile () PlayWavFile "c: \ foldername \ soundfilename. wav ", False MsgBox" Αυτό είναι ορατό κατά την αναπαραγωγή του ήχου … "PlayWavFile" c: \ foldername \ soundfilename.wav ", True MsgBox" Αυτό είναι ορατό μετά την ολοκλήρωση της αναπαραγωγής του ήχου … "Τέλος υπο.