Como salvar conteudo de um web browser em arquivo xml

[Lucianorw]

Ola,

Existe a possibilidade de se salvar o conteudo de web browser em arquivo xml?

Luciano

[Graymalkin]

O conteúdo é XML? Se for, não basta gravar em um arquivo texto o document.innerhtml?

Abraços,

Graymalkin

[Lucianorw]

O conteúdo é XML? Se for, não basta gravar em um arquivo texto o document.innerhtml?

Abraços,

Graymalkin

Ola Graymalkin,

Quando copio e colo o link, com os dados necessarios para consulta, no navegador, se vou em Arquivo>Salvar como, ele salva em xml normal, ai ate consigo importar as tabelas, mas com o web browser da erro.

Tudo isso é relacionado aquele problema que voce está me ajudando.

Grato

Luciano

[Graymalkin]

Como você está fazendo exatamente? Qual o código usado?

Abraços,

Graymalkin

[Lucianorw]

Como você está fazendo exatamente? Qual o código usado?

Abraços,

Graymalkin

Resumindo, assim:

Function busca_serasa_concentre()
    vemail = Form_frm_consulta.txt_email
    vsenha = Form_frm_consulta.txt_senha
    vdoc = Form_frm_consulta.txt_documento

    url = "http://www.consultacpf.com/webservices/test-drive/consultacpf.asmx/ConsultaConcentreSERASA?EMail=" & vemail & "&Senha=" & vsenha & "&Documento=" & vdoc & ""
    Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
    xmlhttp.Open "GET", url, False
    xmlhttp.Send ""
    xmlhttp_resultado = xmlhttp.responseText
    Set xmlhttp = Nothing
    Dim v_txt As Variant
    Open "c:\temp\teste.xml" For Output As #1
    With v_txt
        Print #1, xmlhttp_resultado
    End With
    Close #1
End Function

Desse modo, eu executo a consulta, salvo o xml, importo as tabelas, leio os dados e apresento ao usuario, tudo automático.

E até que ficou legal, mas ainda estou com um pé atrás.

Que acha?

Luciano

[Graymalkin]

Bom, se está funcionando, então acho que você deveria usar assim mesmo. Somente testes na prática dirão se isso é válido ou não.

Abraços,

Graymalkin