Как закрыть лист xls после запуска макроса автоматически

Question

У меня есть следующий макрокоманд, это автоматически запустит макрос и войдет в указанный сайт. Но листы xls остаются открытыми.

----------------------------------------------------------------- 
Sub Auto_open() 

login 

End Sub 


Sub login() 
Dim IntExpl As Object 
Set IntExpl = CreateObject("InternetExplorer.Application") 
Dim dd As Object 
Dim dd1 As Object 
Dim dd2 As Object 
Dim dd3 As Object 

With IntExpl 
     .navigate "........." 
     .Visible = True 
    ' If (.Document.getElementById("LoginUsername").exist) Then 
     Do Until IntExpl.ReadyState = 4 
     Loop 
     Set dd = .Document.getElementById("LoginUsername") 
     dd.Value = "AAAAA" 
     dd.Click 
     Set dd1 = .Document.getElementById("LoginPassword") 
     dd1.Value = "AAAAAA" 
     dd1.Click 
     Set dd2 = .Document.getElementById("loginBtn") 
     dd2.Click 


End With 
End Sub 
------------------------------------------------------------------------------- 

Я хочу закрыть файл xls также после запуска всего макроса.

Answer 1

Вы можете определить свою книгу, а затем закрыть ее после завершения макроса.

Sub Auto_open() 

Dim wb as Workbook 
set wb = ActiveWorkbook 
login 
wb.close 
End Sub 


Sub login() 
Dim IntExpl As Object 
Set IntExpl = CreateObject("InternetExplorer.Application") 
Dim dd As Object 
Dim dd1 As Object 
Dim dd2 As Object 
Dim dd3 As Object 

With IntExpl 
     .navigate "........." 
     .Visible = True 
    ' If (.Document.getElementById("LoginUsername").exist) Then 
     Do Until IntExpl.ReadyState = 4 
     Loop 
     Set dd = .Document.getElementById("LoginUsername") 
     dd.Value = "AAAAA" 
     dd.Click 
     Set dd1 = .Document.getElementById("LoginPassword") 
     dd1.Value = "AAAAAA" 
     dd1.Click 
     Set dd2 = .Document.getElementById("loginBtn") 
     dd2.Click 


End With 
End Sub