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