c_c_lai

¦^´_ 1# ¦Û§Ú·Pı¨}¦n
©ñ¸m©ó ThisWorkbook µ{¦¡°Ï¤º¡G

1. Option Explicit
   
2. 
   
3. #If VBA7 Then
   
4.     Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   
5. #Else
   
6.     Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   
7. #End If
   
8. 
   
9. Sub playAll()
   
10.     Dim cts As Integer
    
11.     Dim MyPlayer As WindowsMediaPlayer
    
12.    
    
13.     Set MyPlayer = Sheet1.WindowsMediaPlayer1
    
14. 
    
15.     For cts = 1 To 33
    
16.         MyPlayer.URL = ThisWorkbook.Path & "\mp4\" & CStr(cts) & ".mp4"
    
17.         
    
18.         DoEvents
    
19.         MyPlayer.Controls.Play
    
20.                     
    
21.         Do While MyPlayer.playState <> 1
    
22.             Sleep 100
    
23.             DoEvents
    
24.         Loop
    
25.         
    
26.         DoEvents
    
27.     Next cts
    
28. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 3# ¦Û§Ú·Pı¨}¦n

¤U¸ü (164.66 KB)

2016-8-8 08:47

¤U¸ü (409.01 KB)

2016-8-8 08:48

Office 2007 ¥H¤Î XP Àô¹Ò¤¤¬O§¹¥þ¥i¥H¶¶ºZ°õ¦æªº¡A
§_«h§A¤]¤£·| PO ¤å¥s¤j®a¤U¸üªY½à¡C