Herbers Excel-Forum - das Archiv
Vorlagen auswahl
- Vorlagen auswahl von Martin vom 09.10.2003 11:42:18
- AW: Vorlagen auswahl - von Reinhard am 09.10.2003 12:53:20
- AW: Vorlagen auswahl - von Reinhard am 09.10.2003 12:53:20
 |
Betrifft: Vorlagen auswahl
von: Martin
Geschrieben am: 09.10.2003 11:42:18
Hallo ich möchte gerne eine Mustervorlage öffnen, dort möchte ich dann auswählen können zwischen anderen Mustervorlagen die ich vorher definiert habe.
Damit möcht ich mir das ganze gesuche auf meinen Server sparen.
Hat von euch einer eine Idee wie ich das umsetzen kann?
MFG Martin
 |
Betrifft: AW: Vorlagen auswahl
von: Reinhard
Geschrieben am: 09.10.2003 12:53:20
Hallo Martin,
probier Nachfolgendes:
Gruß
Reinhard
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
| |