Makro

[Karolus]

Hallo Hannes

Code: Alles auswählen

Sub Datei_Oeffnen
Dim Arg()
Dim oDoc As Object
   sUrl1 = convertToURL("C:\Dokumente und Einstellungen\tbh\EIGENE DATEIEN\AI003700.XLS")
   sUrl2 = convertToURL("C:\Dokumente und Einstellungen\tbh\EIGENE DATEIEN\AI003800.XLS")
   StarDesktop.loadComponentFromURL (sURL1, "_blank", 0, Arg())
   StarDesktop.loadComponentFromURL (sURL2, "_blank", 0, Arg())
End Sub

Gruß Karo