hiho,

ich hoff ihr könnt mir helfen.

Ich will aus Access excel Dateien öffnen. Das geht auch sehr gut wenn ich allerdings eine excel datei öffne die schon ein anderer geöffnet hat bekomme ich die meldung dass das so ist

Weis jemand wie ich diese Meldung unterdrücken kann??

THX

Hi!

Vielleicht mit dem Befehl Docmd.SetWarnings True / False

Damit kann man Fehlermeldungen unterdrücken. Du musst aber auf jeden Fall am Ende Deiner Prozedur das ganze wieder auf True setzen, sonst werden die Fehlermeldungen immer unterdrückt.

Also zB. so:

----------------------------------

Private Sub Excel()

Docmd.SetWarnings False

'Dein Code

Docmd.SetWarnings True

End Sub

----------------------------------

Gruss

THX aber so funktionierts net.

Er gibt immer noch die meldung aus das die Datei geöffnet ist und fragt ob sie schreibgeschützt geöffnet werden soll.

Noch andere ideen?

GreEetz

Moin !

Das SetWarnings bezieht sich nur auf Access Meldungen, bei Excel heisst das Teil DisplayAlerts.

Beispiel:

Dim obj_EX As Excel.Application

Set obj_EX = GetObject(, "Excel.Application")

obj_EX.DisplayAlerts = False

obj_EX.Workbooks.Open FileName:="bla.xls"

...

Er öffnet das Teil dann automatisch schreibgeschützt wenn ein anderer es schon bearbeitet. Musst nur dran denken es hinterher auch wieder auf True zu setzen.

Gruß

Christian

------------------------------------------------------------

"All power corrupts. Absolute Power is kinda neat though..."

"50.000 gold a year in child care and they call it a CULT ?!?"

- Kel'Thuzad, Archlich