Sub EksportAsCSVDK(strFileName As String, rngOmr As Range) Const Delim As String = ";" 'afgrænser (delimiter) Dim y As Long 'tæller Dim x As Long 'tæller Dim strTemp As String 'streng til de enkelte rækker Dim lRows As Long 'antal rækker Dim lCols As Long 'antal kolonner Dim lFno As Long 'fil nummer
lFno = FreeFile lRows = rngOmr.Rows.Count lCols = rngOmr.Columns.Count Open strFileName For Output As #lFno
For x = 1 To lRows strTemp = "" For y = 1 To lCols strTemp = strTemp & rngOmr(x, y).Text If y < lCols Then strTemp = strTemp & Delim Else Print #lFno, strTemp End If Next
1) åpen csv-filen i excel 2) skriv inn tallet 10 i en tom celle 3) merk cellen og trykk ctrl+c ( kopier) 4) merk de kolonner som skal divideres med 0 5) velg -REDIGER -> LIM INN UTVALG - kryss av for divider og ok
Problemet er, när jeg gemmer som csv, kan jeg ikke bestemme med hvilket tegn kolonnerne skal adskilles. De adskilles automatisk med komma (,). Det har jeg nu gjort, og derefter sat Editor til at erstatte samtlige kommaer (,) med semikolon (;)!
i excel 2003 tror jeg det finnes flere valg for å lagre som csv det ene skal være som semikolonseparert. Hvis ikke, prøv å lagre som txt-fil. du kan jo endre filendelsen til csv. i ettertid
Jeg gemte filen som csv. Herved blev kolonnerne adskilt med komma (,). Derefter äbnede jeg filen i Editor, og lavede en sög og erstat (sög komma og erstat med semikolon). Jeg havde et enkeltstäende problem, som nu er löst, og derfor behöver jeg ikke en smartere mäde at klare det pä i fremtiden...
OK jeg benytter excel 2003 under windows XP, der er det mulig å lagre en excelbok som kun inneholder 1 ark, ..til formatet: semikolondelt csv fil. har like testet, :-)
Synes godt om
Ny brugerNybegynder
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.