| ½Ð°Ý¦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
 |