replace() für variant

[HavocThe2nd]

Wie angekündigt, es geht weiter.
Ich öffne/schließe/lese mein excel file folrgendermaßen aus:

Dim oXL As Excel.Application, oBook As Excel.Workbook, oSheet As Excel.Worksheet, vValue As Variant 

Set oXL = New Excel.Application
Set oBook = oXL.Workbooks.Open("D:\Test.xls")
Set oSheet = oBook.Worksheets("Sheet1") 

vValue = oSheet.Cells(1, 1).Value       'Get the value from cell A1
Debug.Print vValue 

Set oSheet = Nothing
oBook.Close
Set oBook = Nothing
oXL.Quit
Set oXL = Nothing

Jetzt kriege ich aber am Schluss immer die Frage, ob ich meine Änderungen im Excel file speichern möchte. Gibt es eine Möglichkeit das read-only zu öffnen, so dass das entfällt?

 

[deepthroat]

Hi.

oXL.WorkBooks.Open(..., ReadOnly:=True)

Gruß

 

[HavocThe2nd]

Danke für die schnelle Antwort. Das Problem löst sie aber leider noch nicht, die Speichernachfrage bekomme ich weiterhin, da habe ich wohl falsch gelegen mit der Annahme dass das read only das lösen würde. Irgendwelche Vorschläge?

 

[deepthroat]

Ok.

Dann

oBook.Close False

Gruß

 

[HavocThe2nd]

Das funktioniert, mal wieder danke!

 

[DrSoong]

Excel-VBA kennt auch ein .Saved-Flag, mit True sagst du, dass bereits gespeichert wurde (auch wenn nicht).


Der Doc!