ªð¦^¦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¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD