返回列表 上一主題 發帖

[發問] GetBaseName(Me)

yangjie

帖子
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為.......??????
謝謝
收藏 分享

yangjie

帖子
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語法?? 如何傳回自身檔名?????

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
3#
發表於 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

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
4#
發表於 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")
真是太棒了

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題