- 帖子
- 258
- 主題
- 77
- 精華
- 0
- 積分
- 385
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2010-8-8
- 最後登錄
- 2021-1-25
|
[發問] VB有無辦法使檔案總管資料夾視窗自動縮至最小化
請教諸位大大
如下列 在VB6.0下 製成 exe執行檔
Option Explicit
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
Set objXLApp = CreateObject("Excel.Application")
objXLApp.Visible = True
Dim objXLBook
Set objXLBook = objXLApp.Workbooks.Open(n & "\" & f1 & "資料庫\" & f1 & ".xls")
Set objXLBook = Nothing
Set objXLApp = Nothing
Set fso = Nothing
Set n = Nothing
Set f = Nothing
End Sub
若想執行該執行檔時
檔案總管資料夾視窗總是擋住所開出的表單
VB有無辦法 或語法加入上述內
使檔案總管資料夾視窗或其他視窗自動縮至最小化
請大家賜教 謝謝指導 (有點急) |
|