08. november 2012 - 14:11
Der er
5 kommentarer og
1 løsning
Oprette kommasepareret fil fra Excel til til brug for bankbetalinger
Jeg har en del betalinger gennem netbank, som kan gøres nemmere, hvis jeg kan bruge excel som grundlag og uploade en fil.
Der skal forskellige oplysninger ind, type, kontonummer, fra, til beløb, og alt skal gemmes i en kommasepareret fil til brug for eksport af betalingerne til banken.
Når filen er dannet skal den se således ud:
"ERH356","60601234567","","52120001234567","","","","","123,00","281205","Faktura 123"<EOR>
Komma mellem hvert felt fra Excel.
Sætter jeg gåseøjne ind i Excel, kommer der 4 (2+2) gåseøjne om hvert felt, når jeg gemmer som (MS-DOS).txt. Min kommaseparerede fil ser altså således ud:
""ERH356"",""60601234567"","""",""52120001234567"","""","""","""","""",""123,00"",""281205"",""Faktura 123""<EOR>
Hvad gør jeg forkert?
med venlig hilsen Johnny
09. november 2012 - 12:08
#2
Det kan løses vha VBA....
Her er et lille eksempel der gemmer værdierne fra rækken A6 til F6 som tekstfil i samme mappe som din excelfil ligger.
Det skal indsættes i et kodemodul for at teste det.
Hvis det har interesse kan det udvides således at det læser dine celler fra de ønskede rækker.
Sub test2()
Dim expFile As String, tmp As String
expFile = "bankfil.txt"
Open ThisWorkbook.Path & Application.PathSeparator & expFile For Output As #1
tmp = tmp & """" & Range("A6") & """" & ","
tmp = tmp & """" & Range("b6") & """" & ","
tmp = tmp & """" & Range("c6") & """" & ","
tmp = tmp & """" & Range("d6") & """" & ","
tmp = tmp & """" & Range("E6") & """" & ","
tmp = tmp & """" & Range("F6") & """" & ","
tmp = tmp & "<EOR>"
Print #1, tmp
Close #1
End Sub
mvh Kurt
18. december 2015 - 07:26
#5
Hej supertekst, jeg har ikke afprøvet det. Min bogholder vil ikke have "nye" tiltag :-(
Men en dag gør jeg det selv.
Send mig venligst et svar.
mvh Johnny
