|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
31.12.2013 08:33:25 |
ReneN |
|
|
|
01.01.2014 09:44:20 |
Holger |
|
|
|
02.01.2014 09:51:12 |
ReneN |
|
|
 Pfad und Dateiname per VBA übergeben |
02.01.2014 12:01:15 |
DerBob |
|
|
|
02.01.2014 22:20:56 |
ReneN |
|
|
|
03.01.2014 13:34:32 |
ReneN |
|
|
|
03.01.2014 15:32:43 |
Gast49078 |
|
|
|
19.01.2014 07:22:35 |
ReneN |
|
|
|
19.01.2014 12:57:33 |
ReneN |
|
|
|
20.01.2014 02:33:01 |
Gast22493 |
|
|
|
20.01.2014 08:10:55 |
ReneN |
|
|
|
20.01.2014 22:29:43 |
Gast44568 |
|
|
|
20.01.2014 22:33:19 |
Gast76286 |
|
|
|
21.01.2014 14:14:06 |
ReneN |
|
|
Von:
DerBob |
Datum:
02.01.2014 12:01:15 |
Views:
1272 |
Rating:
|
Antwort:
|
Thema:
Pfad und Dateiname per VBA übergeben |
Dim astrPath() As String
Dim strDatendatei As String
'Pfad in dem sich sich dieses ("ich selbst") Dokument befindet
' (Pfadangabe aufsplitten in einzelne [Unter-]Verzeichnisse)
astrPath = Split(ThisDocument.Path, "\")
'Name der zu erwartenden Datendatei bilden
strDatendatei = "Mitgliederliste_" & astrPath(UBound(astrPath)) & ".xml"
'prüfen ob Datendatei vorhanden ist
If "" <> Dir$(ThisDocument.Path & "\" & strDatendatei) Then
Call MsgBox("Datendatei ist vorhanden.", vbInformation)
Else
Call MsgBox("Datendatei nicht vorhanden!", vbExclamation)
End If
Wäre ein Ansatz.
Gruß
|
- 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
|
|
31.12.2013 08:33:25 |
ReneN |
|
|
|
01.01.2014 09:44:20 |
Holger |
|
|
|
02.01.2014 09:51:12 |
ReneN |
|
|
Pfad und Dateiname per VBA übergeben |
02.01.2014 12:01:15 |
DerBob |
|
|
|
02.01.2014 22:20:56 |
ReneN |
|
|
|
03.01.2014 13:34:32 |
ReneN |
|
|
|
03.01.2014 15:32:43 |
Gast49078 |
|
|
|
19.01.2014 07:22:35 |
ReneN |
|
|
|
19.01.2014 12:57:33 |
ReneN |
|
|
|
20.01.2014 02:33:01 |
Gast22493 |
|
|
|
20.01.2014 08:10:55 |
ReneN |
|
|
|
20.01.2014 22:29:43 |
Gast44568 |
|
|
|
20.01.2014 22:33:19 |
Gast76286 |
|
|
|
21.01.2014 14:14:06 |
ReneN |
|
|