Hallo,
ich habe folgendes VBA Programm als Makro geschrieben:
Dim pfad As String
ActiveSheet.Unprotect
Dim kursbezeichnung As String
kursbezeichnung = range("F2").Value
Application.DisplayAlerts = False
pfad = "C:\1\" & kursbezeichnung & "\Moodlezugangsdaten.csv"
ActiveWorkbook.SaveAs Filename:= pfad, FileFormat:=xlCSV, CreateBackup:=False
ActiveWindow.Close
Application.DisplayAlerts = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Leider erhalte ich an in der Zeile
ActiveWorkbook.SaveAs Filename:= pfad, FileFormat:=xlCSV, CreateBackup:=False
eine Fehlermeldung, die ich nich beheben kann.
Ändere ich die Zeile in die folgende um, funktioniert alles:
ActiveWorkbook.SaveAs Filename:="C:\1\Moodlezugangsdaten.csv", FileFormat:=xlCSV, CreateBackup:=False
Allerdings kann ich die csv-Datei dann nicht im Unterordnung kursbezeichnung abspeichern.
Vielleicht kann mir hier jemand helfen.
Vielen Dank
B