Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Importare Dati da xml nella directory di lavoro

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Importare Dati da xml nella directory di lavoro

Postdi Francesco53 » 21/04/20 18:10

Un saluto a tutti, importo dei file xml tramite la seguente macro:

Codice: Seleziona tutto
Sub CaricaXML()
Dim intChoice As Integer
Dim strPath As String
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
intChoice = Application.FileDialog(msoFileDialogOpen).Show
If intChoice <> 0 Then
strPath = Application.FileDialog( _
msoFileDialogOpen).SelectedItems(1)
ActiveWorkbook.XmlImport URL:= _
        strPath, ImportMap:=Nothing, _
        Overwrite:=True, Destination:=Range("$A$3")
End If
End Sub


Funziona bene solo che ogni volta devo andare a cercare la directory di lavoro, non riesco a condizionare la dialog alla mia directory di lavoro, ho provato in vari modi ma non va.
Potete per favore dirmi come fare?
Grazie Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 751
Iscritto il: 20/02/10 18:45

Sponsor
 

Re: Importare Dati da xml nella directory di lavoro

Postdi Anthony47 » 21/04/20 22:18

Ad esempio:
Codice: Seleziona tutto
With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = False
    .InitialFileName = "C:\prova\*.xml"               '<<< Percorso + eventuale extension
    intChoice = .Show
End With


Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17003
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Importare Dati da xml nella directory di lavoro

Postdi Francesco53 » 21/04/20 23:10

Ciao Anthony, grazie per l'intervento, purtroppo la macro va in errore, mentre col primo codice che ho postato riusciva a caricare il file.
L'errore avviene quando cerca si caricare il file xml, posto immagine:

Immagine

Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 751
Iscritto il: 20/02/10 18:45

Re: Importare Dati da xml nella directory di lavoro

Postdi Anthony47 » 22/04/20 09:35

Beh, tu avevi chiesto come impostare una directory per la ricerca, e questo io ho spiegato; come poi prelevare la scelta fatta e usarla nel prosieguo della macro lo sapevi gia' fare, ma te lo sei dimenticato :D

Vediamo se cosi' ti sovviene:
Codice: Seleziona tutto
With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = False
    .InitialFileName = ActiveWorkbook.Path    ' ' ' & "\*.pdf"               '<<< Percorso  ' ' ' + eventuale extension
    intChoice = .Show
End With
If intChoice <> 0 Then
    strPath = Application.FileDialog( _
      msoFileDialogOpen).SelectedItems(1)
'etc
'etc
End If

Ciao!
Avatar utente
Anthony47
Moderatore
 
Post: 17003
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Importare Dati da xml nella directory di lavoro

Postdi Francesco53 » 22/04/20 09:48

Ciao Anthony, grazie hai ragione su tutto, il mio problema è che sempre più spesso mi dimentico le cose,
a volte per banalità che non ricordo devo cercare negli appunti oppure rivolgermi a voi.
Grazie
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 751
Iscritto il: 20/02/10 18:45


Torna a Applicazioni Office Windows


Topic correlati a "Importare Dati da xml nella directory di lavoro":


Chi c’è in linea

Visitano il forum: Nessuno e 11 ospiti