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:
428		 Rating:
     
Antwort:
  Ja
Thema:
VBA variabler Dateiname erkennen

Mit VBA Boardmitteln:

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:

  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:



  • 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