问题描述
当我通过 VBA 打开各种应用程序时,我总是遇到这个问题。 Internet Explorer、Word、Excel 等,都打开了,甚至文档也打开了,但任务栏上的窗口保持最小化,必须手动打开。我在使用不同版本的 Office 的几台计算机上也遇到此问题。 (Windows 10 专业版、Office 2019 专业版和 Office 365),所有这些都存在同样的问题。有没有人对此有解决方案?坦克
Word 代码(使用 MS-Access VBA):
Sub OpenDoc()
Dim WordApp As Object,WordDoc As String
WordDoc = "C:\Users\Me\Desktop\Document01.docx"
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
WordApp.Documents.Open (WordDoc)
End Sub
IE 代码:
Sub openIE()
Dim oIE As InternetExplorer
Set oIE = New InternetExplorer
URL = xxx
With oIE
.Visible = True
.Navigate2 URL
.Activate
do while .readyState <> READYSTATE_COMPLETE
DoEvents
Loop
End With
'or
'With oIE
' .Visible = True
' .Navigate2 URL
' .Activate
'End With
'
' do while IE.readyState <> READYSTATE_COMPLETE
' DoEvents
' Loop
End Sub
解决方法
试试这个
Sub OpenDoc()
Dim WordApp As Object,WordDoc As String
WordDoc = "C:\Users\Me\Desktop\Document01.docx"
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
WordApp.Documents.Open (WordDoc)
WordApp.Activate
End Sub