如何使用SHDocVw.InternetExplorer命令最大化由VBA創建的IE窗口？

Question

正如標題所說，我試圖最大化使用以下命令創建一個Internet Explorer窗口：

Set ie = New SHDocVw.InternetExplorer 

相反的：

Set ie = CreateObject("InternetExplorer.Application") 

---

下面是完整的代碼：

Sub wpieautologin() 
Dim ie As SHDocVw.InternetExplorer 

Dim NOME_EMPRESA, CNPJ, CPF, COD_ACESSO As String 
Dim Lookup_Range As Range 

Set ie = New SHDocVw.InternetExplorer 
ie.Visible = False 
ie.Navigate "http://www8.receita.fazenda.gov.br/simplesnacional/controleacesso/autentica.aspx?id=6" 

NOME_EMPRESA = Range("B8").Value 
Set Lookup_Range = Range("B12:E500") 

CNPJ = Application.WorksheetFunction.VLookup(NOME_EMPRESA, Lookup_Range, 2, False) 
CPF = Application.WorksheetFunction.VLookup(NOME_EMPRESA, Lookup_Range, 3, False) 
COD_ACESSO = Application.WorksheetFunction.VLookup(NOME_EMPRESA, Lookup_Range, 4, False) 

Do 
Loop Until ie.readystate = 4 
Call ie.Document.GetElementByID("ctl00_ContentPlaceHolder_txtCNPJ").SetAttribute("value", CNPJ) 
Call ie.Document.GetElementByID("ctl00_ContentPlaceHolder_txtCPFResponsavel").SetAttribute("value", CPF) 
Call ie.Document.GetElementByID("ctl00_ContentPlaceHolder_txtCodigoAcesso").SetAttribute("value", COD_ACESSO) 
ie.Visible = True 

>'What should I write here to maximize my IE Window? 
>'Already tried a few solutions, but they works only when the IE is created by the command 
>'Set ie = CreateObject("InternetExplorer.Application") 

#INSERT COMMAND TO MAXIMIZE WINDOW HERE 

End Sub 

那麼，我該如何做到這一點？

Answer 1

對於互聯網控制，沒有固有的Window屬性。您需要使用WinAPI。

此代碼將工作：

'/ Win API declaration 
Private Declare Function ShowWindow Lib "user32" _ 
     (ByVal hwnd As Long, ByVal nCmdSHow As Long) As Long 
     Const SW_SHOWMAXIMIZED = 3 

Sub wpieautologin() 

Dim ie As SHDocVw.InternetExplorer 

Dim NOME_EMPRESA, CNPJ, CPF, COD_ACESSO As String 
Dim Lookup_Range As Range 

Set ie = New SHDocVw.InternetExplorer 
ie.Visible = False 

ie.Navigate "http://www8.receita.fazenda.gov.br/simplesnacional/controleacesso/autentica.aspx?id=6" 



'// rest of your code.... 


'/ Win API to maximize it. 
'/ Visible prop not required anymore 
ShowWindow ie.hwnd, SW_SHOWMAXIMIZED 
End Sub 

檢查其他窗口狀態下：http://www.techrepublic.com/blog/10-things/10-plus-of-my-favorite-windows-api-functions-to-use-in-office-applications/