Semikolon-separerer data

Gem som
Filtype: csv

Har forsøgt dette uden held

Må det være via VBA?

VBA? Så længe filen kan gemmes som CSV eller alm. TXT bagefter er det fint...

Tænkte om der ikke er en funktion inde i Excel som kan adskille kolonner med ";"?

>> Har forsøgt dette uden held

Hvad betyder det?
Hvad går galt?
Fejlmeddelelse? - eller hvad!

Anbringes under relevante Ark (Højreklik / Vis programkode)
Kan kaldes fra Excel Alt+F8 Afspil makroen opbygTxtFil
-----------------------------------------------------------

Const filNavn = "SemiKolon.txt"                    'justeres efter ønske
Dim sti As String
Dim sidsteRække As Long, sidsteKolonne As Long
Public Sub opbygTxtFil()
    sidsteRække = ActiveCell.SpecialCells(xlLastCell).Row
    sidsteKolonne = ActiveCell.SpecialCells(xlLastCell).Column
 
    åbnTxtFil
    bygLinjer
    lukTxtFil
End Sub
Private Sub åbnTxtFil()
    sti = ActiveWorkbook.Path                      'henter aktuelle sti
   
    If Right(sti, 1) <> "\" Then
        sti = sti + "\"
    End If
   
Rem Åben fil
    Open sti + filNavn For Output As #1
End Sub
Private Sub lukTxtFil()
    Close #1
End Sub
Private Sub bygLinjer()
Dim lin As String, ræk As Long, kol As Long, skilleTegn As String

    lin = ""
   
    For ræk = 1 To sidsteRække
        For kol = 1 To sidsteKolonne
            If kol <> sidsteKolonne Then
                skilleTegn = ";"
            Else
                skilleTegn = ""
            End If
           
            lin = lin + Cells(ræk, kol) & skilleTegn
        Next kol
       
        Print #1, lin
        lin = ""
    Next ræk
End Sub

Hej,
Hvis du starter med at åbne excel > vælg files > åben > vælg filen.
Når du gør det starter "import data" og i andet vindue her kan du sætte flueben ved Semikolon.

Mfynbo

1

1