Come esportare una tabella in ordine crescente in .csv?

Question

Dividi da questo thread.

Come esportare una tabella in ordine crescente in .csv?

Mi dicesti che era possibile farlo tramite query... ...

Per esportare una tabella nuda e cruda in formato .xlsx uso:

'Esporta Soggetto in foglio Excel

   Dim DFilename As String

'Path e file name per mdb file

   DFilename = CurrentProject.Path & "\EsportaImporta" & "Soggetto Export.xlsx"

'Accertati che non esista il file

   If Dir(DFilename) <> "" Then Kill DFilename

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Soggetto", CurrentProject.Path & "\EsportaImporta" & "Soggetto Export.xlsx"

MsgBox "Foglio Elettronico Esportato con successo"

Sarebbe possibile adattare queste istruzioni per risolvere il mio problema?

Cortesemente, potresti darmi indicazioni in merito?

Answer 1

Ciao,

la sintassi è:

DoCmd.TransferText(TipoTrasferimento,NomeSpecifica, NomeTabella, NomeFile, NomiCampo,NomeTabellaHTML, TabellaCodici)

Mimmo

Answer 2

Ciao,

prova con:

    DoCmd.TransferText acExportDelim, , "Query_Soggetto_filtrato", CurrentProject.Path & "\EsportaImporta" & "Soggetto Export.csv", True

Ciao Mimmo

Answer 3

Ciao,

penso che ne esci solo effettuando l'export manualmente e salvandoti le specifiche di esportazione che riporti nell'istruzione   DoCmd.TransferText .

Ciao Mimmo

Answer 4

Purtroppo ne ricevo un errore di run-time 3441:

il separatore di campo nella specifica dei file di testo corrisponde al separatore decimale o al delimitatore di testo.

Ecco il listato:

Private Sub Filtro_csv_Click()

  Dim DFilename As String

DFilename = CurrentProject.Path & "\EsportaImporta" & "Soggetto Export.csv"

If Dir(DFilename) <> "" Then Kill DFilename

DoCmd.TransferText acExportDelim, , "Query_Soggetto_filtrato", CurrentProject.Path & "\EsportaImporta" & "Soggetto Export.csv", True

End Sub

Potrei cambiare in:

DoCmd.TransferText acExportDelim = 2, , "Query_Soggetto_filtrato", CurrentProject.Path & "\EsportaImporta" & "Soggetto Export.csv", True

Ne riceverei invece un errore di run-time 3011:

il motore di database Microsoft Access non è in grado di trovare l'oggetto 'Soggetto Export.csv'. Assicurarsi che l'oggetto esista e che il nome e il percorso digitati siano corretti... ... ...

Effettivamente ho sperimentato diverse soluzioni col risultato di una generazione di errore...

Forse dovrei dichiarare:

Dim  DFilename as Object

???