vba»yªk­Y±ý¨ú±o¤w¶}¤§*.xlsÀɪºÀɦW

yangjie

½Ð±Ð¦U¥ý¶iª©¤j:
     ­Y±ý¨ú±o¤w¶}¤§*.xlsÀɪºÀɦW(¦p"µn¿ý.xls" ¥»¨­¬°activeª¬ºA¤¤ªº"µn¿ý")
    vba»yªk¦p¦ó?   
   vb¤¤¤§»yªk¬O§_¬Û¦P?
   ÁÂÁ¨ó§U

oobird

MsgBox ActiveWorkbook.Name

yangjie

¦^´_ 2# oobird


    Sub Main()
    Dim objXLApp
    Dim objXLBook
    Dim fso, f As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFile("µn¿ý.xls")     
    Dim n
    n = fso.GetParentFolderName(f.Path)
    Set objXLApp = CreateObject("Excel.Application")
    objXLApp.Visible = True
    Set objXLBook = objXLApp.Workbooks.Open(n & "\µn¿ý.xls")
    Set objXLBook = Nothing
'    objXLApp.Quit
    Set objXLApp = Nothing
    Set fso = Nothing
    Set n = Nothing
    Set f = Nothing
End Sub
½Ð±Ð¤j¤j
±ý±N¦¹vbÂର*.exeÀÉ
¹Ú·Q*.exe¤¤ªº*¥i¨ú¬°¥ô¦ó¦r¤¸¤§«á¡A"µn¿ý"­Y¬°ÅܼÆam   am=*
«h*.exe»P*.xls¥u­n¨ú¦PÀɦW§Y¥i
¬GÀ³¦p¦ó¨ú±o¥»¨­¶}ÀÉ*.exeªº*

yangjie

¤w¦bVB°Ï±o¨ì¸Ñ¨M
·P¿E¤j®a