Tenho esse codigo, mas esta com erro...

Sub DoIt()
Dim sURL As String
Dim sEnv As String
Dim xmlhtp As New MSXML2.XMLHTTP40
Dim xmlDoc As New DOMDocument

sURL = " http://www.portalfiscal.inf.br/nfe/NFeStatusServico2"

sEnv = "<soap:Envelope xmlns:soap="" http://www.w3.org/2003/05/soap-envelope"" xmlns:nfes="" http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2"">"
sEnv = sEnv & "<soap:Header>"
sEnv = sEnv & "<nfes:nfeCabecMsg>"
sEnv = sEnv & "<versaoDados>2.00</versaoDados>"
sEnv = sEnv & "<cUF>41</cUF>"
sEnv = sEnv & "</nfes:nfeCabecMsg>"
sEnv = sEnv & "</soap:Header>"
sEnv = sEnv & "<soap:Body>"
sEnv = sEnv & "<nfes:nfeDadosMsg>"
sEnv = sEnv & "<consStatServ versao=""2.00"" xmlns="" http://www.portalfiscal.inf.br/nfe"">"
sEnv = sEnv & "<tpAmb>2</tpAmb>"
sEnv = sEnv & "<cUF>41</cUF>"
sEnv = sEnv & "<xServ>STATUS</xServ>"
sEnv = sEnv & "</consStatServ>"
sEnv = sEnv & "</nfes:nfeDadosMsg>"
sEnv = sEnv & "</soap:Body>"
sEnv = sEnv & "</soap:Envelope>"

With xmlhtp
.Open "post", sURL, False
.setRequestHeader "Host", "www.portalfiscal.inf.br/nfe"
.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
.setRequestHeader "soapAction", " http://www.portalfiscal.inf.br/nfe?wsdl"
.setRequestHeader "Accept-encoding", "zip"
.Send sEnv
xmlDoc.LoadXML .responseText
End With
End Sub

Ola bom dia!

ninguém conseguiu nada?

Joas, bom dia.

Meu amigo, infelizmente essa esta sendo uma batalha complicada de ser vencida sozinho.

Estou testando o mesmo código que você postou acima. Eu até consigo uma resposta do WebService, mas com um erro 238 ou 588 da tabela WS, constante na NT 2012-02 da NFe.

O maior problema é enviar a solicitação com a identificação do Certificado Digital e, até o momento, não vi nenhuma biblioteca ou rotina que permita fazer isso, a não ser que seja desenvolvido uma Dll em outra plataforma (C#, VB.Net, Delphi, etc), a qual seja referenciada em sua planilha.

Estou na busca constante desse trabalho, mas ainda não consegui nada.

Se conseguir algum resultado, da um retorno.

Se quiser, pode me adicionar no skype e trocamos uma ideia.

Abraços e bom final de semana.