15. januar 2020 - 16:59 Der er 2 løsninger

gemme som CSV med VBA

Jeg bruger denne VBA til at gemme som CSV. mit problem er at min CSV fil ikke er som den skal være, men hvis jeg åbner den og gemmer den igen så ser den rigtig ud. jeg har indsat begge her under som de ser ud når de åbnes i notepad.
her er VBA.

Sub ExportAsCSV()

    Dim MyFileName As String
    Dim CurrentWB As Workbook, TempWB As Workbook

    Set CurrentWB = ActiveWorkbook
    ActiveWorkbook.ActiveSheet.UsedRange.Copy

    Set TempWB = Application.Workbooks.Add(1)
    With TempWB.Sheets(1).Range("A1")
        .PasteSpecial xlPasteValues
        .PasteSpecial xlPasteFormats
    End With

    'Dim Change below to "- 4"  to become compatible with .xls files
    MyFileName = CurrentWB.path & "\" & Left(CurrentWB.name, Len(CurrentWB.name) - 5) & ".csv"

    Application.DisplayAlerts = False
    TempWB.SaveAs Filename:=MyFileName, FileFormat:=xlCSV, CreateBackup:=False, Local:=True
    TempWB.Close SaveChanges:=False
    Application.DisplayAlerts = True
End Sub

Her er CSV som den ser ud første gang den gemmes.

filnavn;materiale;Tykkelse;Antal;Gravering;Fladder;Afgrat;Certifikat;buk;Levering;Note;Lås rotation;antal buk
0310 - Ø16 - Stg25_3mm.dxf;1;2;5;;;;;;;;;
0310 - Ø40 - Stg20_3mm.dxf;1;2;5;;;;;;;;;
0310 - Ø45 - Stg12_3mm.dxf;1;2;5;;;;;;;;;
0310 - Ø45 - Stg15_3mm.dxf;1;2;5;;;;;;;;;
0310 - Ø45 - Stg20_3mm.dxf;1;2;5;;;;;;;;;
Start_3mm.dxf;1;2;5;;;;;;;;;
;;;;;;;;;;;;
;;;;;;;;;;;;
;;;;;;;;;;;;
;;;;;;;;;;;;
;;;;;;;;;;;;
;;;;;;;;;;;;
;;;;;;;;;;;;

Her er som den ser ud når jeg åbner den og gemmer igen
og det er sådan den skal se ud.

filnavn;materiale;Tykkelse;Antal;Gravering;Fladder;Afgrat;Certifikat;buk;Levering;Note;Lås rotation;antal buk
0310 - Ø16 - Stg25_3mm.dxf;1;2;5;;;;;;;;;
0310 - Ø40 - Stg20_3mm.dxf;1;2;5;;;;;;;;;
0310 - Ø45 - Stg12_3mm.dxf;1;2;5;;;;;;;;;
0310 - Ø45 - Stg15_3mm.dxf;1;2;5;;;;;;;;;
0310 - Ø45 - Stg20_3mm.dxf;1;2;5;;;;;;;;;
Start_3mm.dxf;1;2;5;;;;;;;;;
Håber det giver mening
Avatar billede Juul Forsker
16. januar 2020 - 08:51 #1
Det virker som om at der omkring række 13 er et tegn i en celle.

I mine csv filer sletter mine vba koder altid bunden, for at sikre at de ikke er der
16. januar 2020 - 08:55 #2
Hvilken Vba kode skal jeg bruge for at slette bunden?
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester