tabel exporteren wordt niet geupdate

[frankie59]

Goedemiddag,

IK heb een tabel met artikelen, die ik graag wil exporteren naar een dir op mijn harde schijf.
De code is als volgt:

Dim table_to_export As String
Dim excel_file_name As String
Dim has_header As Boolean

'Name of the Access table to export:
table_to_export = "tbl_mutatielijst_Gistron"

'Path of the file to put data in. Update with your own path:
excel_file_name = "C:\V-LITE Prijzenprogramma\Prijslijsten klaar\Exportlijsten\mutatielijst_Gistron.xlsx"

'Export headers with data:
has_header = True

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, table_to_export, excel_file_name
MsgBox "Opmerking:" & vbCrLf & "De mutatielijst van Gistron is geexporteerd."

Het probleem is nu dat hij de tabel keurig exporteerd naar de dir: C:\V-LITE Prijzenprogramma\Prijslijsten klaar\Exportlijsten\mutatielijst_Gistron.xlsx
Echter als er al een bestand staat met de naam "mutatielijst_Gistron.xlsx, dan gebeurt er niets.
Wanneer ik het bestand verwijder in de Dir, dan gaat het prima.

Heeft iemand een idee hoe ik dit kan realiseren?

Alvast bedankt voor het meedenken.

Met vriendelijke groet,

F. Schuurmans.

 

[edmoor]

Door eerst dit te doen:

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

 

[frankie59]

Bedankt voor je bericht,

IK zal hem wel op een verkeerde plaats gezet hebben, want ik krijg syntax fout
-----------------------------------------

Private Sub Knop67_Click()
If Dir(C:\V-LITE Prijzenprogramma\Prijslijsten klaar\Exportlijsten\mutatielijst_Terra.xlsx) <> "" Then Kill C:\V-LITE Prijzenprogramma\Prijslijsten klaar\Exportlijsten\mutatielijst_Terra.xlsx

Dim table_to_export As String
Dim excel_file_name As String
Dim has_header As Boolean


'Name of the Access table to export:
table_to_export = "tbl_mutatielijst_Terra"

'Path of the file to put data in. Update with your own path:
excel_file_name = "C:\V-LITE Prijzenprogramma\Prijslijsten klaar\Exportlijsten\mutatielijst_Terra.xlsx"

'Export headers with data:
has_header = True

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, table_to_export, excel_file_name
MsgBox "Opmerking:" & vbCrLf & "De mutatielijst van Terra is geexporteerd."
End Sub

 

[edmoor]

Waarom doe je het niet zoals ik liet zien?
Nu heb je het fout gedaan en krijg je inderdaad syntax errrors.

excel_file_name = "C:\V-LITE Prijzenprogramma\Prijslijsten klaar\Exportlijsten\mutatielijst_Gistron.xlsx"
If Dir(excel_file_name) <> "" Then Kill excel_file_name

 

[frankie59]

Hallo,

Ik krijg nu dubbele declaratie.

Private Sub Knop38_Click()

excel_file_name = "C:\V-LITE Prijzenprogramma\Prijslijsten klaar\Exportlijsten\mutatielijst_Gistron.xlsx"
If Dir(excel_file_name) <> "" Then Kill excel_file_name

Dim table_to_export As String
Dim excel_file_name As String
Dim has_header As Boolean

'Name of the Access table to export:
table_to_export = "tbl_mutatielijst_Gistron"

'Path of the file to put data in. Update with your own path:
excel_file_name = "C:\V-LITE Prijzenprogramma\Prijslijsten klaar\Exportlijsten\mutatielijst_Gistron.xlsx"

'Export headers with data:
has_header = True

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, table_to_export, excel_file_name
MsgBox "Opmerking:" & vbCrLf & "De mutatielijst van Gistron is geexporteerd."
End Sub

 

[edmoor]

Beginner in VBA begrijp ik:

Private Sub Knop38_Click()
    Dim table_to_export As String
    Dim excel_file_name As String
    Dim has_header As Boolean
    
[COLOR="#008000"]    'Name of the Access table to export:[/COLOR]
    table_to_export = "tbl_mutatielijst_Gistron"
    
[COLOR="#008000"]    'Path of the file to put data in. Update with your own path:[/COLOR]
    excel_file_name = "C:\V-LITE Prijzenprogramma\Prijslijsten klaar\Exportlijsten\mutatielijst_Gistron.xlsx"
    
[COLOR="#008000"]    'Kijk of het bestand bestaat en zoja, verwijder deze dan[/COLOR]
    If Dir(excel_file_name) <> "" Then Kill excel_file_name
    
[COLOR="#008000"]    'Export headers with data:[/COLOR]
    has_header = True
    
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, table_to_export, excel_file_name
    MsgBox "Opmerking:" & vbCrLf & "De mutatielijst van Gistron is geexporteerd."
End Sub

 

[frankie59]

Hallo,

Als ik hem iets lager plakt werkt het. Bedankt.

---------------------------
Private Sub Knop38_Click()



Dim table_to_export As String
Dim excel_file_name As String
Dim has_header As Boolean
excel_file_name = "C:\V-LITE Prijzenprogramma\Prijslijsten klaar\Exportlijsten\mutatielijst_Gistron.xlsx"
If Dir(excel_file_name) <> "" Then Kill excel_file_name
'Name of the Access table to export:
table_to_export = "tbl_mutatielijst_Gistron"

'Path of the file to put data in. Update with your own path:
excel_file_name = "C:\V-LITE Prijzenprogramma\Prijslijsten klaar\Exportlijsten\mutatielijst_Gistron.xlsx"

'Export headers with data:
has_header = True

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, table_to_export, excel_file_name
MsgBox "Opmerking:" & vbCrLf & "De mutatielijst van Gistron is geexporteerd."
End Sub

 

[edmoor]

Kijk eens in #6.

 

[frankie59]

Dank je Edmoor,

Nou, ik ben geen beginner, maar wel hierin, hahhah
Bedankt voor je hulp.

Fijn weekend.