opslaan als csv

[DirkB]

Geachte helpers,

Ik ben op zoek naar een macro die een werkblad kan opslaan als een csv bestand.
daarbij moeten er geen wijzigingen in het oorspronkelijke bestand worden gemaakt.
En elke keer dat de macro wordt gedraaid moet het csv bestand worden overschreven.

ik heb wat geprobeerd met de macro recorder, maar dan krijg ik niet helemaal wat ik wil.

 

[gast0660]

Hoi,
Met deze

Sub ExportActiveWorksheet()
  Dim oldname$, oldpath$, oldformat
  Application.DisplayAlerts = False
  With ActiveWorkbook
    oldname = .Name
    oldpath = .Path
    oldformat = .FileFormat
    .ActiveSheet.SaveAs _ [COLOR="#008000"]<- Active sheet moet[/COLOR] [COLOR="#FF0000"]UWBLAD[/COLOR][COLOR="#008000"] zijn of verander naar:[/COLOR]  .Sheets("UWBLAD").SaveAs _
      Filename:="[COLOR="#FF0000"]C:\Users\Grote\Downloads\Code en vb\UWBLAD.csv[/COLOR]", FileFormat:=xlCSV [COLOR="#008000"]<- hier uw path aanpassen[/COLOR]
    .SaveAs Filename:=oldpath + "\" + oldname, FileFormat:=oldformat
  End With
  Application.DisplayAlerts = True
End Sub

 

[DirkB]

bijna goed...

dank Philiep voor je code.
het doet wat ik wilde
echter schrijft de code een komma als lijstscheidingsteken

dit moet eigenlijk een puntkomma zijn
Gr Dirk

 

[Ginger]

echter schrijft de code een komma als lijstscheidingsteken

dit moet eigenlijk een puntkomma zijn

De extensie "CSV" staat voor Comma Separated Value....
Ofwel, als .csv is de oplossing 100% OK.

 

[DirkB]

Ik snap je antwoord Ginger maar.
ik heb een csv bestandje nodig met een puntkomma als scheidingsteken.

 

[Ginger]

Je kan dit doen door het scheidingsteken in de instellingen van Excel van komma om te zetten naar puntkomma. Hou er wel rekening mee dat deze aanpassing dan voor alles in Excel geldt.

1.> Change File format to .CSV (semicolon delimited)

To achieve the desired result we need to temporary change the delimiter setting in the Excel Options.

Move to File -> Options -> Advanced -> Editing Section

Uncheck the “Use system separators” setting and put a comma in the “Decimal Separator” field.

Now save the file in the .CSV format and it will be saved in the semicolon delimited format !!!

 

[edmoor]

Maak er dit van:
Filename:="C:\Users\Grote\Downloads\Code en vb\UWBLAD.csv", FileFormat:=xlCSV, Local:=True

 

[gober]

opslaan als csv bestand

Sub OpslaanAls_txt()
    Dim LastRow As Long, LastColumn As Integer
    Dim i As Long, j As Integer
    Dim Path As String
    
    LastRow = ActiveSheet.UsedRange.Rows.Count
    LastColumn = ActiveSheet.UsedRange.Columns.Count
    Path = ThisWorkbook.Path & "\"
    Open Path & ActiveSheet.Name & " rooster " & Range("blad1!b3") & "test.csv" For Output As #1         [COLOR=#FF0000]'<-- naam evt. aanpassen[/COLOR]
    For i = 1 To LastRow
        For j = 1 To LastColumn
            Print #1, Trim(Cells(i, j).Value) & ";";
        Next
        Print #1, Trim(Cells(i, j).Value) & ";"
    Next
    Close #1
    MsgBox "opgeslagen in: " & ThisWorkbook.Path & "\" & ActiveSheet.Name & " rooster " & Range("blad1!b3") & "test.csv"
End Sub

 

[DirkB]

edmoor,

ik heb jou toevoeging gebruikt en dat werkt prima
iedereen bedankt maar weer voor de hulp

 

[Ginger]

@Edmoor, Tnx! Die kende ik nog niet!

 

[edmoor]

Local:=True zorgt ervoor dat het in Windows ingestelde scheidingsteken wordt gebruikt. Als dat niet is aangegeven is het altijd een komma.