Importazione di un testo con separatori tramite VBA

Question

Sto tentando di automatizzare l'aggiunta di nuovi file txt, che hanno tutti lo stesso layout (noto).

Le colonne sono separate utilizzando le schede (il pulsante TAB). È possibile farlo in VBA come nella procedura guidata di accesso per importare file di testo?

Sto usando il metodo DoCmd.TransferText in VBA

Answer 1

Avrai bisogno di passare attraverso la procedura guidata una volta per rendere il vostro file di specifica. Per fare ciò, importa il tuo file di testo come normale, ma prima di entrare troppo in profondità nella procedura guidata fai clic su in basso a sinistra, il pulsante "Avanzate ...". Qui è dove si crea il file spec.

Fai ll queste colonne abbinare il vostro file di input, i tipi di dati e di tutti. Assicurati di selezionare il delimitatore di campo {tab} e il qualificatore di testo appropriato se ne stai usando uno.

Salva il tuo spec (che può essere successivamente modificato da tornare in questo stesso schermo e cliccando Specs... quindi un risparmio di oltre il vostro vecchio)

Ora è possibile utilizzare in VBA come questo

DoCmd.TransferText acImportDelim, "your spec name", "destination table name", sourceFilePath 

C'è un parametro HasFieldNames che dovrai decidere se è true o false in base al tuo file.

Answer 2

Con il wizard di importazione lo svantaggio è che anche per il minimo cambiamento nel formato di file, dovrai fare clic su tutti questi passaggi ancora una volta per far funzionare l'importazione.

Verificare @ risposta di Remou in ms Access import table from file in a query per un modo per farlo in SQL dritto. In realtà sto usando lo stesso metodo in un mio progetto. Io uso qualcosa del genere (vedi il mio link per i dettagli):

insert into MyTable (column-list...) 
select (column-list...) 
from [data-source-specifications].[file-name] 
any-other-clauses...; 

Solo un avvertimento. Se si inserisce questa sintassi SQL in un oggetto di query Access normale, è probabile che Access lo interrompa fino al punto in cui non sarà nemmeno in grado di aprire l'oggetto query. Quindi componi e salva la query in un file di testo mentre lo provi in ​​Access. Una volta che la query è testato e funzionante, salvarlo in una subroutine VBA in modo che l'accesso verrà eseguito esattamente come è, in questo modo:

sub MyTableImport() 
    sqlStr = "   insert into MyTable (column-list) " ' leave a space at the 
    sqlStr = sqlStr & "select (column-list...) " ' end of each line of the string 
    sqlStr = sqlStr & "from [data-source-specifications].[file-name] " 
    sqlStr = sqlStr & "any-other-clauses... ;" 

    DoCmd.RunSQL sqlStr 
end sub