當我通過VBA打開各種應用程式時，我一直有這個問題。Internet Explorer、Word、Excel 等都能打開，甚至檔案也能打開，但視窗仍在任務欄上被最小化，必須手動打開。我在幾臺電腦上也有這個問題，有不同版本的Office。(Windows 10 pro、Office 2019 Pro和Office 365），所有這些都有同樣的問題。有誰能解決這個問題嗎？坦克
Word的代碼（使用MS-Access VBA）：
Sub OpenDoc()
Dim WordApp As Object, WordDocAs String
WordDoc = "C:UsersMeDesktopDocument01.docx"。
Set WordApp = CreateObject("Word.Application"/span>)
WordApp.Visible = True[/span]。
WordApp.Documents.Open (WordDoc)
End Sub
IE的代碼：
Sub openIE()
Dim oIE As InternetExplorer
Set oIE = New InternetExplorer
URL = xxx
With oIE
.Visible = True[/span
.Navigate2 URL
.激活
Do While .readyState <> READYSTATE_COMPLETE
辦事機構
回圈。
結束 有
'or With
'With oIE
'.Visible=True'。
' .Navigate2 URL[/span
' .激活 ' .激活
' END WITH
'/span>
' Do While IE.readyState <> READYSTATE_COMPLETE
' DoEvents
' 回圈 ' 回圈
End Sub
uj5u.com熱心網友回復：
試試這個
Sub OpenDoc()
Dim WordApp As Object, WordDocAs String
WordDoc = "C:UsersMeDesktopDocument01.docx"。
Set WordApp = CreateObject("Word.Application"/span>)
WordApp.Visible = True[/span]。
WordApp.Documents.Open (WordDoc)
WordApp.激活
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/320214.html
標籤：