Goedemorgen,
onderstaande VBA code werkt:
Sub Test()
Dim fs As Object 'Eerst kijken of de schijf en map bestaat
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.folderexists("F:\bedrijfsnaam\Planning\Lopende projecten" & Range("D2") & Range("B2") & Range("D3")) Then
'Maak een map
MkDir "F:\bedrijfsnaam\Planning\Lopende projecten" & Range("D2") & " " & Range("B2") & " " & Range("D3")
End If
ActiveWorkbook.SaveAs Filename:="F:\bedrijfsnaam\Planning\Lopende projecten" & ActiveWorkbook.Name
End Sub
De map wordt aangemaakt en het bestand wordt opgeslagen.
Ik zou het bestand echter graag opslaan in de zojuist gecreeerde map, maar
ActiveWorkbook.SaveAs Filename:="F:\bedrijfsnaam\Planning\Lopende projecten" & Range("D2") & " " & Range("B2") & " " & Range("D3")" & ActiveWorkbook.Name
werkt niet. Wat doe ik fout
Margot
onderstaande VBA code werkt:
Sub Test()
Dim fs As Object 'Eerst kijken of de schijf en map bestaat
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.folderexists("F:\bedrijfsnaam\Planning\Lopende projecten" & Range("D2") & Range("B2") & Range("D3")) Then
'Maak een map
MkDir "F:\bedrijfsnaam\Planning\Lopende projecten" & Range("D2") & " " & Range("B2") & " " & Range("D3")
End If
ActiveWorkbook.SaveAs Filename:="F:\bedrijfsnaam\Planning\Lopende projecten" & ActiveWorkbook.Name
End Sub
De map wordt aangemaakt en het bestand wordt opgeslagen.
Ik zou het bestand echter graag opslaan in de zojuist gecreeerde map, maar
ActiveWorkbook.SaveAs Filename:="F:\bedrijfsnaam\Planning\Lopende projecten" & Range("D2") & " " & Range("B2") & " " & Range("D3")" & ActiveWorkbook.Name
werkt niet. Wat doe ik fout
Margot