Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1244to1248
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfung Datei offen mit variablem Dateinamen

Prüfung Datei offen mit variablem Dateinamen
Jürgen
Hallo Excel-Forum,
ich hoffe ihr könnt mir weiterhelfen. Habe bei meiner Rescherche noch keine Lösung gefunden.
Das Thema als solches ist altbekannt. Excel soll per Makro prüfen, ob eine bestimmte Datei gerade geöffnet ist. So weit so gut. Ich habe aber jetzt das Problem, dass der Dateiname am Ende variiert.
Der Dateityp ist immer der gleiche.
Z.B. heißt die Datei einmal data(1).csv beim nächsten mal data(12).csv.
Ich benötige irgendeine Möglichkeit eine Art "Wildcard" zu benützen ähnlich wie data*.csv.
Folgenden Lösungsansatz habe ich bic jetzt:
If Not IsWorkbookOpen("data.csv") Then
MsgBox "Die Datei ist nicht geöffnet!"
Exit Sub
Else
End If
Welchen Begriff muss ich anstatt "data.csv" benützen.
Bin über jede Hilfe dankbar.
Vielen Dank im Voraus

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Prüfung Datei offen mit variablem Dateinamen
12.01.2012 12:29:26
MatthiasG
Hallo Jürgen,
die Funktion "IsWorkbookOpen" ist ja keine eigene Excel-Funktion. Wie wurde die denn realisiert?
Soll denn geprüft werden, ob die Datei in der aktuellen Excel-Instanz geöffnet ist oder ob sie allgemein (evtl. über eine Netzfreigabe) geöffnet und für die Bearbeitung gesperrt ist?
Kommt es vor, dass mehrere Dateien nach deinem Muster (also z.B. data(1).csv und data(12).csv) geöffnet sind? Wie soll die Funktion dann arbeiten?
Gruß Matthias
AW: Prüfung Datei offen mit variablem Dateinamen
12.01.2012 12:47:58
Jürgen
Hallo Matthias,
entschuldige, dass ich mich nicht konkret genug ausgedrückt habe.
Funktion "IsWorkbookOpen" hängt an folgender Funktion:
Function IsWorkbookOpen(strWB As String) As Boolean
On Error Resume Next
IsWorkbookOpen = Not Workbooks(strWB) Is Nothing
End Function
Es ist immer nur eine Datei mit dem namen data***.csv geöffnet.
Kurz zum Hintergrund:
Die Datei ist im Anhang einer Mail. Die Daten hieraus sollen automatisch in die eigentliche Exceldatei
kopiert werden und dann weiterverarbeitet. Die Abfrage, ob die Datei geöffnet ist, soll unterstützend für die Kollegen sein. Sollten sie vergessen haben den Mailanhang vor Verarbeitung zu öffnen erscheint dann der Hinweis.
Eine Möglichkeit aus Excel heraus eine Mail anzuwählen und deren Anhang zu öffnen scheint es nicht zu geben - bzw. habe ich nirgends gefunden.
Kannst Du mir hierbei irgendwie helfen?
Vielen Dank
Jürgen
Anzeige
AW: Prüfung Datei offen mit variablem Dateinamen
12.01.2012 13:04:27
MatthiasG
Hallo Jürgen,
nimm mal folgende Funktion: 

Function IsWorkbookOpen(fn As String) As String
Dim wb As Workbook
For Each wb In Application.Workbooks
If UCase(wb.Name) Like UCase(fn) Then
IsWorkbookOpen = wb.Name
Exit Function
Next wb
IsWorkbookOpen = ""
End Function

Dann kannst du diesen Code zur Abfrage benutzen: 

Dim fn as string
fn = IsWorkbookOpen("data*.csv")
If fn="" Then
MsgBox "Die Datei ist nicht geöffnet!"
Exit Sub
Else
MsgBox "Die Datei " & fn & " ist geöffnet."
End If

Wenn allerdings mehrere Mappen mit dem angegebenen Muster ("data*.csv") geöffnet sind, wird nur der Name der ersten gefundenen Mappe zurückgegeben. Sollte das nicht ausreichen, muss der Code nochmals umgeschrieben werden.
Gruß Matthias
Anzeige
AW: Prüfung Datei offen mit variablem Dateinamen
12.01.2012 13:07:12
MatthiasG
Hallo Jürgen,
kleine Korrektur:
zwischen "Exit Function" und "Next wb" fehlt noch "End If": 

unction IsWorkbookOpen(fn As String) As String
Dim wb As Workbook
For Each wb In Application.Workbooks
If UCase(wb.Name) Like UCase(fn) Then
IsWorkbookOpen = wb.Name
Exit Function
End If
Next wb
IsWorkbookOpen = ""
End Function
Gruß Matthias
AW: Prüfung Datei offen mit variablem Dateinamen
12.01.2012 13:27:48
Jürgen
Hallo Matthias,
vielen Dank für Deine Hilfe.
Dein Vorschlag funktioniert prächtig.
Und wieder etwas dazugelernt ;-))
Grüße
Jürgen
AW: Prüfung Datei offen mit variablem Dateinamen
12.01.2012 13:30:01
MatthiasG
Hallo Jürgen,
freut mich, dass ich helfen konnte :-)
Gruß Matthias
Anzeige

300 Forumthreads zu ähnlichen Themen

Mappe mit variablen Dateinamen aktivieren
Peter

Hallöchen an alle,
wie kann man eine geöffnete Mappe über workbooks.activate oder windows.activate ansprechen, ohne dass man den vollen Dateinamen kennt.
Dateiname = "Auftragskennzahlen(*).xls"
Das * steht für eine Zahl, die mir nicht bekannt ist, sondern von einer Web-Datenbank ver...
07.08.2008 17:27:58
Thread-ID: 1000047
4 Beiträge
Anzeige
Platzhalter fuer Dateiname
Dirk

Hallo an alle Tüftler,
ich recherchierte schon stundenlang im Archiv nach diesem Betreff - wurde aber nicht so recht fündig.
Ich möchte Daten aus einer csv-Datei in eine xl-Mappe importieren - der Haken ist allerdings, daß der Name der csv-Datei ständig wechselt.
Aus der Bezeichnung...
19.08.2008 16:21:08
Thread-ID: 1002987
5 Beiträge
Dateinamen während Auto_Open im AddIn
Rolli

Hallo Forum,
ich hab da mal ne Frage!!
Ich würde gerne ein AddIn (Erstellt ne Symbolleiste) nur dann ausführen wollen, wenn eine bestimmte Datei (Z.B. "Test.csv") geöffnet wird.
Wenn ich aber in der Auto_Open Routine im AddIn das ActiveWorkbook abspreche gibt es dieses noch nicht. W...
22.08.2008 12:10:00
Thread-ID: 1003802
5 Beiträge
Anzeige
Dateiname anzeigen
Ralf

Liebes Excel-Forum,
ich hätte da wiedermal ein kleines Problem.
Ich möchte gerne den Dateinamen den ich über eine MSG-Box generiert habe, nachdem die Datei gespeichert wurde, in einer Zelle auf einem Arbeitsblatt angezeigt bekommen.
Wie macht man das?
Vielen Dank für die Mühe
09.09.2008 13:07:00
Thread-ID: 1008435
8 Beiträge
Dateinamen aus Verzeichnis
Jonatan

Hallo,
habe folgenden Code im Archiv gefunden.
Nun würde ich gerne alle Dateinamen eines Ordners und sämtlichen Unterordnern auslesen.
Die Zeile Cells(iCnt, 2) = .FoundFiles.Name ist allerdings falsch. Ich weiß nicht genau, wie man sich den Namen ausgeben lässt.
Könnt ihr mir we...
18.09.2008 08:21:00
Thread-ID: 1010589
3 Beiträge
Dateinamen aus Verzeichnis
Jonatan

Ähm, ich glaub da ging in der Darstellung meiner Frage eben was schief.
Hier nochmal der Code:
Option Explicit
Sub Daten_Loeschen() Dim fSearch As FileSearch Dim wkb As Workbook Dim strPath As String Dim iCnt As Integer Dim index As Variant strPath = "C:\Dokumente und Einstellunge...
18.09.2008 08:32:00
Thread-ID: 1010593
2 Beiträge
Alte Einträge (Dateinamen) farbig darstellen?
Selma

Hallo Leute,
ich habe in Spalte A eine Liste der Dateinamen.
Wenn vor .doc dies steht "_neu" dann soll nachgeschaut werden, ob es die Dateiname ohne "_neu" gibt,
falls ja, dann soll diese Zelle mit Füllfarbe 3 (rot) dargestellt werden.
Dies gilt nur für die Dateiendung .doc
...
21.09.2008 13:22:00
Thread-ID: 1011293
10 Beiträge
Dateinamen aus Verzeichnis nach Excel kopieren
obelix-xxl

Hallo,
nachfolgenden Makro habe ich bei der Suche hier im Forum gefunden.
Es wäre schön, wenn mir Unterstützung geboten würde.
Für meinen Anwendungsfall benötige ich in einer Afrage, die
1.) Abfrage nach dem Unterverzeichnis im dem die zu kopierenden Dateinnamen stehen (Padangab...
08.10.2008 11:35:00
Thread-ID: 1014978
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
3
4
4
4
7
2
1
9
2
8
2
7
1
4
3
4
2
5
2
2
2
2
4
26