Argumente zu xlDialogOpen
24.08.2005 16:58:32
Peter
ich möchteauseinem Unterordner eine Excel-Datei auswählen und öffnen, um anschliessend via VBA-Code Änderungen vorzunehmen. pfad = Workbooks(Workbooks.Count).Path
Application.Dialogs(xlDialogOpen).Show (path + "\*.xls")
Mit folgendem Code funktioniert dies auch, allerdings erscheint folgende Fehlermeldung: "Sie haben keinen Zugriff auf den Ordner ... . Bitte benachrichtigen Sie ihren Administrator.", die durch Drücken des OK-Buttons sang- und klanglos verschwindet. Anschliessend kann die geöffnete Datei nach Bedarf bearbeitet werden.
Ich schätze, mittels eines integrierten Argumentes kann diese Meldung unterdrückt werden.
Wer hat eine Idee, wie diese Argumente von xlDialogOpen anzuwenden sind ? (Das Argument "Read-only" muss ich für einen anderen Fall auch setzen können.)
Gruß,
Peter