opslaan als .csv

[DirkB]

Hoi

Ik gebruik deze code om een werkblad op te slaan als .csv

Private Sub CommandButton3_Click()
Dim oldname$, oldpath$, oldformat
    Application.DisplayAlerts = False
    With ActiveWorkbook
    oldname = .Name
    oldpath = .Path
    oldformat = .FileFormat
      .Sheets("Merk").SaveAs _
      Filename:=Sheets("Voorblad").Range("D8"), FileFormat:=xlCSV, local:=True
.SaveAs Filename:=oldpath + "\" + oldname, FileFormat:=oldformat
   End With
   Application.DisplayAlerts = True

Eigenlijk wil ik alleen Kolommen A:C opslaan als .csv
kun je ook een deel van het werkblad opslaan?

 

[JEC.]

Probeer het eens zo

Sub jveer()
  c00 = "C:\..\...\...\test3.csv"
  jv = Sheets(1).Range("A1", Sheets(1).Cells(Rows.Count, 3).End(xlUp))
  With Workbooks.Add
    .Sheets(1).Cells(1).Resize(UBound(jv), UBound(jv, 2)) = jv
    .SaveAs c00, 6
    .Close 0
  End With
End Sub