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:
622
Rating: Antwort:
  Ja
Thema:
Datei in Ordner suchen und verlinken

Allgemein geht suchen so:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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

1
2
3
4
5
6
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.

1
2
3
4
5
'...
 
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