*.exe ±ý¨ú±o¥»¨­¤§ÀɦWÀ³¦p¦ó¤U»yªk

yangjie

½Ð±Ð½Ñ¦ì¥ý¶i:
Sub Main()
    Dim objXLApp
    Dim objXLBook
     Dim fso3
    Set fso3 = CreateObject("Scripting.FileSystemObject")
    GetAn3 = fso3.GetbaseName(myself)
    MsgBox GetAn3
  End Sub
¥H¤WÂର*.exe   ±ý¨ú±o¥»¨­¤§ÀɦW myselfÀ³¦p¦ó¤U»yªk

yangjie

·PÁÂ Min ¤j¤j
¤w¦bVB°ÏÅý±zµ¹¸Ñ¨M¤F  f1 = App.EXEName  f1 ´N¬OBaseName
¥H¤U¥þ¤å¨Ñ¤j®a°Ñ¦Ò Âন°õ¦æÀÉ*.exe«á¥i¥H¶}¦PÀɦWªº*.xls
¤£¥Î¦A¥h²z·|¦w¥þ©Ê¼h¯Å°ÝÃD
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

yangjie

¦^´_ 4# Min


    ¤£¦n·N«äÅýMin¥S¨£¯º¤F¡B¡B¡B
¨ä¥D­n¬Ù¤U敎¹ïPC¤£«Ü¼ô¦³ÃöMacroªº¨Æ¡A
¥H«e¤]¬O¥ÎVBS³B²z¡C
¤@¥¹§ïÀɦW¡A«hVBS¤º®e¤]­n§ï¡A¤~·Q¥Î*.exe
¶¶¹D½Ð±Ð1:
¦p¦ó§@ªk?  Åý¥L¤H«D±o¥Î*.exe¤~¶}±o¤F§Úªº*.xls   
§_«h·|application.quit

¶¶¹D½Ð±Ð2:
¥H«e¥Î¹L*.xls  ¥h³]©w Excelµ{¦¡   ·Q¦b*.exe¤º°õ¦æ¥H¤U"³]©wExcel"
VBÀ³¦p¦ó¼gªk
Private Sub Workbook_Open()
    yangan = GetSetting(appname:="yangApp", section:="Startup1", key:="¨Ï¥Î½T»{", Default:=88)
    SaveSetting "yangApp", "Startup1", "¨Ï¥Î½T»{", yangan
   Application.Quit
End Sub

yangjie

¦^´_ 6# Min


    Replace(Wscript.ScriptFullName, Right(Wscript.ScriptFullName, 4), ".xls")
¥i§_¥ý¨ú±o  am=Wscript.ScriptFullName
                  Replace(am, Right(am, 4), ".xls")

§Ú¹Á¸Õ¬Ý¬Ý    ÁÂÁÂ