Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Prüfen ob Datei geöffnet
zurück: Alphanummerische Vergabe in Access weiter: Jedem Benutzer ein anderes Startformular zuweisen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
wschmittw
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Feb 2008, 09:48
Rufname:
Wohnort: Wolfegg

Prüfen ob Datei geöffnet - Prüfen ob Datei geöffnet

Nach oben
       Version: Office 2k (2000)

Hallo,

ich habe folgendes Problem:

Aus Access exportiere ich eine Abfrage in eine Excel-Datei. Falls eine Datei mit den Namen bereits vorhanden ist. wird sie überschrieben.

Ich möchte prüfen, ob eine Datei mit dem Namen der Export-Datei bereits geöffnet ist. Kan mir hier jemand helfen? Vielen Dank!

Gruß Werner
SGast
Gast


Verfasst am:
01. Feb 2008, 10:04
Rufname:


AW: Prüfen ob Datei geöffnet - AW: Prüfen ob Datei geöffnet

Nach oben
       Version: Office 2k (2000)

Hallo Werner,
guckst du hier: Prüfen ob eine (Excel)-Datei schon geöffnet ist

Gruß Steffen
wschmittw
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Feb 2008, 14:19
Rufname:
Wohnort: Wolfegg

AW: Prüfen ob Datei geöffnet - AW: Prüfen ob Datei geöffnet

Nach oben
       Version: Office 2k (2000)

Hallo Steffen,

vielen Dank für den Tipp. Leider habe ich nicht das gewüschte Ergebnis. Bei Anwendung der Funktion
Code:
If Mid(StatusExcelDat("D:\tar\mytest.xls", "dummy"), 2, 1) = "1" Then
    MsgBox "exceldatei D:\tar\mytest.xls geöffnet"
End If
ist die Bedingung dann wahr, wenn die Datei vorhanden ist - egal, ob die Datei geöffnet ist oder nicht.

Was mache ich falsch?

Danke für die Hilfe!

Gruß Werner
SGast
Gast


Verfasst am:
01. Feb 2008, 15:06
Rufname:

AW: Prüfen ob Datei geöffnet - AW: Prüfen ob Datei geöffnet

Nach oben
       Version: Office 2k (2000)

Hallo,
warum nimmst du die "Kanonenversion". Diese funktiniert außerdem nicht im "Multirecherbetrieb".
Nimm doch die Variante, welche direkt verlinkt ist (Function DateiGeoeffnet).

Gruß Steffen
wschmittw
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Feb 2008, 16:32
Rufname:
Wohnort: Wolfegg

AW: Prüfen ob Datei geöffnet - AW: Prüfen ob Datei geöffnet

Nach oben
       Version: Office 2k (2000)

Hallo Steffen,

mit der "kleinen" Variante" bin ich nich klar gekommen. Liegt wohl an meinen bescheiddenen Kentnissen.

Ich habe als Modul angelegt:
Code:
Private Function DateiGeoeffnet(DerPfad As String) As Boolean
    On Error Resume Next
    Open DerPfad For Binary Access Read Lock Read As #1
    Close #1
    If Err.Number <> 0 Then
        DateiGeoeffnet = True
        Err.Clear
    End If
End Function
und rufe auf mit:
Code:
    Dim sPfad As String
   
    sPfad = "L:\ACCESS\ControllingKlose\SBDFA.CSV"
    If sPfad = "L:\ACCESS\ControllingKlose\SBDFA.CSV" Then
        MsgBox DateiGeoeffnet(sPfad)
    End If
Ist bestimmt grottenfalsch. Aber wie gehts richtig?

Danke für Deine Hilfe!

Gruß Werner
SGast
Gast


Verfasst am:
01. Feb 2008, 18:02
Rufname:

AW: Prüfen ob Datei geöffnet - AW: Prüfen ob Datei geöffnet

Nach oben
       Version: Office 2k (2000)

Hallo Werner,
zunächst ist eine CSV keine Exceldatei, sondern eine Textdatei.

Ansonsten ist dein Code richtig, aber etwas "wirr" Wink.

Das Private bei "Function DateiGeoeffnet(DerPfad As String) As Boolean" musst du weglassen, sonst ist die Funktion nur in dem Modul verfügbar.

Beim Aufruf ist
Code:
    MsgBox DateiGeoeffnet("L:\ACCESS\ControllingKlose\SBDFA.CSV")
ausreichend.

gruß steffen
wschmittw
Im Profil kannst Du frei den Rang ändern


Verfasst am:
02. Feb 2008, 15:49
Rufname:
Wohnort: Wolfegg


AW: Prüfen ob Datei geöffnet - AW: Prüfen ob Datei geöffnet

Nach oben
       Version: Office 2k (2000)

Hallo Steffen,

dank Deiner Hilfe hat es geklappt. Vielen Dank!

Gruß Werner
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Ein XML datei in Access Einfügen und aktualisieren 52 laslo 3528 23. Sep 2009, 11:22
laslo Ein XML datei in Access Einfügen und aktualisieren
Keine neuen Beiträge Access Tabellen & Abfragen: erstellen einer CSV Datei 5 azwinzds 908 05. Sep 2009, 12:04
tk6 erstellen einer CSV Datei
Keine neuen Beiträge Access Tabellen & Abfragen: Mehrere Tabelleneinträge mit Verweis auf dieselbe Datei 1 Marauder 490 05. Aug 2009, 20:11
Bitsqueezer Mehrere Tabelleneinträge mit Verweis auf dieselbe Datei
Keine neuen Beiträge Access Tabellen & Abfragen: Fehlermeldung: Diese Datenbank ist bereits exklusiv geöffnet 0 Lothar_OMC 2546 02. März 2009, 12:58
Lothar_OMC Fehlermeldung: Diese Datenbank ist bereits exklusiv geöffnet
Keine neuen Beiträge Access Tabellen & Abfragen: Excel-Tabelle importieren mit Auswahl der Datei 1 thoka26 485 27. Nov 2008, 16:35
Gast Excel-Tabelle importieren mit Auswahl der Datei
Keine neuen Beiträge Access Tabellen & Abfragen: Excel Datei importieren um damit Datenbak zu aktualisieren 1 Attila2000 377 14. Nov 2008, 19:33
steffen0815 Excel Datei importieren um damit Datenbak zu aktualisieren
Keine neuen Beiträge Access Tabellen & Abfragen: Memofeld auf eintrag prüfen 2 Mella 86 812 12. Aug 2008, 09:14
Mella 86 Memofeld auf eintrag prüfen
Keine neuen Beiträge Access Tabellen & Abfragen: Importieren von Excel Datei als Memo 0 Gustl 1093 08. Mai 2008, 14:48
Gustl Importieren von Excel Datei als Memo
Keine neuen Beiträge Access Tabellen & Abfragen: import einer txt Datei ohne Zeilenumbruch in eine Tabelle 3 CWS72 1040 14. Apr 2008, 23:05
Willi Wipp import einer txt Datei ohne Zeilenumbruch in eine Tabelle
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: PDF - Datei öffnen... 2 SzP/TEF13 1144 11. Feb 2008, 17:24
Willi Wipp PDF - Datei öffnen...
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle prüfen 2 Regine 376 17. Okt 2007, 17:04
Regine Tabelle prüfen
Keine neuen Beiträge Access Tabellen & Abfragen: Daten in geschütze Datei exportieren 0 Gummi121262 512 07. Mai 2006, 20:16
Gummi121262 Daten in geschütze Datei exportieren
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme