Avatar billede sjokoman Juniormester
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
Avatar billede supertekst Ekspert
08. november 2012 - 14:18 #1
Hej Johnny

Prøv at sende en prøve på Excelfilen - så skal jeg se på det.

Mvh
Supertekst
Avatar billede KurtOA Praktikant
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
Avatar billede sjokoman Juniormester
08. oktober 2014 - 16:50 #3
Du hjalp i sin tid, tak. jeg er dog ikke kommet videre med det.
Avatar billede supertekst Ekspert
08. oktober 2014 - 17:40 #4
Selv tak - og hvad nu?
Avatar billede sjokoman Juniormester
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
Avatar billede supertekst Ekspert
18. december 2015 - 09:33 #6
Hej Johnny

Du får et svar og ønsket om en god jul...
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester