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

1^# 跳轉到 » 正序看帖

字體大小: tT

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

*.exe 欲取得本身之檔名應如何下語法

請教諸位先進:
Sub Main()
Dim objXLApp
Dim objXLBook
Dim fso3
Set fso3 = CreateObject("Scripting.FileSystemObject")
GetAn3 = fso3.GetbaseName(myself)
MsgBox GetAn3
End Sub
以上轉為*.exe 欲取得本身之檔名 myself應如何下語法

樓主熱帖

yangjie

中學生 Rank: 2

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

7^#

發表於 2010-11-7 22:25 | 只看該作者

回復 6# Min

Replace(Wscript.ScriptFullName, Right(Wscript.ScriptFullName, 4), ".xls")
可否先取得 am=Wscript.ScriptFullName
Replace(am, Right(am, 4), ".xls")

我嘗試看看謝謝

TOP

Min

　暱稱: 閔

版主 Rank: 7 Rank: 7 Rank: 7

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

論壇貢獻勳章帥哥勳章

6^#

發表於 2010-11-6 19:54 | 只看該作者

1.
請問您的目的是什麼? 要用excel 又不讓人家開excel.... 好艱深的問題>"<
如果您的目的只是要讓users沒有開啟巨集就看不到資料那直接到excel區耙文就可以找到相關的文章..
不過無論是哪一種方式都會有漏洞... Excel 進階區的HUNGCHILIN版主就發好多類的文章..

2.
您前面不是就有寫到 Set objXLApp = CreateObject("Excel.Application") ...
要引用excel進來才可以使用excel功能~

還有VBS不需要跟著改檔名喔... 善用一下函數^^
Replace(Wscript.ScriptFullName, Right(Wscript.ScriptFullName, 4), ".xls")

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

TOP

yangjie

中學生 Rank: 2

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

5^#

發表於 2010-11-6 11:35 | 只看該作者

本帖最後由 yangjie 於 2010-11-6 11:45 編輯

回復 4# Min

不好意思讓Min兄見笑了、、、
其主要省下敎對PC不很熟有關Macro的事，
以前也是用VBS處理。
一旦改檔名，則VBS內容也要改，才想用*.exe
順道請教1:
如何作法? 讓他人非得用*.exe才開得了我的*.xls
否則會application.quit

順道請教2:
以前用過*.xls 去設定 Excel程式想在*.exe內執行以下"設定Excel"
VB應如何寫法
Private Sub Workbook_Open()
yangan = GetSetting(appname:="yangApp", section:="Startup1", key:="使用確認", Default:=88)
SaveSetting "yangApp", "Startup1", "使用確認", yangan
Application.Quit
End Sub

TOP

Min

　暱稱: 閔

版主 Rank: 7 Rank: 7 Rank: 7

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

論壇貢獻勳章帥哥勳章

4^#

發表於 2010-11-6 00:44 | 只看該作者

呵呵呵~
原來yangjie兄是想繞過EXCEL VBA安全性開啟EXCEL...
這個我也做過不過我是用VBS
其方式都是與您的大同小異~

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

TOP

yangjie

中學生 Rank: 2

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

3^#

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

本帖最後由 yangjie 於 2010-11-5 23:53 編輯

感謝 Min 大大
已在VB區讓您給解決了 f1 = App.EXEName f1 就是BaseName
以下全文供大家參考轉成執行檔*.exe後可以開同檔名的*.xls
不用再去理會安全性層級問題
Sub Main()
Dim f1
f1 = App.EXEName
Dim fso, f As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(f1 & ".xls")
Dim n
n = fso.GetParentFolderName(f.Path)
Set objXLApp = CreateObject("Excel.Application")
objXLApp.Visible = True
Set objXLBook = objXLApp.Workbooks.Open(n & "\" & f1 & ".xls")
Set objXLBook = Nothing
Set objXLApp = Nothing
Set fso = Nothing
Set n = Nothing
Set f = Nothing
End Sub

TOP

Min

　暱稱: 閔

版主 Rank: 7 Rank: 7 Rank: 7

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

論壇貢獻勳章帥哥勳章

2^#

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

GetbaseName裡面是放路徑...
小弟愚昧不了解您提問的"以上轉為*.exe"...

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

TOP