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

[µo°Ý] ±Ò°Ê±M®× Âର *.exeÀÉ

[µo°Ý] ±Ò°Ê±M®× Âର *.exeÀÉ

½Ð±Ð½Ñ¦ì¤j¤j
¦³Äévb6µ{¦¡ «o¤£·|±N¤U¦C±Ò°Ê±M®×  Âର *.exeÀÉ
Sub Main()
    Dim f1
    f1 = App.EXEName
    Dim fso, f As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFile(f1 & ".xls")
    Dim n
    n = fso.GetParentFolderName(f.Path)
    Set objXLApp = CreateObject("Excel.Application")
    objXLApp.Visible = True
    Set objXLBook = objXLApp.Workbooks.Open(n & "\" & f1 & ".xls")
    Set objXLBook = Nothing
    Set objXLApp = Nothing
    Set fso = Nothing
    Set n = Nothing
    Set f = Nothing
End Sub
½Ð¤j¤j¨ó§U    ÁÂÁÂ

¦^´_ 1# yangjie
¤w¦Û¦æ³]©wOK
ÁÂÁ¤j®a
¥u­n³æ¿W¶}¤@­ÓModule1,¤£­n¦³form1©Î¨ä¥L
ÀÉ®×--µo¦æ ¡C§Y¥i

TOP

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD