Bewaren van een sheet in een map maar eerst een map aanmaken

[gaggie]

De excel draait vanuit een bepaalde map, ik weet nog niet welke?
Maar nu wil ik de active worksheet bewaren als een xlsx bestand in een map die gemaakt moet worden waar de excel vanuit draait.
Heeft iemand misschien een idee.

Die map moet dan bewaar gaan heten.

Mvg.

Gaggie

 

[edmoor]

De map waar vanuit je document is geopend kun je in VBA terug halen met ThisWorkbook.Path

 

[Warme bakkertje]

En met MkDir kan je een map aanmaken.

 

[gaggie]

Ben er eindelijk uitgekomen.

Sub checkdirensavesheet()

Dim fn As String

If Dir(ThisWorkbook.Path & "/Bewaar/", vbDirectory) = "" Then
     MkDir ThisWorkbook.Path & "/Bewaar/"
   
 Else
     
 End If

fn = ThisWorkbook.Path & "\Bewaar\" & "Grafiek " & Range("C1").Value & ".xlsx"
 
 ActiveSheet.Copy
 ActiveSheet.SaveAs fileName:=fn
 ActiveWorkbook.Close
 Application.DisplayAlerts = True
 Application.ScreenUpdating = True


End Sub

Mvg.

Gaggie

 

[OctaFish]

Waarom heb je de Else er in zitten? Die regel kan weg.

 

[snb]

en nu iets serieuzer:

Sub M_snb()
  c00=replace(ThisWorkbook.Path & "\Bewaar","\\","\")

  If Dir(c00,16) = "" Then MkDir c00

  ActiveSheet.Copy
  Activeworkbook.SaveAs c00 & "\Grafiek " & Range("C1").Value & ".xlsx",52
  ActiveWorkbook.Close 0
End Sub

Als het werkboek uit 1 werkblad bestaat is SaveCopyAs een serieuze alternatieve kandidaat.