Importare Dati da xml nella directory di lavoro

[Francesco53]

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

[Anthony47]

Ad esempio:

Codice: Seleziona tutto

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

Ciao

[Francesco53]

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:



Francesco

[Anthony47]

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

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!

[Francesco53]

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