Hallo
Ich habe mit Hilfe von Excel und VBA eine Benutzeroberfläche gestaltet in der Nutzer Einträge eingeben können.
Unter dem Button "Speicher" wird die Datei selber gespeichert und gleichzeitig wird diese auf eine Art Zentralrechner im Netzwerk gespeichert.
Nun gibt es den Fall, dass der Zentralrechner nicht verfügbar ist (abgestürtzt, nicht online etc.) und somit ein Fehler kommt und das Programm im Debug Modus ist.
Ich möchte gerne, dass die Datei selber sich normal speichert und wenn der Pfad zum Zentralcomputer verfügbar ist, dann soll diese dort auch abgelegt werden.
Wenn der Pfad nicht erreichbar ist, dann soll einfach nur eine kurze Meldung kommen. Dazu müsste ich irgendwie den Pfad abfragen. Das ist meine bisherige Speicherfunktion.
Danke für die Hilfe
P:S: gerne möchte ich auch die Datei als ganzes gespeichert wird unter C: und nur der momentan bearbeitete Sheet in eine extra Datei. Wie ist das machbar?
Ich habe mit Hilfe von Excel und VBA eine Benutzeroberfläche gestaltet in der Nutzer Einträge eingeben können.
Unter dem Button "Speicher" wird die Datei selber gespeichert und gleichzeitig wird diese auf eine Art Zentralrechner im Netzwerk gespeichert.
Nun gibt es den Fall, dass der Zentralrechner nicht verfügbar ist (abgestürtzt, nicht online etc.) und somit ein Fehler kommt und das Programm im Debug Modus ist.
Ich möchte gerne, dass die Datei selber sich normal speichert und wenn der Pfad zum Zentralcomputer verfügbar ist, dann soll diese dort auch abgelegt werden.
Wenn der Pfad nicht erreichbar ist, dann soll einfach nur eine kurze Meldung kommen. Dazu müsste ich irgendwie den Pfad abfragen. Das ist meine bisherige Speicherfunktion.
Danke für die Hilfe
P:S: gerne möchte ich auch die Datei als ganzes gespeichert wird unter C: und nur der momentan bearbeitete Sheet in eine extra Datei. Wie ist das machbar?
Visual Basic-Quellcode
- Application.DisplayAlerts = False
- ActiveWorkbook.SaveAs Filename:="C:\Users\Desktop\Testprogramm1.1.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
- ActiveWorkbook.SaveAs Filename:="T:\Server\Produktion\Auswertungen Produktion\Datenerfassung über Tools\Testprogramm1.1.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
- Application.DisplayAlerts = True