anjaddijkstra
Gebruiker
- Lid geworden
- 21 aug 2020
- Berichten
- 29
Goedemiddag,
Ik heb een macro in Excel gemaakt die een steeds wisselend Excel bestand omgebouwd naar een .csv bestand dat moet worden geïmporteerd in een boekhoudpakket.
De macro staat in een losse Excel werkmap, waarin ook een aantal tabbladen zijn opgenomen waar informatie wordt opgezocht middels VERT.ZOEKEN.
De laatste stap is dat het bestand moet worden opgeslagen als een .csv bestand (met , maar ik wil de gebruiker de keuze geven waar het opgeslagen moet worden.
Ik heb hiervoor in de basis (macro) werkmap 2 invoervelden gemaakt:
Mijn (laatste stukje) code ziet er nu als volgt uit, maar ik krijg een foutmelding op de strFileName. Het zal ongetwijfeld iets simpels zijn als een haakje of een komma, maar ik zie het niet meer.
Wie helpt me uit de nood? En ja: ik heb al een aantal topics hierover gelezen, maar ook hiermee kwam ik er niet uit (omdat de cellen niet in het aan te passen werkblad staan).
Hartelijke groet,
Anja Dijkstra
Ik heb een macro in Excel gemaakt die een steeds wisselend Excel bestand omgebouwd naar een .csv bestand dat moet worden geïmporteerd in een boekhoudpakket.
De macro staat in een losse Excel werkmap, waarin ook een aantal tabbladen zijn opgenomen waar informatie wordt opgezocht middels VERT.ZOEKEN.
De laatste stap is dat het bestand moet worden opgeslagen als een .csv bestand (met , maar ik wil de gebruiker de keuze geven waar het opgeslagen moet worden.
Ik heb hiervoor in de basis (macro) werkmap 2 invoervelden gemaakt:
Mijn (laatste stukje) code ziet er nu als volgt uit, maar ik krijg een foutmelding op de strFileName. Het zal ongetwijfeld iets simpels zijn als een haakje of een komma, maar ik zie het niet meer.
Code:
Dim strFileName As Variant
Dim StrPath As String
strFileName = Range("'[Macro import.xlsm]Blad1'!R11C3")
StrPath = Range("'[Macro import.xlsm]Blad1'!R13C3")
ActiveWorkbook.SaveAs Filename:=StrPath & "\" & strFileName, FileFormat:=xlSCV
Wie helpt me uit de nood? En ja: ik heb al een aantal topics hierover gelezen, maar ook hiermee kwam ik er niet uit (omdat de cellen niet in het aan te passen werkblad staan).
Hartelijke groet,
Anja Dijkstra
Laatst bewerkt: