Sub test()
'getestet mit win98, Excel2000
Open "c:\temp\dirxlt.bat" For Output As #1
Print #1, "echo. | dir c:\*.xlt /-p /b /s > c:\temp\xlt.tmp"
'Print #1, "echo. | dir d:\*.xlt /-p /b /s >> c:\temp\xlt.tmp"
'Print #1, "echo. | dir e:\*.xlt /-p /b /s >> c:\temp\xlt.tmp"
Close #1
'Dos ist schneller als per Excel die Dateien zu suchen
Shell ("c:\windows\command.com /c c:\temp\dirxlt.bat")
Open "c:\temp\xlt.tmp" For Input As #2
Zeile = 1
While Not EOF(2)
Input #2, PfadDatei
With Worksheets("Tabelle1")
.Hyperlinks.Add .Cells(Zeile, 1), PfadDatei
End With
Zeile = Zeile + 1
Wend
Close #2
Kill "c:\temp\dirxlt.bat"
'On Error GoTo DateiNochOffen
'DateiNochOffen:
'Kill "c:\temp\xlt.tmp" ' Makro zu schnell, datei noch offen, ggfs Warteschleife einbauen
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen