IMPORTAR PRODUTOS DO XML DA NFE EM VB6

  Option Explicit
Dim Rst As New ADODB.Recordset
Dim Sql As String
[ô]Dim i As Integer

Private Sub Command3_Click()
Dim arq As String
[ô]arq = Dir(App.Path & [Ô]\Dados\*.xml[Ô])
[ô]Do While arq <> [Ô][Ô]
End Sub

Private Sub BtnNotaFiscal_Click()
On Error Resume Next
    Dim doc As DOMDocument60, Temp(3) As String
    Set doc = New DOMDocument60
   
    Dim cprod As String, nitem As String, vuncom As String, qcom As String, xprod As String, vprod As String, cEAN As String
    Dim CFOP As String, NCM As String
    Dim sBn As String, uCom As String
    Dim qtdProd As String
    
    Dim vipi As String
    Dim vicmsst As String
    Dim vfrete As String
    Dim vicmsdeson As String
    Dim pICMS As String
    Dim vbc As String
    Dim vICMS As String
    Dim voutro As String
    Dim vdesc As String
    Dim vseg As String
    Dim nNF As String
    
    Dim Caminho As String
    Dim XMLdoc As Object
    Dim i As Integer
    Dim CountRow As Integer
    Set XMLdoc = CreateObject([Ô]Microsoft.XMLDOM[Ô])
    XMLdoc.async = False
   [ô]Caminho = [Ô]caminho da sua nota fiscal completo[Ô]
    Caminho = [Ô]C:\Dados\WS_000000127243186_21150510369130000150550010002488711111019055.xml[Ô]
    XMLdoc.Load (Caminho)
 
    qtdProd = XMLdoc.getElementsByTagName(sBn & [Ô]infNFe/det[Ô]).length [ô]Contando quantos itens tem o nó det (detalhes)
    FlexGrid.Clear
    For i = 1 To qtdProd - 1 [ô]Varrendo todos os itens
        cprod = CStr(XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).selectNodes([Ô]prod/cProd[Ô]).Item(0).text)
        nitem = CStr(XMLdoc.getElementsByTagName([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).Attributes(0).Value)
        vuncom = Replace(XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).selectNodes([Ô]prod/vUnCom[Ô]).Item(0).text, [Ô].[Ô], [Ô],[Ô])
        qcom = Replace(XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).selectNodes([Ô]prod/qCom[Ô]).Item(0).text, [Ô].[Ô], [Ô],[Ô])
        xprod = CStr(XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).selectNodes([Ô]prod/xProd[Ô]).Item(0).text)
        vprod = Replace(XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).selectNodes([Ô]prod/vProd[Ô]).Item(0).text, [Ô].[Ô], [Ô],[Ô])
        cEAN = Replace(XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).selectNodes([Ô]prod/cEAN[Ô]).Item(0).text, [Ô].[Ô], [Ô],[Ô])
        CFOP = Replace(XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).selectNodes([Ô]prod/CFOP[Ô]).Item(0).text, [Ô].[Ô], [Ô],[Ô])
        NCM = Replace(XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).selectNodes([Ô]prod/NCM[Ô]).Item(0).text, [Ô].[Ô], [Ô],[Ô])
        uCom = Replace(XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).selectNodes([Ô]prod/uCom[Ô]).Item(0).text, [Ô].[Ô], [Ô],[Ô])
        qcom = Replace(XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).selectNodes([Ô]prod/qcom[Ô]).Item(0).text, [Ô].[Ô], [Ô],[Ô])
        vuncom = Replace(XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).selectNodes([Ô]prod/vuncom[Ô]).Item(0).text, [Ô].[Ô], [Ô],[Ô])
        
        If XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).selectNodes([Ô]imposto/ICMS[Ô]).length > 0 Then
           pICMS = Replace(XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).selectNodes([Ô]imposto/ICMS/ICMS00[Ô]).Item(0).getElementsByTagName([Ô]pICMS[Ô]).Item(0).text, [Ô].[Ô], [Ô],[Ô])
        End If
        
        [ô]If XMLdoc.selectNodes([Ô]nfeProc/NFe /infNFe/det[Ô]).Item(i).getElementsByTagName([Ô]vICMSST[Ô]).length > 0 Then
        [ô]   vicmsst = Replace(XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).getElementsByTagName([Ô]vICMSST[Ô]).Item(0).text, [Ô].[Ô], [Ô],[Ô])
        [ô]End If

        [ô]If XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).getElementsByTagName([Ô]vFrete[Ô]).length > 0 Then
        [ô]    vfrete = Replace(XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).getElementsByTagName([Ô]vFrete[Ô]).Item(0).text, [Ô].[Ô], [Ô],[Ô])
        [ô]End If
        
        [ô]If XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).getElementsByTagName([Ô]vICMSDeson[Ô]).length > 0 Then
        [ô]    vicmsdeson = Replace(XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).getElementsByTagName([Ô]vICMSDeson[Ô]).Item(0).text, [Ô].[Ô], [Ô],[Ô])
        [ô]End If
       
        [ô]If XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).childNodes(1).childNodes(0).childNodes(0).selectNodes([Ô]pICMS[Ô]).length > 0 Then
        [ô]   pICMS = Replace(XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).childNodes(1).childNodes(0).childNodes(0).selectNodes([Ô]pICMS[Ô]).Item(0).text, [Ô].[Ô], [Ô],[Ô]) / 100
        [ô]End If
        
        [ô]If XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).childNodes(1).childNodes(0).childNodes(0).selectNodes([Ô]vBC[Ô]).length > 0 Then
        [ô]    vbc = Replace(XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).childNodes(1).childNodes(0).childNodes(0).selectNodes([Ô]vBC[Ô]).Item(0).text, [Ô].[Ô], [Ô],[Ô])
        [ô]End If
        
        [ô]If XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).childNodes(1).childNodes(0).childNodes(0).selectNodes([Ô]vICMS[Ô]).length > 0 Then
        [ô]    vICMS = Replace(XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).childNodes(1).childNodes(0).childNodes(0).selectNodes([Ô]vICMS[Ô]).Item(0).text, [Ô].[Ô], [Ô],[Ô])
        [ô]End If
        
        [ô]If XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).selectNodes([Ô]prod/vOutro[Ô]).length > 0 Then
        [ô]    voutro = Replace(XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).selectNodes([Ô]prod/vOutro[Ô]).Item(0).text, [Ô].[Ô], [Ô],[Ô])
        [ô]End If
        
        [ô]If XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).selectNodes([Ô]prod/vDesc[Ô]).length > 0 Then
        [ô]    vdesc = Replace(XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).selectNodes([Ô]prod/vDesc[Ô]).Item(0).text, [Ô].[Ô], [Ô],[Ô])
        [ô]End If
        
        [ô]If XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).selectNodes([Ô]prod/vSeg[Ô]).length > 0 Then
        [ô]    vseg = Replace(XMLdoc.selectNodes([Ô]nfeProc/NFe/infNFe/det[Ô]).Item(i).selectNodes([Ô]prod/vSeg[Ô]).Item(0).text, [Ô].[Ô], [Ô],[Ô])
        [ô]End If

        With FlexGrid
            .Rows = .Rows + 1
             CountRow = CountRow + 1
            .CellDetails .Rows, 1, cprod
            .CellDetails .Rows, 2, xprod
            .CellDetails .Rows, 3, qcom, DT_RIGHT [ô]Unid
            .CellDetails .Rows, 4, uCom, DT_RIGHT [ô]Quant
            .CellDetails .Rows, 5, Format(vuncom, [Ô]###,##0.00[Ô]), DT_RIGHT [ô]Valor Unitário
            .CellDetails .Rows, 6, Format(vprod, [Ô]###,##0.00[Ô]), DT_RIGHT
            .CellDetails .Rows, 7, nitem, DT_CENTER
            .CellDetails .Rows, 8, cEAN, DT_CENTER
            .CellDetails .Rows, 9, CFOP, DT_CENTER
            .CellDetails .Rows, 10, NCM, DT_LEFT
            
            .CellDetails .Rows, 11, vipi
            .CellDetails .Rows, 12, vicmsst
            .CellDetails .Rows, 13, vfrete
            .CellDetails .Rows, 14, vicmsdeson
            .CellDetails .Rows, 15, pICMS
            .CellDetails .Rows, 16, vbc
            .CellDetails .Rows, 17, vICMS
            .CellDetails .Rows, 18, voutro
            .CellDetails .Rows, 19, vdesc
            .CellDetails .Rows, 20, nNF
            
             Rst.MoveNext
        End With
    Next i
    Set XMLdoc = Nothing

End Sub

Private Sub chameleonButton1_Click()

End Sub

Private Sub Form_Load()
 
    With FlexGrid
        .AddColumn 1, [Ô]Id[Ô], , , 80
        .AddColumn 2, [Ô]Descrição[Ô], ecgHdrTextALignLeft, , 500
        .AddColumn 3, [Ô]Quant[Ô], ecgHdrTextALignRight, , 80
        .AddColumn 4, [Ô]UN[Ô], ecgHdrTextALignCentre, , 40
        .AddColumn 5, [Ô]V. Unit.[Ô], ecgHdrTextALignRight, , 100
        .AddColumn 6, [Ô]V. Total[Ô], ecgHdrTextALignRight, , 100
        .AddColumn 7, [Ô]Item[Ô], ecgHdrTextALignCentre, , 0
        .AddColumn 8, [Ô]Cód.Barra[Ô], ecgHdrTextALignCentre, , 150
        .AddColumn 9, [Ô]CFOP[Ô], ecgHdrTextALignCentre, , 70
        .AddColumn 10, [Ô]NCM[Ô], ecgHdrTextALignLeft, , 80
        
        [ô]**************************************************
        .AddColumn 11, [Ô]Desc[Ô], ecgHdrTextALignLeft, , 80
        .AddColumn 12, [Ô]Cód. ST[Ô], ecgHdrTextALignLeft, , 80
        .AddColumn 13, [Ô]ICMS[Ô], ecgHdrTextALignLeft, , 80
        .AddColumn 14, [Ô]IPI[Ô], ecgHdrTextALignLeft, , 80
        .AddColumn 15, [Ô]ICMS[Ô], ecgHdrTextALignLeft, , 80
        .AddColumn 16, [Ô]Cofins[Ô], ecgHdrTextALignLeft, , 80
        .AddColumn 17, [Ô]IPI[Ô], ecgHdrTextALignLeft, , 80
        .AddColumn 18, [Ô]PIS[Ô], ecgHdrTextALignLeft, , 80
        .AddColumn 19, [Ô]Cofins[Ô], ecgHdrTextALignLeft, , 80
        .AddColumn 20, [Ô]Cofins[Ô], ecgHdrTextALignLeft, , 80
    End With
    
    With FlexFGrid
        .AddColumn 1, [Ô]Id[Ô], , , 0
        .AddColumn 2, [Ô]Vencto[Ô], ecgHdrTextALignLeft, , 100
        .AddColumn 3, [Ô]Vlr.[Ô], ecgHdrTextALignRight, , 100
        .AddColumn 4, [Ô]Núm. Duplic[Ô], ecgHdrTextALignLeft, , 120
    End With
    
End Sub


 [txt-color=#e80000]