Når jeg har et regneark i entel XLS eller XLSX, hvor enkelte celler indeholder et linieskift, får jeg problemer når jeg vil gemme til CSV eller TXT. Jeg ville gerne bibeholde cellens tekst som 1 linie, men oftest gemmes den på 2 (pga linieskiftet).
Eksempel, En celle der ser sådan ud i xls:
Anders And ; Paradisæblevej 111 ; Andeby postboks 1
Bliver så til:
Anders And ; "Paradisæblevej 111 postboks 1" ; Andeby
Er det muligt at bibeholde linien intakt, så jeg får følgende resultat:
Anders And ; Paradisæblevej 111 postboks 1 ; Andeby
Til at oprette en txt fil, hvor det står på en linie, hvor C3:C5 er det omfang, der skal over i filen.
Sub OpretDataFil()
Dim Source As Range Dim Dest As Workbook Dim wb As Workbook Dim TempFilePath As String Dim TempFileName As String Dim FileExtStr As String Dim FileFormatNum As Long
Set Source = Nothing On Error Resume Next Set Source = Range("C3:C5").SpecialCells(xlCellTypeVisible) On Error GoTo 0
If Source Is Nothing Then MsgBox "Der er opstået en fejl, " & _ "Prøv igen og sker det stadig så kontakt lefteyed.", vbOKOnly Exit Sub End If
With Application .ScreenUpdating = False .EnableEvents = False End With
Set wb = ActiveWorkbook Set Dest = Workbooks.Add(xlWBATWorksheet)
Source.Copy With Dest.Sheets(1) .Cells(1).PasteSpecial Paste:=8 .Cells(1).PasteSpecial Paste:=xlPasteValues .Cells(1).PasteSpecial Paste:=xlPasteFormats .Cells(1).Select Application.CutCopyMode = False End With
TempFilePath = "C:\Exp\" TempFileName = "data"
FileExtStr = ".txt": FileFormatNum = -4158
With Dest .SaveAs TempFilePath & TempFileName & FileExtStr, _ FileFormat:=FileFormatNum On Error GoTo 0 .Close SaveChanges:=False End With
With Application .ScreenUpdating = True .EnableEvents = True End With
End Sub
Jeg havde Anders And ; Paradisæblevej 111 ; Andeby postboks 1
til at stå i C4, og fik det til at stå på en linie.
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.