🚀 go-pugleaf

W dniu 2016-11-30 o 21:21, Zbigniew Bratko pisze:
> W dniu 2016-11-21 o 12:31, Jan Koc pisze:
>> Witam
>> Od pewnego czasu boksuję się z wyeksportowaniem kwerendy "ExportDoDPD"
>> do pliku csv (skoroszyt excela z polami rozdzielonymi średnikami)
>> próbowałem bezpośrednio
>>
>> Specyfikacja exportu "Export11" do pliku tekstowego .csv
>>
>> DoCmd.TransferText acExportDelim, "Export11", "ExportDoDPD",
>> "X:\Export_DPD.csv", True
>>

Uczyniłem, jak proponowałem:

> Proponuję, byś utworzył nowa bazę, a w niej prostą tabelę o kilku polach:
> np. Nazwisko, data urodzenia, miasto, wiek
> zapisać w niej ze trzy rekordy i spróbować wyeksportować tabelę do pliku
> *.csv, zapisując wcześniej specyfikację eksportu.
> Potem otworzyć zapisany plik w Notatniku i popatrzeć co się zapisało i
> czy taki plik czyta Excel.

Mój plik *.csv Excel czyta

> Następny etap, to korzystając z metody DoCmd.TransferSpreadsheet zapisz
> dane w pliku w oparciu o zapisana, "NOWĄ" specyfikację.
>
> I znowu popatrz co się zapisało.

Zapisało mi się takie "CÓŚ":

"ID";"Nazwisko";"Miasto";"DataUr";"Wiek"
1;"Kowalski";"Kraków";2010-11-30 00:00:00;6
2;"Nowak";"Lublin";2011-11-2 00:00:00;5
3;"Malinowski";"Warszawa";2000-11-2 00:00:00;16


Mój kod:

Private Sub Polecenie0_Click()
Dim strFullPath As String
Const conFileNameCSV As String = "TestCsv.csv"
Const conTblName As String = "tblTestCsv"
Const conSpecyficationName As String = "MojaSpecyfikacja"

   strFullPath = CurrentProject.Path & "\" & conFileNameCSV
   DoCmd.TransferText acExportDelim, conSpecyficationName, conTblName, 
strFullPath, True

End Sub

Plik *.csv zapisany zostanie w katalogu bazy.

-- 
Pozdrowienia
BraZby
www.faq.accdb.pl
www.accdb.pl