返回列表 上一主題 發帖

[發問] 如何下指令 將所有視窗收到最下面的工作列裡

[發問] 如何下指令 將所有視窗收到最下面的工作列裡

請教諸位版主大大:
想在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

敬請協助  應如何下指令?
謝謝指導   謝謝

        靜思自在 : 有多少力量就做多少事,不要心存等待,等待才會落空。
返回列表 上一主題