Este fórum está sendo desativado

[fcarlosc2018]

Boa-tarde galera

Qual o método via código VBA para "Salvar como" página html em uma determina pasta no PC.
A parte de abrir a página já funciona, porém a outra que é salvar como, até salva mas quando eu abro o arquivo está em branco.
Estou usando esse código:

Código: Selecionar todos

Sub AbrirPagina()

On Error GoTo sair

ActiveWorkbook.FollowHyperlink "http://www.google.com.br", NewWindow:=True

ActiveWorkbook.SaveAs _
Filename:="C:\Teste\Google.html", _
FileFormat:=xlHtml

Exit Sub
sair: MsgBox Err.Description

End Sub

Att,
Francisco

[mucascosta]

O arquivo gerado pelo código refere-se a Planilha e não a página web...

[Raygsson]

Se voce quiser apenas baixar o HTML da página não precisa nem abrir o navegador, pode usar este código:

Código: Selecionar todos

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _
ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Sub Download()
Dim URL As String, LocalSalvar As String

URL = "http://www.google.com.br"
LocalSalvar = ThisWorkbook.Path & "\teste.html"
Call URLDownloadToFile(0, URL, LocalSalvar, 0, 0)

End Sub

[fcarlosc2018]

Bom-dia

Obrigado Raygsson.

Att,
Francisco