Office: Aus Excel prüfen ob Word Dokument offen

mathieu_91 · 25. September 2016

Hallo,

ich möchte aus EXCEL heraus prüfen, ob ein ganz bestimmtes Word Dokument bereits geöffnet ist.

Code:

Function IsDocumentOpen(ByVal DocName As String) As Boolean
Dim doc As Word.Document

If Right$(DocName, 5) ".docm" Then
DocName = DocName & ".docm"
End If
IsDocumentOpen = False
For Each doc In Word.Documents

:)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mathieu_91 · 27. September 2016

Sorry für den Doppelpost.

Code:

FileName = Mid(ThisWorkbook.Worksheets("LOP-Config").Cells(98, 4).Value, _
InStrRev(ThisWorkbook.Worksheets("LOP-Config").Cells(98, 4).Value, "\") + 1)

result = FileStatus("C:\Users\" & Login & "\Desktop\temp_" & Login & "\" & FileName)
If result = XL_OPEN Then
Application.DisplayAlerts = False
Set AppWord = GetObject(, "Word.Application")
AppWord.Documents(FileName).Close SaveChanges:=False
Application.DisplayAlerts = True
Else
Set AppWord = CreateObject("Word.Application")
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Habe jetzt eine andere Funktion gefunden.
Leider erkennt

Code:

AppWord.Documents(FileName).Close SaveChanges:=False
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

den Dateinamen nicht, obwohl diese vorhanden und gerade geöffnet ist.

Das ist die Prüfung, ob die Datei geöffnet ist:

In ein neues Modul
Code:

Option Explicit

Public Enum XL_FILESTATUS
XL_UNDEFINED = -1
XL_CLOSED
XL_OPEN
XL_DONTEXIST
End Enum

Public Function FileStatus(xlFile As String) As XL_FILESTATUS
On Error Resume Next
Dim File%: File = FreeFile
Err.Clear
Open xlFile For Input Access Read Lock Read As #File
Close #File
Select Case Err.Number
Case 0: FileStatus = XL_CLOSED
Case 70: FileStatus = XL_OPEN
Case 76: FileStatus = XL_DONTEXIST
Case Else: FileStatus = XL_UNDEFINED
End Select
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

EDIT:

Habe noch eine weitere Funktion gefunden..

Code:

If IsFileOpen("C:\Users\" & Login & "\Desktop\temp_" & Login & "\" & filename) = True Then
Application.DisplayAlerts = False
Set AppWord = GetObject(, "Word.Application")
With AppWord
.visible = True
.Activate
.Documents("C:\Users\" & Login & "\Desktop\temp_" & Login & "\" & filename).Close SaveChanges:=False
End With
Application.DisplayAlerts = True
Else
Set AppWord = CreateObject("Word.Application")
With AppWord
.visible = True
.Activate
End With
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Function IsFileOpen(filename As String)
Dim filenum As Integer, errnum As Integer

On Error Resume Next ' Turn error checking off.
filenum = FreeFile() ' Get a free file number.
' Attempt to open the file and lock it.
Open filename For Input Lock Read As #filenum
Close filenum ' Close the file.
errnum = Err ' Save the error number that occurred.
On Error GoTo 0 ' Turn error checking back on.

' Check to see which error occurred.
Select Case errnum

' No error occurred.
' File is NOT already open by another user.
Case 0
IsFileOpen = False

' Error number for "Permission Denied."
' File is already opened by another user.
Case 70
IsFileOpen = True

' Another error occurred.
Case Else
Error errnum
End Select

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Erkennt zwar, dass die Datei offen bzw. geschlossen ist, leider kann ich die Datei anschließend nicht schließen, was ich aber möchte...
Hat jemand eine Idee, wie ich die Word Datei schließen kann?

Leider Funktion, aus welchen Gründen auch immer, AppWord.Documents("Mein Doc.doc").Close hier nicht...

EDIT:

Jetzt läufts...

Code:

If IsFileOpen("C:\Users\" & Login & "\Desktop\temp_" & Login & "\" & filename) = True Then
Application.DisplayAlerts = False
Set DocToClose = GetObject("C:\Users\" & Login & "\Desktop\temp_" & Login & "\" & filename)
With DocToClose
.Close SaveChanges:=False
Set DocToClose = Nothing
End With
Set AppWord = GetObject(, "Word.application")
With AppWord
.visible = True
.Activate
End With
Application.DisplayAlerts = True
Else
Set AppWord = CreateObject("Word.Application")
With AppWord
.visible = True
.Activate
End With
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke für die.. Hilfe?

Storax · 27. September 2016

Also folgender Code funktioniert bei mir
Code:

Sub TesterA()

Dim wd As Word.Application

Dim wDoc As Word.Document

Set wd = GetObject(, "Word.Application")
If wd Is Nothing Then
Debug.Print "Word ist nicht gestartet"
exit sub
End If
For Each wDoc In Word.Documents
Debug.Print wDoc.Name
wDoc.Close False
Next

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und So könntest Du prüfen, ob ein Dokument in Word geöffnet ist: Code:

Sub TesterB()

Dim myDocName As String
myDocName = "MyDok1.docx"
Debug.Print FileInWdOpen(myDocName)

End Sub
Function FileInWdOpen(DokName As String) As Boolean
Dim wd As Word.Application
Dim wDoc As Word.Document

Set wd = GetObject(, "Word.Application")

If wd Is Nothing Then
FileInWdOpen = False
End If

For Each wDoc In Word.Documents
If wDoc.Name = DokName Then
FileInWdOpen = True
Exit Function
End If
Next

FileInWdOpen = False

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Über Verweise muss die Word Library eingebunden sein. Aber ich habe die Vermutung, Du weißt nicht genau, was die Code-Schnipsel, die Du gepostet hast, überhaupt tun *frown.gif* Dann wird Dir das auch nicht helfen.

ebs17 · 27. September 2016

prüfen, ob ein ganz bestimmtes Word Dokument bereits geöffnet ist
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Man darf davon ausgehen, dass Du Pfad und Name des Dokumentes kennst?

Prüfen, ob Datei bereits geöffnet ist

Auf dem Rechner können mehrere Wordinstanzen geöffnet sein. Wenn man also eine vorhandene beliebige Instanz anfasst, muss das Dokument nun nicht gerade in dieser offen sein.
Auf das (geprüft) offene Dokument erlangst Du so Zugriff:
Code:

Dim wDoc As Object
Dim wApp As Object

Set wDoc = GetObject(PfadUndNameDokument)
' Zugriff auf zugehörige Wordinstanz
Set wApp = wDoc.Application
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

haklesoft · 27. September 2016

Wenn ich mich recht erinnere wollte der TE das Dokument vor dem Schließen ggf. noch speichern, was auch der bessere Programmierstil ist.
Die MOF-Götter haben dieses - nur im Doppelpost - stehende Ansinnen aber gerade nach dem gleichen Motto gekillt. *upps

Mit Code:

.Close SaveChanges:=False
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

werden jedenfalls alle Änderungen verworfen und nichts gespeichert *frown.gif*

Da prüft man besser vorab und speichert ggf. direkt. Code:

wdDoc.Close SaveChanges:=Abs(Not wdDoc.Saved) * -2
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mathieu_91 · 27. September 2016

Hallo,

danke für die Infos.

Prinzipiell muss das Dokument nicht gespeichert werden.

Der Prozess ist folgender:

Es wird ein temp_UserName Ordner auf dem Desktop erzeugt. Sollte dort bereits einer sein, wird dieser gelöscht

--> Dafür muss aber die Word Datei geschlossen sein, sonst gibt es einen Zugriffsfehler

mathieu_91 · 12. Januar 2021

von Storax

Über Verweise muss die Word Library eingebunden sein. Aber ich habe die Vermutung, Du weißt nicht genau, was die Code-Schnipsel, die Du gepostet hast, überhaupt tun *frown.gif* Dann wird Dir das auch nicht helfen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das ist jetzt erst einmal eine Behauptung.

Die API verstehe ich tatsächlich nicht.
Die Function IsFileOpen ist verständlich durch MS erklärt.

Storax · 12. Januar 2021

von mathieu_91

Das ist jetzt erst einmal eine Behauptung.

Die API verstehe ich tatsächlich nicht.
Die Function IsFileOpen ist verständlich durch MS erklärt.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Würde ich nicht so sehen, denn wenn Du z.B. IsFileOpen verstanden hättest, würdest Du auch verstehen, dass Du so keinen Zugriff auf die Datei erhältst, um sie in Word zu schließen.

mathieu_91 · 27. September 2016

Vermutlich hast du recht, ja.
Naja, mit GetObject hat das ja dann alles geklappt...

Storax · 27. September 2016

Genau, GetObject reicht aus, um zu prüfen, ob die Datei in Word offen ist. Die Anmerkung von ebs17 ist natürlich richtig. Mein Code könnte krachen gehen, falls mehrere Instanzen von Word gestartet sind, was eher selten ist.

Office: Aus Excel prüfen ob Word Dokument offen

Aus Excel prüfen ob Word Dokument offen

Aus Excel prüfen ob Word Dokument offen

Aus Excel prüfen ob Word Dokument offen

Aus Excel prüfen ob Word Dokument offen

Aus Excel prüfen ob Word Dokument offen - Similar Threads - Excel prüfen Word

Prüfen und Verketten von Zellen mit Formeln als Inhalt

Eingaben in 2 Feldern auf Plausibilität prüfen

Excel VBA Datei durchsuchen, Datentyp prüfen und bestimmten Inhalt auslesen

VBA duplikate finden und auf Kriterien prüfen

Prüfen ob excel schon offen ist und dann Start der Datei verhindern

Wenn-Oder Funktion soll bei Falsch die nächste Zeile prüfen(Excel 2003)

Formulareingabe Datumsfeld prüfen