Thema Datum  Von Nutzer Rating
Antwort
27.04.2022 16:50:04 Peko
NotSolved
27.04.2022 17:47:15 ralf_b
NotSolved
Rot VBA variabler Dateiname erkennen
 27.04.2022 19:05:02 Gast98082
NotSolved

Ansicht des Beitrags:
Von:
Gast98082		 Datum:
27.04.2022 19:05:02		 Views:
703		 Rating:
     
Antwort:
  Ja
Thema:
VBA variabler Dateiname erkennen

Mit VBA Boardmitteln:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Function PdfFileWithCustomerIdExists( _
  ByVal Path As String, _
  CustomerId As String, _
  Optional ByRef File As String _
) As Boolean
   
  Dim strFile As String
   
  If Dir$(Path, vbDirectory) = "" Then
  'Pfad existiert nicht/ ist ungültig
    Exit Function
  End If
   
  If Right$(Path, 1) <> "\" Then
    Path = Path & "\"
  End If
   
  File = Dir$(Path & "*_" & Trim$(CustomerId) & "_*.pdf")
   
  PdfFileWithCustomerIdExists = File <> ""
   
End Function

Damit kannst du prüfen, ob eine Datei mit der Kundennummer (CustomerId) existiert.

Deinem Beispiel FirmaXYGmbH_123456_XXX.pdf folgend, könnte der Aufruf so aussehen:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim strPath As String
Dim strFile As String
Dim id As String
 
strPath = "U:\Automatisierung\STARTORT\"
 
id = "123456"
 
If PdfFileWithCustomerIdExists(strPath, id, strFile) Then
   
  MsgBox "Es wurde eine Datei mit der Id '" & id & "' gefunden." _
      & vbNewLine & "=> '" & strFile & "'"
   
Else
  MsgBox "Eine Datei mit der Id '" & id & "' wurde nicht gefunden."
End If

 

Grüße

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
27.04.2022 16:50:04 Peko
NotSolved
27.04.2022 17:47:15 ralf_b
NotSolved
Rot VBA variabler Dateiname erkennen
 27.04.2022 19:05:02 Gast98082
NotSolved