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

[µo°Ý] ¦p¦ó¤U«ü¥O ±N©Ò¦³µøµ¡¦¬¨ì³Ì¤U­±ªº¤u§@¦C¸Ì

[µo°Ý] ¦p¦ó¤U«ü¥O ±N©Ò¦³µøµ¡¦¬¨ì³Ì¤U­±ªº¤u§@¦C¸Ì

½Ð±Ð½Ñ¦ìª©¥D¤j¤j:
·Q¦bSub Main() ªº ²Ä¤@¦C ¤U«ü¥O ±N©Ò¦³µøµ¡¦¬¨ì³Ì¤U­±ªº¤u§@¦C¸Ì
(¥ØªºÅý±µ¤U¨Ó  ¥»µ{¦¡©Ò¤Þµoªºµøµ¡ ¦b³Ì¤W¼h)
Sub Main()
    «ü¥O '±N©Ò¦³µøµ¡¦¬¨ì³Ì¤U­±ªº¤u§@¦C¸Ì
    Dim f1
    f1 = App.EXEName
    Dim fso, f As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFile(f1 & ".exe")
    Dim n
    n = fso.GetParentFolderName(f.Path)
    Set objXLApp = CreateObject("Excel.Application")
    objXLApp.Visible = True
    objXLApp.Workbooks.Open (n & "\" & f1 & "¸ê®Æ®w\" & f1 & ".xls")
End Sub

·q½Ð¨ó§U  À³¦p¦ó¤U«ü¥O?
ÁÂÁ«ü¾É   ÁÂÁÂ

        À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