Re: Makro
Verfasst: Fr, 04.04.2008 10:46
Hallo Hannes
Gruß Karo
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