Rendere Path di un'importazione file variabile

Question

Buongiorno a tutti;

avrei la necessità di rendere il percorso dell'importazione di un file TXT in Access variabile.

Leggendo un po i vari articoli on-line ho scoperto che si può fare modificando l' XML dell'importazione stessa ed ho trovato qualcosa che,

(vista la mia poca conoscenza) mi aiuta molto, ma in ogni caso non funziona.

In calce vi riporto il codice che ho trovato in rete che si riferisce ad un'importazione di un file Excel che io ho modificato con i miei percorsi,

Potreste aiutarmi?

Grazie mlle in anticipo

Sub DoExcelImport()
    Dim ies As ImportExportSpecification, i As Long, oldXML() As String, newXML As String

    Const newXlsxFileSpec = "C:\Users\Gord\Desktop\anotherTest.xlsx"  '<----QUESTO VORREI METTERLO COME VARIABILE 

    Set ies = CurrentProject.ImportExportSpecifications("Import-xlsxTest")
    oldXML = Split(ies.XML, vbCrLf, -1, vbBinaryCompare)
    newXML = ""
    For i = 0 To UBound(oldXML)
        If i = 1 Then  
            ' re-write the second line of the existing XML
            newXML = newXML & _
                    "<ImportExportSpecification Path = """ & _
                    newXlsxFileSpec & _
                    """ xmlns=""urn:www.microsoft.com/office/access/imexspec"">" & _
                    vbCrLf
        Else
            newXML = newXML & oldXML(i) & vbCrLf
        End If
    Next
    ies.XML = newXML
    ies.Execute
    Set ies = Nothing
End Sub

Answer 1

Ciao

Sono Abdal e sarei felice di aiutarti con la tua domanda.

Il codice fornito è uno script VBA (Visual Basic, Applications Edition) che modifica il codice XML di una specifica di importazione/esportazione in Microsoft Access per modificare il percorso di un file di Excel importato. Il percorso del file è attualmente hardcoded nello script come costante con il valore "C:\Users\Gord\Desktop\anotherTest.xlsx". Per rendere variabile il percorso di importazione del file, è possibile sostituire questa costante con una variabile che contiene il percorso del file come stringa. È quindi possibile assegnare il percorso desiderato a questa variabile prima di chiamare il metodo Execute dell'oggetto ImportExportSpecification. Ad esempio, è possibile modificare la riga:

Const newXlsxFileSpec="C:\Users\Gord\Desktop\anotherTest.xlsx"

A

Dim newXlsxFileSpec come stringa newXlsxFileSpec="C:\Users\Gord\Desktop\anotherTest.xlsx"

e quindi è possibile modificare il percorso come si desidera prima di chiamare il metodo Execute.

Spero che questa informazione aiuti.

Saluti

Abdal

Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.

Answer 2

Grazie Sinor Abdal avevo un problema con il file importato e dopo mille tentativi pensavo (sbagliandomi) ad un problema con la routine da me postata.

Ora funziona tutto correttamente.

Grazie ancora