[發問] GetBaseName(Me)

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-11-5 10:08 | 只看該作者

[發問] GetBaseName(Me)

本帖最後由 yangjie 於 2010-11-5 17:28 編輯

請教版大或各位先進:
  應如何取得  視窗執行檔檔名
   am=GetBaseName(Me)
   MSGBOX am
   ' 傳回 VB5.EXE 的 VB5
錯誤: Me 關鍵字不能出現在一般模組中。
請教版大或各位先進，個人又非得在一般模組內執行。應如何解決?
         或是修改成Me為.......??????
謝謝

樓主熱帖

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

2^#

發表於 2010-11-5 16:57 | 只看該作者

RE: myGetProcessIdFileName(Me.hWnd)

本帖最後由 yangjie 於 2010-11-5 17:31 編輯

回復 1# yangjie
各位大大:
對不起
原先前 "myGetProcessIdFileName"語法是錯的(可能沒有函數"myGetProcessIdFileName")
我只是想用VB 寫出一段然後轉成執行檔例如轉成 "輸入資料.exe "
執行時會msgbox彈出檔名 "輸入資料"
若將"輸入資料.exe " rename 成 "登錄.exe "
執行時會msgbox彈出檔名 "登錄"
懇請諸位大大協助
具這樣功能之VB語法?? 如何傳回自身檔名?????

版主 Rank: 7 Rank: 7 Rank: 7

Min

　暱稱: 閔

帖子: 172
主題: 39
精華: 20
積分: 177
點名: 0
作業系統: Microsoft Windows XP
軟體版本: Microsoft Office 2003
閱讀權限: 100
性別: 男
來自: 高雄
註冊時間: 2010-5-1
最後登錄: 2023-3-19

論壇貢獻勳章帥哥勳章

3^#

發表於 2010-11-5 21:40 | 只看該作者

App.EXEName

還有要傳外部參數進去不是這樣做的
因該是要用Command

Command是程式內接收的函數
將您包好的程式建立捷徑
捷徑路徑就會的值就是傳入值了
如以下範例傳入值就是"我愛麻辣家族"
"C:\Project1.exe" 我愛麻辣家族

若是我回答，使您滿意，請您讓我知道！
若是我的回覆，您仍有其他見解，也請您不嗇指教！

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

4^#

發表於 2010-11-5 22:50 | 只看該作者

回復 3# Min

感激您的回應
   個人尚在理解中
我的主程式如下: 我想在  04 Set f = fso.GetFile("登錄.xls")  中傳回本程式轉成之***.exe檔的BaseName
      這樣子就可以用參數代表第9行的檔名
請教應如何修改第4行? 謝謝
01 Sub Main()
02 Dim fso, f As Object
03 Set fso = CreateObject("Scripting.FileSystemObject")
04 Set f = fso.GetFile("登錄.xls")
05 Dim n
06 n = fso.GetParentFolderName(f.Path)
07 Set objXLApp = CreateObject("Excel.Application")
08 objXLApp.Visible = True
09 Set objXLBook = objXLApp.Workbooks.Open(n & "\登錄.xls")
10 Set objXLBook = Nothing
' objXLApp.Quit
11 Set objXLApp = Nothing
12 Set fso = Nothing
13 Set n = Nothing
14 Set f = Nothing
15 End Sub

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

5^#

發表於 2010-11-5 23:40 | 只看該作者

OK 了測試成功
感激 Min
真的是加上 f1 = App.EXEName f1 就是BaseName
Dim f1
f1 = App.EXEName
Dim fso, f As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(f1 & ".xls")
真是太棒了