🚀 go-pugleaf

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
>

Już prawie 3-ci tydzień mija na Waszej nieustającej walce z eksportem 
kwerendy ExportDoDPD do pliku *.csv w oparciu o Specyfikacje eksportu o 
nazwie "Export11".

Nie wiem, czy dobrze rozumiem Twój problem?
Masz w bazie danych MS Access jakowąś tabelę(e), na której(ych) opierasz 
kwerendę ExportDoDPD. Dane do tabel(i) pobrałeś (zaimportowałeś) z pliku 
Excela.

Korzystając z metody DoCmd.TransferSpreadsheet zapisujesz dane w pliku 
X:\Export_DPD.csv w oparciu o specyfikację "Export11"

I dalej nie bardzo wiem o co chodzi. Jakieś formatowanie, utrata formuł, 
jakiś plik .txt, jakieś Replace. Zamiany pliku *.txt (lub *.xls) na *.csv.

Moim skromnym zdaniem "CÓŚ" takiego powinno zadziałać prawidłowo:

DoCmd.TransferText acExportDelim, "Export11", "ExportDoDPD", 
"X:\Export_DPD.csv", True

Może specyfikacja "Export11" jest do d... (no taka nie za zbytnio ;-))

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.

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.

> albo najpierw wysyłam plik excelowski a potem go zamieniam na csv
>
> Dim WrksheetName As String
> Dim xl As Object
> Set xl = CreateObject("Excel.Application")
>
> xl.Workbooks.Open "X:\Export_DPD.xls"
> DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "ExportDoDPD", "X:\Export_DPD.xls", True
>
> 'Set xl = Nothing
>
> ' Dim AJ As String
> ' Dim AB As String
> '       AJ = "X:\Export_DPD.xls"
> '       AB = "X:\Export_DPD.csv"
> '      fSaveAsXlsx AJ, AB
>
Nie za bardzo rozumiem, o co chodziło Ci w zaremowanych linijkach.
Eksportujesz kwerendę "ExportDoDPD" do pliku  "X:\Export_DPD.xls", a 
potem zmieniasz rozszerzenie na *.csv i ????


> i za każdym razem dostaję plik który jest nieczytany przez aplikację zawnętrzną.
> Dopiero jak otworzę plik i polecę zapis, EXCEL poda komunikat, że zostaną utracone formuły a ja się na to zgodzę, to plik jest akceptowany.

Nie udało mi się wygenerować takiego komunikatu:
...że zostaną utracone formuły

Może więcej szczegółów.

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