ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°Ý©I¥s¥~³¡µ{¦¡¨Ãµ¥«Ý§¹¦¨®É³qª¾«ç»ò¼g¤ñ¸û¦n

[µo°Ý] ½Ð°Ý©I¥s¥~³¡µ{¦¡¨Ãµ¥«Ý§¹¦¨®É³qª¾«ç»ò¼g¤ñ¸û¦n

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

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD