返回列表 上一主題 發帖

[發問] 如何使該資料夾畫面縮小至(幕後)螢幕最下一列或(消失)

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-12-1 01:00 | 顯示全部帖子

[發問] 如何使該資料夾畫面縮小至(幕後)螢幕最下一列或(消失)

本帖最後由 yangjie 於 2017-12-1 01:03 編輯

就教於先進們
用VB製作開一個exe執行檔
可否在VB程式碼中  Sub Main()..........
一開頭要使螢幕上其他所有總管視窗縮小至螢幕最下一列
因為要執行exe執行檔一定要先打開資料夾
然後再exe執行檔上點兩下執行exe
如何使該資料夾畫面(縮小至螢幕最下一列)或(消失)
而使新執行的form呈現在最上層
而VB語法為?
實在是嘗試多次失敗'
求救無門,就教於先進們版主們
謝謝指導
收藏 分享

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
2#
發表於 2017-12-1 09:14 | 顯示全部帖子
本帖最後由 yangjie 於 2017-12-1 09:23 編輯

回復 2# adrian_9832
主要是要跳離Excel安全性選項
如下
Sub Main()
    Dim f1
    f1 = App.EXEName
    Dim fso, f As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFile(f1 & ".exe")
    Dim n
    n = fso.GetParentFolderName(f.Path)
    Dim objXLApp
    Dim objXLBook
    Set objXLApp = CreateObject("Excel.Application")
    objXLApp.Visible = True
    Set objXLBook = objXLApp.Workbooks.Open(n & "\M1 資料庫\" & f1 & ".xls")
End Sub
VB可有法子處裡資料夾畫面或使所開Excel為最上層?
(若用*.xls直接開,所開Excel為最上層沒問題)
(次要我在處裡一個1.xls 可讓兩人同時開,處理2.xls資料而閃避唯讀)

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
3#
發表於 2017-12-9 13:32 | 顯示全部帖子
回復 1# yangjie
找到了,只要加上
CreateObject("Shell.Application").MinimizeAll
即可
供大家參考

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
返回列表 上一主題