Thema Datum  Von Nutzer Rating
Antwort
28.09.2015 14:46:11 Bohdii
NotSolved
Blau Datei in Ordner suchen und verlinken
 28.09.2015 16:46:35 Gast69061
NotSolved

Ansicht des Beitrags:
Von:
Gast69061		 Datum:
28.09.2015 16:46:35		 Views:
539		 Rating:
     
Antwort:
  Ja
Thema:
Datei in Ordner suchen und verlinken

Allgemein geht suchen so:

Option Explicit

Sub Bsp()
  
  Dim strPath As String
  Dim strFile As String
  
  strPath = "X:\Verz\UnterVerz\" '< ändern
  
  If Right$(strPath, 1) <> "\" _
    Then strPath = strPath & "\"
  
  strFile = Dir$(strPath & "*.*")
  ' *.*         entspricht alle Dateien
  ' *.xls       entspricht alle Dateien mit der Dateiendung 'xls' (also Excel-Dateien)
  ' *.doc       entspricht alle Dateien mit der Dateiendung 'doc' (also Word-Dateien)
  ' *1234*.xls  entspricht alle Dateien die irgendwo im Dateinamen '1234' stehen haben und die Dateiendung 'xls' aufweisen
  
  Do While strFile <> ""
    
    'Ausgabe im VBA Direktfenster (ggf. übers Menü 'Ansicht' einblenden)
    Debug.Print strPath & strFile
    
    strFile = Dir$() 'nächste Datei suchen
  Loop
  
End Sub

Da du gezielt nach einer Nummer suchst, könntest du dir die Do-Loop Schleife sparen (außer es gibt mehrere Dokumente in dem Ordner mit der Nummer).

 

Ansonsten einfach nur

  strPath = "X:\Verz\UnterVerz\" '< ändern
  
  If Right$(strPath, 1) <> "\" _
    Then strPath = strPath & "\"

  strFile = strPath & "*1234*.*"

Um die letzte zeile baust du dann eine For-Schleife drum herum, um deine 1000 Nummern abzuarbeiten.

z.B.

  '... 
  
  For i = 1 to 1000
    strFile = strPath & "*" & Worksheets("Tabelle1").Cells(i, "A").Value & "*.*")
  Next

 

Was du genau hier für einen Link kopieren willst ist mir jedoch schleierhaft.

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
28.09.2015 14:46:11 Bohdii
NotSolved
Blau Datei in Ordner suchen und verlinken
 28.09.2015 16:46:35 Gast69061
NotSolved