vba語法若欲取得已開之*.xls檔的檔名

yangjie

請教各先進版大:
     若欲取得已開之*.xls檔的檔名(如"登錄.xls" 本身為active狀態中的"登錄")
    vba語法如何?   
   vb中之語法是否相同?
   謝謝協助

yangjie

已在VB區得到解決
感激大家

yangjie

回復 2# oobird


    Sub Main()
    Dim objXLApp
    Dim objXLBook
    Dim fso, f As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFile("登錄.xls")     
    Dim n
    n = fso.GetParentFolderName(f.Path)
    Set objXLApp = CreateObject("Excel.Application")
    objXLApp.Visible = True
    Set objXLBook = objXLApp.Workbooks.Open(n & "\登錄.xls")
    Set objXLBook = Nothing
'    objXLApp.Quit
    Set objXLApp = Nothing
    Set fso = Nothing
    Set n = Nothing
    Set f = Nothing
End Sub
請教大大
欲將此vb轉為*.exe檔
夢想*.exe中的*可取為任何字元之後，"登錄"若為變數am   am=*
則*.exe與*.xls只要取同檔名即可
故應如何取得本身開檔*.exe的*

oobird

MsgBox ActiveWorkbook.Name