VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen	09.12.2019 10:43:54	Tobias
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen	09.12.2019 11:12:07	Mase
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen	09.12.2019 11:29:21	Tobias
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen	09.12.2019 11:38:18	Mase
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen	09.12.2019 11:56:42	Gast45947
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen	09.12.2019 12:11:18	Mase
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen	09.12.2019 12:29:30	Gast92710
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen	09.12.2019 12:53:27	Mase
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen	09.12.2019 13:40:54	Tobias
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen	09.12.2019 19:55:39	Mase
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen	10.12.2019 08:32:47	Tobias
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen	10.12.2019 09:08:15	Mase
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen	10.12.2019 12:11:02	Tobias
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen	11.12.2019 07:45:30	Mase

Ansicht des Beitrags:

Von:
Mase

Datum:
09.12.2019 12:11:18

Views:
1076

Rating:

Antwort:

Thema:
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen

ok.

Da sowohl a) als auch b) zutreffen könnte, zum reinkommen mal folgendes probieren:

Sub checkFileOpenViaScriptingRuntime()
    Dim fso As Object
    Dim sPath As String, sFile As String, sFullPath As String
    '
    sFile = "Mappe1.xlsx"               ' <--- anpassen
    sPath = "c:\Ordner1\Ordner2\"       ' <--- anpassen
    sFullPath = sPath & "~$" & sFile    ' <--- nicht anpassen
    '
    With CreateObject("Scripting.FileSystemObject")
        MsgBox .FileExists(sFullPath)
    End With
End Sub

Hinweis:

Fehlerbehandlung, Optimierung oder sonstig Weiterführendes lassen wir mal aussen vor.

Passe mal sFile und sPath an Deine Umgebung an und führe das Makro aus.

Eine Messagbox sagt dir, ob die Datei geöffnet ist oder nicht.

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:
Rich Text Editor, ctl00_Content_editor1 Editor toolbarsDocument Source Save New Page Export to PDF Preview Print TemplatesClipboard/Undo CutKeyboard shortcut Ctrl+X CopyKeyboard shortcut Ctrl+C PasteKeyboard shortcut Ctrl+V Paste as plain textKeyboard shortcut Ctrl+Alt+Shift+V Paste from Word UndoKeyboard shortcut Ctrl+Z RedoKeyboard shortcut Ctrl+YEditing Find Replace Select All Spell Check As You TypeForms Form Checkbox Radio Button Text Field Textarea Selection Field Button Image Button Hidden FieldBasic Styles BoldKeyboard shortcut Ctrl+B ItalicKeyboard shortcut Ctrl+I UnderlineKeyboard shortcut Ctrl+U Strikethrough Subscript Superscript Copy FormattingKeyboard shortcut Ctrl+Shift+C Remove FormatParagraph Insert/Remove Numbered List Insert/Remove Bulleted List Decrease Indent Increase Indent Block Quote Create Div Container Align Left Center Align Right Justify Text direction from left to right Text direction from right to left Set languageLinks LinkKeyboard shortcut Ctrl+K Unlink AnchorInsert Image Flash Table Insert Horizontal Line Smiley Insert Special Character Insert Page Break for Printing IFrameStylesStylesStylesFormatFormatFontFontSizeSizeColors Text Color Background ColorTools Maximize Show Blocksabout About CKEditor 4 Press ALT 0 for help ◢Elements path

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen	09.12.2019 10:43:54	Tobias
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen	09.12.2019 11:12:07	Mase
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen	09.12.2019 11:29:21	Tobias
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen	09.12.2019 11:38:18	Mase
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen	09.12.2019 11:56:42	Gast45947
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen	09.12.2019 12:11:18	Mase
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen	09.12.2019 12:29:30	Gast92710
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen	09.12.2019 12:53:27	Mase
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen	09.12.2019 13:40:54	Tobias
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen	09.12.2019 19:55:39	Mase
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen	10.12.2019 08:32:47	Tobias
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen	10.12.2019 09:08:15	Mase
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen	10.12.2019 12:11:02	Tobias
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen	11.12.2019 07:45:30	Mase