I have this problem all the time with various applications when I open them via VBA. Internet Explorer, Word, Excel, etc., all open, even the document opens, but the window remains minimized on the taskbar and must be opened manually. I also have this problem on several computers, with different versions of Office. (Windows 10 pro, Office 2019 Pro and Office 365), same problem on all of them. Does anyone have a solution for this? Tanks
Code for Word (with 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
Code for 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
CodePudding user response:
try this
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