½Ð°Ý¦pªG§Ú·Q¦bVBA¤¤°õ¦æ¤@Ó¥~³¡µ{§Ç(°²³]¬°¤@ÓvbsÀÉ) ,  
¦]¬°¥ÎShell("wscript C:\a.vbs") ¤£·|µ¥«Ý§¹¦¨ , §Ú§ï¥Î¥H¤U¼gªk 
 
¦ý¬O¦]¬°¥~³¡µ{§Ç°õ¦æ®É¶¡«Ü¤[(´X¤Q¤ÀÄÁ¨ì´X¤p®É) ,  
°õ¦æ®É´NµLªk¨Ï¥ÎExcel¤F , ½Ð°Ýn«ç»ò§ï¤~¯àÝÅU 
1.  ¥~³¡µ{§Ç°õ¦æ§¹¤~´£¥Ü¨Ï¥ÎªÌ 
2.  ¥~³¡µ{§Ç°õ¦æ®É¤´¥i¥H¥¿±`¨Ï¥ÎExcel(¶}Ãö¨ä¥LªºExcelÀÉ) 
 
 
Sub myStep3()  
    Dim wsh As Object 
    Dim result As Integer 
 
    Set wsh = VBA.CreateObject("WScript.Shell")    
    result = wsh.Run("C:\a.vbs", 1, True) 
 
    If MsgBox("Complete!" & vbLf & "Do you want to continue?", vbYesNo) = vbYes Then 
        Call ReadResult() 
    End If 
End sub |