27. august 2013 - 10:37Der er
9 kommentarer og 1 løsning
Hvorfor er der ikke , i CSV filer?
Jeg har et Excel ark med tre kolonner, som har et "felt navn" i øverste celle. Disse tre kolonner kopiere jeg over i en "resultat" fil, jeg så gemmer som en CSV fil. Resultaterne skal importeres i noget soft ware, men importen fejler. Jeg har så åbnet resultater.csv med notesblok og der kan jer se at data er delt med ; og det er jo ikke et , . Jeg er så nød til lave en søg og erstat for så at gemme filen og importere den uden problemer.
Er der nogen der kan forklare hvordan jeg får , som separator i en CSV fil?
Kontrolpanel\Klokkeslæt, sprog og område\ Klik på 'Internationale/sproglige egenskaber' (Ud for 2. ikon) Klik på 'Flere indstillinger' (Nederst til højre) Se under 'Listeseperator'
i DK er vi nødt til at bruge ; som adskiller i stedet for , da der ellers ville gå ged i den med tal. 10,25 er det 10 og 25 eller lidt over 10? Derfor vil en dansk excel typisk bruge ; som feltadskiller.
I min excel 2007 kan man via office-knappen, excel-indstillinger, fanebladet Populær, sprogindstillinger - sæt den til engelsk. Så vil cvs-filer have komme som adskiller (og punktum som decimaltegn). Du kan let lave en funktionsknap, der skifter til engelsk, og en tilsvarende, der skifter til dansk, så du har det liggende parat.
En lille makro vil være fint, da filen kommer til at blive kørt på flere PC og der dur det ikke at de skal køre "engelsk opsætning" og ændre indstillinger for at afvikle filen en gang om ugen. Det er også bøvlet at gøre det i notesblok.
Indlægges under relevante ark: Kopier VBA-koden / Højre klik på arket / Vis programkode / indsæt koden / Luk VBA-vindue
VBA-kode kan bl.a. aktiveres ved: Alt+F8 / Marker "gemSomCsv" / Afspil
Const filNavn = "udtræk.csv" '<-- justeres Dim filSti As String Dim antalRæk As Integer, ræk As Integer, kol As Integer, linje As String Public Sub gemSomCsv() antalRæk = ActiveCell.SpecialCells(xlLastCell).Row filSti = ActiveWorkbook.Path 'csv-fil gemmes samme lokation som Excel-filen
Open filSti & "\" & filNavn For Output As #1 For ræk = 1 To antalRæk linje = "" For kol = 1 To 3 If kol < 3 Then linje = linje & Cells(ræk, kol) & "," Else linje = linje & Cells(ræk, kol) End If Next kol
Hej ALLE Jeg har ikke glemt jer, men jeg har ikke haft tid til at afprøve de forskellige muligheder. Jeg vender tilbage med accept af svar i løbet af weekenden.
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.
