Workshop 6: VBA-Programmierung mit MS Excel - Dr. Volker ...

Workshop 6: VBA-Programmierung mit MS ExcelButtons:=vbCritical, Title:="Laufzeitfehler"Resume AusgangEnd Sub3.3 Arbeitsmappen speichernIn den beiden vorstehenden Codebeispielen wurde die neu angelegte Arbeitsmappe mit derSaveAs-Methode gespeichert. Dabei wurde das Argument FileName vorher mit der VariablenstrPfadName festgelegt.Bei Bedarf kann auch auf den integrierten Dialog Speichern unter zurückgegriffen werden,der mit der Methode Show ausgeführt wird.Sub SpeichernUnterDialog()' Anwendung des integriertes Dialogfelds 'Speichern unter'If Application.Dialogs(xlDialogSaveAs).Show = True ThenMsgBox Prompt:="Gespeichert!", Buttons:=vbInformation, _Title:="Speichern unter"End IfEnd SubDie Auflistung Dialogs enthält alle integrierten Dialoge von Excel. Die KonstantexlDialogSaveAs dient zum Aufrufen des Speichern unter-Dialogs von Excel.3.4 Arbeitsmappen öffnenZum Öffnen einer Excel-Arbeitsmappe muss bekannt sein, wie der vollständige Pfadnameheißt. Für das Öffnen wird die Methode Open angewandt. Die komplette Syntax der MethodeOpen kann in der Online-Hilfe nachgelesen werden. Besonders wichtig ist dabei das ArgumentUpdateLinks. Die Bedeutung der verschiedenen Werte enthält Tab. 1.KonstanteBedeutung1 xlUpdateLinksUserSetting Benutzer gibt an, wie Verknüpfungen aktualisiert werden.2 xlUpdateLinksNever Verknüpfungen für diese Arbeitsmappe werden beimÖffnen niemals aktualisiert.3 xlUpdateLinksAlways Verknüpfungen für diese Arbeitsmappe werden beimÖffnen immer aktualisiert.Quelle: Excel-Online-HilfeTabelle 1: Bedeutung der Konstante UpdateLinksDie folgende Prozedur öffnet die Datei IchBinNeuHier, die sich im Standardspeicherortbefindet. Falls das nicht zutrifft, sorgt die On Error-Anweisung dafür, dass zur Fehlerbehandlunggesprungen wird.Sub ArbeitsmappeOeffnen()Const conDateiname As String = "IchBinNeuHier"Dim strPfadname As String ' Vollständiger PfadnameDim strExtAs String ' Zusatz zum DateinamenOn Error GoTo Fehler' Dateizusatz in Abhängigkeit von der Excel-Version bestimmenIf Val(Application.Version) < 12 ThenstrExt = ".xls" ' Excel 2003 und früherElsestrExt = ".xlsx" ' Excel 2007© 2011, Dr. Volker Thormählen Seite 6 von 15