Re: Makro zum Speichern
Verfasst: Do, 04.10.2007 16:55
Wenn Dein VBA-Makro von Dir ist solltest Du keine Schwierigkeiten haben -nach ein bisschen Recherche- den Code zu übersetzen.
vom aktuellen Dokument den Pfad:
REM
Nachrichtenfenster mit Ja/Nein Schaltflächen
Speichern als Excel
Die Code-Beispiele sind alle "aus der Hand" - sprich: ungetestet !
Ein anständiges Fehler-Checking fehlt!
Weisst Du nun mehr?
Code: Alles auswählen
Zellwert B8
REM Objekt des aktiven Blatts
oBlatt = ThisComponent.Sheets.getByName("Seite 1")
REM Zellen des Blatts, Spalte/Zeile NULL-basiert !
REM B8
sTeil1 = oBlatt.getCellByPosition(1,7).getString()
Code: Alles auswählen
REM Hilfsfunktionen
GlobalScope.BasicLibraries.LoadLibrary( "Tools" )
sPfadtrenner = GetPathSeparator()
REM Pfad des gespeicherten !!! Dokuments
sAktPfad = _
DirectoryNameoutofPath( ThisComponent.URL,sPfadtrenner) Nachrichtenfenster mit Ja/Nein Schaltflächen
Code: Alles auswählen
iButton = Msgbox( "Ja oder Nein", 4, "Fragen....")
REM 6: JA gedrücktCode: Alles auswählen
Dim oParms(0) As New com.sun.star.beans.PropertyValue
oParms(0).Name = "FilterName"
oParms(0).Value = "Microsoft Excel 97/2000/XP (.xls)"
ThisComponent.StoreToURL( ConvertToURL( sDeinName ) , oParms() ) Die Code-Beispiele sind alle "aus der Hand" - sprich: ungetestet !
Ein anständiges Fehler-Checking fehlt!
Weisst Du nun mehr?