Dit is een andere foutmelding dan het verhaal over de export definitie. Ik ben dus nu het spoor bijster: Je bent aan de slag gegaan met mijn verhaal over het helemaal doorlopen van de wizard (dus uit posting #18)?
Tijs.
Tijs.
Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Je kunt een 'exportdefinitie' wel opslaan, maar dat zijn meer de stappen die je zet bij het uitvoeren van een export, niet de gegevensinstellingen. Dat kon je wél in oudere versies van Access t/m 2003, maar dat bestaat dus niet meer. Dat je in de VBA code nog wel een exportdefinitie kan meegeven, is waarschijnlijk een compatibiliteit kwestie. Omdat, voor zover ik weet, een definitie die in een geconverteerde db zit, dus wél gebruikt kan worden. Maar je kan ze niet meer aanmaken. Wat dus verwarring wekt.@OctaFish: Zie de laatste bijlage van posting #5 dat er wel degelijk een export specificatie is opgeslagen en dus (naar ik aanneem) ook effectief gebruikt kan worden in VBA code? [Dus dat een versie van Access wordt gebruikt die wél export specificaties etc. gebruikt/toestaat]?
Fijn dat je alleen van Tijs antwoord wil, maar die heeft er zo te zien geen zin meer in. Dus toch maar een (ongewenst?) antwoord:Nu weet ik niet of dergelijke query kan geëxporteerd worden via .csv.
Jouw probleem ligt niet aan Access, noch aan Excel. Dat de export naar Excel wél lukt is pure logica: dat is een heel ander export format. Kun je niet met elkaar vergelijken. CSV is een tekstformat, XLSX is een Excel format.Ook om na te gaan is het een Access software probleem, een database probleem, .....
Daarom heb ik eens geprobeerd te exporteren naar .xlsx. En, wonderbaarlijk, dat lukt. Toen dacht ik, kan je ook een .xlsx bestand, converteren via vba met wel de juiste 'instelling' tabel naar een .csv bestand.
DoCmd.TransferSpreadsheet acExport, 10, "export", "c:\temp" & full_filename, False
Dim mobjExcApp As Object
Set mobjExcApp = CreateObject("Excel.Application")
With mobjExcApp
.Workbooks.Open ("c:\temp" & full_filename)
.Visible = False
mobjExcApp.ActiveWorkbook.SaveAs ("c:\temp" & filename & ".csv"), FileFormat:=6
End With
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.