🚀 go-pugleaf

Wracam !!
Nie udaje mi się tego poprawnie zrobić.
Kod jest następujący:
    Dim db As DAO.Database, qd As DAO.QueryDef
    Dim fd As FileDialog
    Dim exportSQL As String
    Dim i As Integer
    
    Set fd = Application.FileDialog(msoFileDialogSaveAs)

    Set db = CurrentDb
exportSQL = "SELECT FIRMA.Nazwa AS S_Name, FIRMA.Ulica AS S_Address, FIRMA.Kod AS S_Zip, FIRMA.Miasto AS S_City, FIRMA.telefon AS S_Phone, FIRMA.e_mail AS S_Email, 'Grzegorz Kociumbas' AS S_Contact_Person, [Export DPD2].P_Cat_KP, [Export DPD2].P_Cat_5, [Export DPD2].P_Cat_10, [Export DPD2].P_Cat_20, [Export DPD2].P_Cat_30, [Export DPD2].P_Cat_50, [Export DPD2].R_Name, [Export DPD2].R_Address, [Export DPD2].R_Zip, [Export DPD2].R_City, [Export DPD2].R_Phone, [Export DPD2].R_Email, [Export DPD2].R_Contact_Person, [Export DPD2].P_Courier_Name, [Export DPD2].P_Comment, [Export DPD2].P_Content, [Export DPD2].A_Terminal, [Export DPD2].P_Cod, [Export DPD2].Time FROM FIRMA, [Export DPD2] WHERE ((([Export DPD2].Wydrukowane)=2));"

    'Check to see if querydef exists
    For i = 0 To (db.QueryDefs.Count - 1)
        If db.QueryDefs(i).Name = "tmpExport" Then
            db.QueryDefs.Delete ("tmpExport")
            Exit For
    End If
    Next i

    Set qd = db.CreateQueryDef("tmpExport", exportSQL)

    'Set intial filename
    fd.InitialFileName = "x:\export_" & Format(Date, "yyyymmdd") & ".csv"

    If fd.show = True Then
        If Format(fd.SelectedItems(1)) <> vbNullString Then
            DoCmd.TransferText acExportDelim, "Export Specyfikacja eksportu", "tmpExport", fd.SelectedItems(1), True, , 852
        End If
    End If

    'Cleanup
    db.QueryDefs.Delete "tmpExport"
    db.Close
    Set db = Nothing
    Set qd = Nothing
    Set fd = Nothing

I jest poprawnie wykonywany, ale w efekcie otrzymuję plik podobno typu csv, ale dopiero po jego otwarciu i zapisaniu jako csv (tu informuje, że zostaną utracone formuły), plik jest poprawnie wczytywany przez aplikację zewnętrzną. Przed tą operacją plik jest nierozpoznawalny.

W związku z tym czy ktoś mógłby mi podrzucić dalszy ciąg tzn uruchomienie w tle tego pliku, zapisanie jako csv, wyłączenie komunikatu i na koniec zamknięcie excela ??

Jan