Sub Excel_Export
Dim Dokument as Object
Dim sUrl as String
Dim sFilterName as String
Dim exportEigenschaften(0) as _
New com.sun.star.beans.PropertyValue
Dokument = ThisComponent
' Pfad für Export
sUrl = ConvertToUrl( "D:\test1.xls" )
If Dokument.supportsService( _
"com.sun.star.sheet.SpreadsheetDocument" ) then
sFilterName = "MS Excel 97"
Msgbox ""
Else
MsgBox "Kein Tabellendokument"
Exit Sub
End If
exportEigenschaften(0).Name = "FilterName"
exportEigenschaften(0).Value = sFilterName
'Dokument speichern und im Calc-Fenster anzeigen
Dokument.storeAsURL( sUrl , exportEigenschaften() )
'oder:
'Dokument speichern und Calc-Fenster belassen wie vorher
'
'Dokument.storeToURL( sUrl , exportEigenschaften() )
End Sub