Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
06.08.2007 11:32:16 |
neumi |
|
|
|
06.08.2007 11:46:34 |
neumi |
|
|
|
06.08.2007 14:08:49 |
canner |
|
|
|
07.08.2007 11:26:48 |
neumi |
|
|
Aw:Aw:Prüfen ob Excel Datei geöffnet ist |
07.08.2007 10:05:51 |
Sozu |
|
|
Von:
Sozu |
Datum:
07.08.2007 10:05:51 |
Views:
2012 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Prüfen ob Excel Datei geöffnet ist |
Hallo neumi,
versuch es mal damit:
-------------------------------------
Function DateiTest(ByVal dateiname As String) As Boolean
Dim wb As Workbook
DateiTest = False
For Each wb In Workbooks
If InStr(1, wb.Name, dateiname, vbTextCompare) > 0 Then DateiTest = True
Next wb
SET wb=Nothing
End Function
-------------------------------------
Anstatt mit dem InStr-Befehl zu arbeiten kannst du auch
If wb.FullName = dateiname Then DateiTest = True ' dateiname MIT Pfad z.B. "C:\Test\Beispiel.xls"
oder
IF wb.Name=dateiname Then DateiTest = True ' dateiname OHNE Pfad z.B. "Beispiel.xls"
verwenden, allerdings mußt du dann immer genau den "dateiname" angeben. Mit InStr ist es egal, was du suchst.
Mit der InStr-Funktion hast du außerdem den Vorteil, dass du auf Groß-/Kleinschreibung nich zu achten brauchst.
Es gibt natürlich noch weitere Lösungen für dein Problem, aber hiermit ist dir wohl erst einmal geholfen!
Gruß Sozu
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
06.08.2007 11:32:16 |
neumi |
|
|
|
06.08.2007 11:46:34 |
neumi |
|
|
|
06.08.2007 14:08:49 |
canner |
|
|
|
07.08.2007 11:26:48 |
neumi |
|
|
Aw:Aw:Prüfen ob Excel Datei geöffnet ist |
07.08.2007 10:05:51 |
Sozu |
|
|