VBA MS Project - Speichern Unter Dialog aufrufen

Fragen zu allen anderen Office Anwendungen

Moderator: ModerationP

VBA MS Project - Speichern Unter Dialog aufrufen

Beitragvon faton2019 » 08. Okt 2019, 14:06

Hallo liebe Community,

könnt Ihr mir bitte weiterhelfen.

Ich habe eine UserForm (Formular) erstellt. Der Nutzer kann dort Informationen reinschreiben in die Textfelder etc. Wenn der Nutzer das Formular ausgefüllt hat, soll dieser dann auf das Klick-Bouton drücken.
Danach soll das "Speichern Unter" Dialog erscheinen. Es soll ein vorbestimmter Pfad eingestellt sein und der Dateiname soll von einem im Formular ausgefüllten Textfeld (Value) sein und zusätzlich noch von einem weiterem im Formular ausgefüllten bzw. gewählten Wert (StartDatum(hier aber nur das Jahr (yyyy) DateTimerPicker ) sein.

Vielen Dank!

Mit freundlichen Grüßen
Faton

HIER DER CODE
'Erstellt den Projektplan mit den jeweiligen gesetzten Optionen (Typ,Filter etc.)

Private Sub cmd_createp_Click()

'Ein Projekt kann nur erstellt werden wenn folgende Bedinungen erfüllt sind: Start oder Ende Datum ausgewählt + Projekttyp + Manager + Pname + Workstreams ausgewählt sind
If opt_start = True And cbo_type_project.ListIndex > -1 And cbo_manager <> "" And txt_pname <> "" Or _
opt_finish = True And cbo_type_project.ListIndex > -1 And cbo_manager <> "" And txt_pname <> "" Then


'Hier ist aktuell eine Test Datei als Referenz angelegt damit man parallel mit der Master Datei arbeiten kann, später soll hier aber die MasterDatei hinterlegt sein
'Hier wird quasi die Datei geöffnet, durch das Formular bearbeitet und am ende --> Create Project --> Speichern unter
FileOpenEx "C:\Users\fbozhdaraj.COMP\Desktop\Master_Projektplan - Kopie.mpp"

'Hier soll jetzt nach dem klicken der create boutton das speichern unter dialog aufgerufen werden,_
'da soll ein vordefiniert pfad sein und als dateiname soll pname und start(yyyy) vorgeschlagen sein
ActiveProject.SaveAs

Unload UserForm1

Else: MsgBox "Please enter all project informations", vbExclamation, "Hinweis"

End If

End Sub
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
faton2019
Neuling
 
Beiträge: 1
Registriert: 08. Okt 2019, 13:50

Zurück zu Andere Office Fragen (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast

cron