標題: vba語法若欲取得已開之*.xls檔的檔名 [打印本頁]

---

作者: yangjie    時間: 2010-11-4 22:25     標題: vba語法若欲取得已開之*.xls檔的檔名

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

---

作者: oobird    時間: 2010-11-4 22:41

MsgBox ActiveWorkbook.Name

---

作者: yangjie    時間: 2010-11-4 23:19

回復 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的*

---

作者: yangjie    時間: 2010-11-6 00:13

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)