Opgelost export naar CSV

[frankie59]

Goedenavond,

Ik heb een access programma waarmee ik de artikelen en prijzen van mijn groothandel in verwerk om ze vervolgens op mijn website te zetten.
Een tabel met artikelen exportteer ik met de volgende code:

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_nieuwe_artikelen_complies"
  
    'Path of the file to put data in.  Update with your own path:
    excel_file_name = "C:\Prijzenprogramma\Prijzenprogramma\Prijslijsten klaar\Exportlijsten\mutatielijst_Complies.xlsx"
  
     'Kijk of het bestand bestaat en zoja, verwijder deze dan
    If Dir(excel_file_name) <> "" Then Kill excel_file_name
  
    'Export headers with data:
    has_header = True
  
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, table_to_export, excel_file_name
MsgBox "Opmerking:" & vbCrLf & "De mutatielijst van Complies is geexporteerd."

Nu ben ik op zoek naar een manier om de code aan te passen, zodat er een CSV bestand gemaakt wordt.
Dit zou in CSV UTF-8(door komma's gescheiden) moeten zijn.

Heeft iemand een idee?

Ik hoor het heel graag.

Met groeten Frank.[/code]

 

[xps351]

In plaats van DoCmd.TransferSpreadsheet kan je methode DoCmd.TransferText gebruiken.
Zie https://learn.microsoft.com/en-us/office/vba/api/access.docmd.transfertext

 

[OctaFish]

En je eindcode

 mist een slash: dus moet er zo uitzien: [/ code] (zonder de spatie uiteraard.) En hier zit volgens mij nutteloze code in:
[COLOR=#333333][code][/COLOR][COLOR=#333333]has_header = True[/COLOR]

[COLOR=#333333]DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, table_to_export, excel_file_name[/COLOR]

En wel om twee redenen: ten eerste gebruik je de parameter niet, en ten tweede gebruik je een variabele waarvan de lengte 2,5 keer zo lang is als de tekst die je ermee wilt vervangen! Wat is daar het nut/logica van? Wat houdt je tegen om op de plek waar je de waarde TRUE wilt gebruiken ook daadwerkelijk die vier letters te typen, en niet je veel langere variabelenaam? Ik ben dol op het korter maken van procedures. Iets bewust lánger maken doe ik zelden .

 

[frankie59]

Goedenavond,

Ik kom hier niet uit. Ik heb besloten om in Excel op te slaan in csv.
Dan gaat het importeren probleemloos.
Bedankt voor het meedenken.
MVG Frank.