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

[µo°Ý] ½Ð°Ý:vb¥ô¦ó¼g"±Ò¥Î§»"

[µo°Ý] ½Ð°Ý:vb¥ô¦ó¼g"±Ò¥Î§»"

½Ð°Ý:vb¥ô¦ó¼g"±Ò¥Î§»"(excel¥i¥H¨Ï¥Î¥¨¶°)
lmh

¥H«e§Ú¼g¹L
Option Explicit
        Dim f1,fbn
            'f1 = App.EXEName
        'f1¬°BaseName
        f1="²ø·q¦Û±j"       
        Dim fso, f
        Set fso = CreateObject("Scripting.FileSystemObject")
        'Set f = fso.GetFile(f1 & ".exe")        
        Set f = fso.GetFile(f1 & ".vbs")
        dim n
        n = fso.GetParentFolderName(f.path)
        Dim objXLApp
        set objXLApp = WScript.CreateObject("Excel.Application")
        objXLApp.Visible = True
        objXLApp.Workbooks.Open (n & "\" & f1 & "¸ê®Æ®w\" & f1 & ".xls")
        Set objXLApp = Nothing
        Set fso = Nothing
        Set n = Nothing
        Set f = Nothing
        WScript.Quit

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD