Oplaan als xlsx

[DirkB]

Hoi,

Ik gebruik onderstaande code om een enkel blad uit een grotere excelsheet op te slaan als .CSV.
Ik wil het enkele blad graag ook opslaan als een excelbestand met 1 werkblad
Kan iemand me op weg helpen?

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

   .SaveAs Filename:=oldpath + "\" + oldname, FileFormat:=oldformat
   End With
   
 
   Application.DisplayAlerts = True

End Sub

 

[edmoor]

Met Activesheet.Copy maak je een nieuw document met alleen het gekopieerde werkblad.
Die kan je dan opslaan met ActiveWorkbook.SaveAs

 

[snb]

Sub M_snb()
  Sheets("ark").Copy

  With ActiveWorkbook
    .SaveAs "G:\OF\vb", 50
    .SaveAs "G:\OF\vb", 23
    .Close 0
  End With
End Sub

 

[DirkB]

geregeld

Met Activesheet.copy is het gelukt
THNX