Boas,

Criei um código para converter um texto JSON para excel.

Para obter o código tenho de fazer login no website primeiro.

Tem alguma forma de obter diretamente esta informação do site sem ter de colar na celula?

Obrigado.

PS: Não consigo anexar o ficheiro pois diz que é muito grande.

Sub ConverterJsonEfatura()
Dim jsonText As String
Dim jsonObject As Object, item As Object
Dim i As Long
Dim ws As Worksheet

Set ws = Worksheets("Folha1")

jsonText = ws.Cells(1, 1)

Set jsonObject = JsonConverter.ParseJson(jsonText)

i = 3

For Each item In jsonObject("linhas")
    ws.Cells(i, 1) = item("idDocumento")
    ws.Cells(i, 2) = item("origemRegisto")
    ws.Cells(i, 3) = item("origemRegistoDesc")
    ws.Cells(i, 4) = item("nifEmitente")
    ws.Cells(i, 5) = item("nomeEmitente")
    ws.Cells(i, 6) = item("nifAdquirente")
    ws.Cells(i, 7) = item("nomeAdquirente")
    ws.Cells(i, 8) = item("tipoDocumento")
    ws.Cells(i, 9) = item("tipoDocumentoDesc")
    ws.Cells(i, 10) = item("numerodocumento")
    ws.Cells(i, 11) = item("dataEmissaoDocumento")
    ws.Cells(i, 12) = item("valorTotal") / 100
    ws.Cells(i, 13) = item("valorTotalBaseTributavel") / 100
    ws.Cells(i, 14) = item("valorTotalIva") / 100
  
    i = i + 1
Next

End Sub