Lettura file xml con vba access

di
riddik
il
34 risposte

34 Risposte - Pagina 3

  • W
    weldox
    Pochi posts
    Iscritto da
    mar, 2012
    Messaggi:
    49

    Re: Lettura file xml con vba access

    Grazie Alex,

    Inizio a studiare un po' alla luce dei consigli che hai dato.
  • O
    operaseconda
    Pochi posts
    Iscritto da
    lug, 2014
    Messaggi:
    18

    Re: Lettura file xml con vba access

    riddik ha scritto:

    il problema è che se un nodo non esiste mi da erroe e si blocca l'esecuzione
    come posso fare a capire se il nodo esiste prima di leggerlo e farlo bloccare?
    posto il codice fin qui scritto:
    Buongiorno a tutti, sono alle prese con lo stesso problema di riddik . Parsando le linee del body della fattura elettronica, l'esecuzione si blocca quando il tag non esiste. Premetto che non devo riprodurre l'intera fattura ma solo alcuni campi di testata e di dettaglio. Ringrazio fin d'ora chi vorrà suggerirmi una soluzione.

    Set oSeqNodes = oXml.selectNodes("//FatturaElettronicaBody/DatiBeniServizi/DettaglioLinee")
    If oSeqNodes.length = 0 Then
    MsgBox....
    Else
    For Each oSeqNode In oSeqNodes
    Debug.Print oSeqNode.selectSingleNode("Descrizione").Text
    Debug.Print oSeqNode.selectSingleNode("PrezzoUnitario").Text
    Debug.Print oSeqNode.selectSingleNode("Quantita").Text
    Next
    End If
  • W
    weldox
    Pochi posts
    Iscritto da
    mar, 2012
    Messaggi:
    49

    Re: Lettura file xml con vba access

    Io ho fatto così con i campi che possono essere vuoti:

    Dim xDoc As New MSXML2.DOMDocument
    Dim xNode As MSXML2.IXMLDOMNode
    Dim xNodes As IXMLDOMNodeList

    With xDoc
    .Load (PathFattura)
    .async = False
    .validateOnParse = False
    End With


    xmlstring = "//FatturaElettronicaHeader/CedentePrestatore/DatiAnagrafici/Anagrafica/Denominazione"
    Set xNode = xDoc.SelectSingleNode(xmlstring)
    If Not xNode Is Nothing Then
    denominazione = xNode.Text
    Else: denominazione = Null
    End If
  • O
    operaseconda
    Pochi posts
    Iscritto da
    lug, 2014
    Messaggi:
    18

    Re: Lettura file xml con vba access

    weldox ha scritto:

    Io ho fatto così con i campi che possono essere vuoti:

    Dim xDoc As New MSXML2.DOMDocument
    Dim xNode As MSXML2.IXMLDOMNode
    Dim xNodes As IXMLDOMNodeList

    With xDoc
    .Load (PathFattura)
    .async = False
    .validateOnParse = False
    End With


    xmlstring = "//FatturaElettronicaHeader/CedentePrestatore/DatiAnagrafici/Anagrafica/Denominazione"
    Set xNode = xDoc.SelectSingleNode(xmlstring)
    If Not xNode Is Nothing Then
    denominazione = xNode.Text
    Else: denominazione = Null
    End If
    Un sentito grazie a Weldox per la dritta, per ora ho tamponato con la gestione dell'errore ma appena possibile correggo il codice. Buon lavoro a tutti.
  • O
    operaseconda
    Pochi posts
    Iscritto da
    lug, 2014
    Messaggi:
    18

    Re: Lettura file xml con vba access

    Buongiorno, espongo un problema: il file xml caricato come oggetto DOMDocument mi impedisce di rinominare la folder che lo contiene con i dati della fattura, in quanto il file risulta ovviamente aperto. Come posso risolvere o aggirare l'ostacolo. Ho il terrore che qualcuno mi risponda "Chiudilo"... Grazie in anticipo.
Devi accedere o registrarti per scrivere nel forum
34 risposte