請教諸位版主大大:
想在Sub Main() 的 第一列 下指令 將所有視窗收到最下面的工作列裡
(目的讓接下來 本程式所引發的視窗 在最上層)
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)
Set objXLApp = CreateObject("Excel.Application")
objXLApp.Visible = True
objXLApp.Workbooks.Open (n & "\" & f1 & "資料庫\" & f1 & ".xls")
End Sub
