Office: (Office 2010) VBA prüfen, ob Datei geöffnet

Hallo zusammen

Ich habe eine Frage an euch Pros und bin mir sicher, dass ihr mir helfen könnt. Danke schon mal im voraus.

Mein Excel-File öffnet per Befehl "Workbooks.Open Filename:="G:\Depotberatung\Kunden\ClientList_ANae.xlsm"
Sheets("Kunden").Select" das entsprechende zweite File.
Ich möchte aber noch folgende Prüfung einbauen:

Vor dem öffnen soll geprüft werden, ob die entsprechende Datei bereits geöffnet ist.
-Falls ja, soll der User per MsgBox aufgefordert werden, die Datei zu schliessen bzw. das File zu speichern und der Prozess soll beendet werden.
-Falls nein, soll die Datei mit dem obigen Befehl normal geöffnet werden.

Vielen Dank für eure Hilfe

:)

 

Code:

 

Hallo porron,

vielleicht hilft der die Seite schon weiter:
support.microsoft.com

 

Vielen Dank Hajo und BCoder

 

Hallo.
Ich weiß nicht ob ich hier noch wem erreiche. Aber ich
probier es einfach mal

Ich will genau das prüfen was hier im code schon beschrieben wurde.
Ich will nur statt „test.xls“ einen paramter verwenden. Den Parameter
definier ich im vorhinein schon. Ich will dann prüfen ob „parameter“.xls
geöffnet ist. Aber ich schaffe es einfach nicht. Ich weiß einfach nicht wie ich
den parameter
übergebe. Bzw. ist es überhaupt möglich??

LG Mathias

 

Hallo,

na klar, erreichst du hier jemanden ... irgendeiner ist immer da. *tongue.gif*

Wo und in welchem der beiden Codes genau, hast du denn das Problem ?

Was verstehst du bitte unter 'Parameter' ? Eventuell eine Variable ... z.B. einen String ?
Oder tatsächlich einen 'Parameter', den man hinten an den Excel-Aufruf anhängt und der Excel, z.B. in einer bestimmten Ansicht startet ?

 

Hi.
Das freut mich aber.

Hier der Code:

Dim BoOffen As Boolean
Dim WoDatei As Workbook

For Each WoDatei in Workbooks

If WoDatei.Name =„test.xls“ Then
BoOffen = True
Exit For
End If

Wenn ich den code so schreibe funktioniert er eineandfrei.
Aber ich will statt „test.xls“ jetzt datei.xls haben.
Und ja. Datei ist eine Variable die ich schon vorher im code übergebe.
Aber da bekomm ich dann immer falsch als ergebnis. Im Normalfall übergebe ich die Variablen ja mit & Variable & oder???

LG Mathis

 

Hallo,

wenn ich bei deinem Code bleibe, musst du die variable auch vorher füllen.

PHP:

         Dim BoOffen As Boolean
Dim WoDatei As Workbook
Dim TDatei As String

TDatei = "Test"

For Each WoDatei in Workbooks

If WoDatei.Name = TDatei & „.xls“ Then
BoOffen = True
Exit For
End If


 

Danke für rasche Antwort

Ich bin gerade auch selbst auf den Fehler draufgekommen.
Ich hab den String mit „& String & übergeben. Als ich die Anführungszeichen
und das „und“ weggegeben habe hat es wunderbar funktioniert.
Danke nochmals