Office: VBA xls Datei öffnen

Bisher verwende ich folgende Variante um eine andere Datei zu öffnen auszulesen und wieder zu schliessen. Die Frage die ich habe ist: Kann man das auch anders ohne "Application.DisplayAlerts = False" machen??
Problem ist, ohne diese Zeile muß ich jedesmal speichern vor dem schliessen der Datei auswählen. Vielleicht gibt es ja eine Möglichkeit, eine Datei im "read only" Modus zu öffnen, ohne darüber nachzudenken, wie verhält sich das, wenn jemand die Datei parallel zum bearbeitet geöffnet hat, also man eigentlich "Schreibgeschützt öffnen" bestätigen müsste....

Hier der derzeit verwendet Code

Code:

Sub einfuegen()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim ....

Dim LUV, Paten As Workbook
Set LUV = ThisWorkbook
Set Paten = Workbooks.Open(Filename:="i:\Makro\XXXXX.xls")
LUV.Worksheets("Sheet1").Range("C12:FN220").ClearContents

......
......

Paten.Close
Set Paten = Nothing
Set LUV = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Vielen Dank!!!

 

Hallo!

Ich bin zwar kein VBA-Experte, aber Workbooks.Open verfügt ja durchaus auch noch über weitere Optionen, so z.B. ReadOnly=True, um Dateien schreibgeschützt zu öffnen.
Deine eigentliche Problematik verstehe ich nicht ganz, denn was tut dir an der Zeile "Application.DisplayAlerts" so weh??

 

Code:

Paten.Close savechanges:=False

YES!!!

THX

An der Zeile "Application.DisplayAlerts" gefällt mir nicht der "Absolutismus". Soweit ich das einschätze gilt das für alles und ich will ja nur die Speichern Meldung am Ende weg haben, andere Fehler zu anderen Sachen könnten relevant sein........

 

Hallo,

Dim LUV, Paten As Workbook
Set LUV = ThisWorkbook
Set Paten = Workbooks.Open(Filename:="i:\Makro\XXXXX.xls")

In der 1. der 3 blauen Zeilen ist mir aufgefallen, dass Du der Variable LUV explizit keinen Datentyp zugewiesen hast, weshalb sie höchstwahrscheinlich den Datentyp "Variant" und nicht "Workbook" erhalten hat.
In VBA gibt es - im Gegensatz zu vielen anderen Programmiersprachen - bei der Datendeklaration keine Variablenlisten, denen man gleichzeitig einen einheitlichen Datentyp zuweisen kann.

Wenn man haben will, dass sowohl LUV als auch Paten den Datentyp Workbook erhalten sollen, muss das Dim-Statement folgendermaßen lauten:
Dim LUV As Workbook, Paten As Workbook

 

Hi Andy,

die Codezeile Application.DisplayAlerts kann an einer beliebigen Stelle im Code stehen - du kannst sie also auch direkt vor und nach den relevanten Codeteil setzen:

Code:

Application.DisplayAlerts = False
Paten.Close
Application.DisplayAlerts = True

Bis später,
Karin