🚀 go-pugleaf

W dniu 2016-11-30 o 22:11, Zbigniew Bratko pisze:
> 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
>>>

Być może najłatwiej będzie zaimportować Arkusz roboczy do tabeli, 
utworzyć kwerendę pobierającą potrzebne dane i tą kwerendę wyeksportować 
do pliku *.csv.

Call ImportFromExcel("tblTestCsvBis", CurrentProject.Path & "\" & _
                      "TestCsv.xlsx", "DaneTestCsv")

'___________________________________________________
Private Sub ImportFromExcel(strTableName As String, _
                             strFilePath As String, _
                             strWorksheet As String)

   CurrentDb.Execute "DELETE * FROM " & strTableName
   DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel97, _
           strTableName, strFilePath, True, strWorksheet & "$"

End Sub

i w poniższej procedurze zmienić wartość stałej Const conTblName As 
String na "qryJakiasNazwa"


Najpierw zrób próbny eksport i zapisz specyfikację eksportu by z niej 
skorzystać w procedurze.
Wszystko będzie miało sens jeżeli czynności są powtarzalne, tzn. dotyczą 
takiego samego zestawu danych


>
>
> 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