Sådan formateres CSV-kolonner som tekst i Excel: Trin-for-trin guide

Hvordan kan alle kolonner i CSV-filer altid formateres som tekst ved åbning i Excel, uden manuelt at skulle vælge hver kolonne under import, specielt i Excel 2003, men også gerne for Excel 2007?

For at formatere alle kolonner i CSV-filer som tekst ved åbning i Excel, skal du bruge Text Import Wizard i både Excel 2003 og 2007, eller automatisere processen med VBA.

Sådan formateres alle kolonner i CSV-filer som tekst ved åbning i Excel

For at sikre, at alle kolonner i CSV-filer altid formateres som tekst ved åbning i Excel, kan du følge disse trin. Dette gælder specielt for Excel 2003, men også for Excel 2007.

Excel 2003

1. Åbn Excel.
2. Gå til Data menuen og vælg Import External Data og derefter Import Data.
3. Vælg din CSV-fil og klik på Import.
4. I Text Import Wizard:
   1. Vælg Delimited og klik Next.
   2. Vælg de relevante afgrænsere (f.eks. komma) og klik Next.
   3. Vælg alle kolonner i datavisningen nederst i vinduet.
   4. Vælg Text som kolonneformat og klik Finish.
5. Vælg, hvor dataene skal placeres i regnearket, og klik OK.

Excel 2007

1. Åbn Excel.
2. Gå til Data fanen og klik på From Text i Get External Data gruppen.
3. Vælg din CSV-fil og klik på Import.
4. I Text Import Wizard:
   1. Vælg Delimited og klik Next.
   2. Vælg de relevante afgrænsere (f.eks. komma) og klik Next.
   3. Vælg alle kolonner i datavisningen nederst i vinduet.
   4. Vælg Text som kolonneformat og klik Finish.
5. Vælg, hvor dataene skal placeres i regnearket, og klik OK.

Automatisering med VBA (for både Excel 2003 og 2007)

Hvis du ofte arbejder med CSV-filer og ønsker at automatisere processen, kan du bruge VBA (Visual Basic for Applications) til at importere og formatere dataene som tekst.

Sub ImportCSVAsText()
    Dim ws As Worksheet
    Dim filePath As String
    Dim qt As QueryTable
    
    ' Sæt stien til din CSV-fil
    filePath = "C:\path\to\your\file.csv"
    
    ' Tilføj et nyt ark til at importere dataene
    Set ws = ThisWorkbook.Sheets.Add
    
    ' Opret en QueryTable for at importere CSV-filen
    Set qt = ws.QueryTables.Add(Connection:="TEXT;" & filePath, Destination:=ws.Range("A1"))
    
    With qt
        .TextFileParseType = xlDelimited
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileColumnDataTypes = Array(1) ' 1 betyder tekstformat for alle kolonner
        .Refresh BackgroundQuery:=False
    End With
End Sub

Ved at køre denne VBA-kode vil alle kolonner i den specificerede CSV-fil blive importeret som tekst.