Vorlagen auswahl

Bild

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

Bild


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



 Bild

Beiträge aus den Excel-Beispielen zum Thema " Vorlagen auswahl"