Frage zu Makros

[BritzFox]

Hi,
ich würde gerne umsteigen von MS Office auf OpenOffice.
Allerdings habe ich in Excel einige Makros, die mich bisher daran hindern.
Aber vielleicht kann mir ja jemand dabei helfen.

Als erstes finde ich nicht, wie man eigene Schaltflächen einbauen kann.
Ich benötige 3 Icons, die ich mit Makros belegen kann.
Am besten rechts neben dem drucken Symbol.
Die Makros für diese 3 Icons haben folgende Funktion.

Makro 1
als erstes brauche ich ein Makro, dass mir die Vorlage d:\daten\vorlage1.ots öffnet.

Makro 2
aktuell geöffnete Datei speichern unter d:\daten\ dateiname aus Feld M13

Makro 3
feld M11 leeren (inhalt löschen)
Datei speichern als d:\daten\vorlage1.ots

1000 Dank schon mal für die Hilfe.

[F3K Total]

Moin,

1. Makro 1
   als erstes brauche ich ein Makro, dass mir die Vorlage d:\daten\vorlage1.ots öffnet.
   
   Makro 2
   aktuell geöffnete Datei speichern unter d:\daten\ dateiname aus Feld M13
   
   Makro 3
   feld M11 leeren (inhalt löschen)
   Datei speichern als d:\daten\vorlage1.ots

   Kannst Du dir selbst mit Hilfe der folgenden Links zusammenbauen.
   http://www.dannenhoefer.de/faqstarbasic ... l#Zweig133
   http://www.dannenhoefer.de/faqstarbasic ... l#Zweig167

2. Als erstes finde ich nicht, wie man eigene Schaltflächen einbauen kann.
   Ich benötige 3 Icons, die ich mit Makros belegen kann.

   Das geht über Extras/Anpassen.../Reiter Symbolleisten. Steht auch in der Hilfe (F1). Den Einträgen in deiner eigenen Symbolleiste kannst Du die oben erstellten Makros zuordnen.

Gruß R

[BritzFox]

Also ich bekomme das Speichern mittlerweile hin.
Ich hätte gerne den Dialog speichern unter mit der Vorgabe des Dateinamen, aber nicht speichern ohne Nachfrage, so dass ich noch was am DateiNamen ändern kann.

Code: Alles auswählen

sub save2
  oDoc=thisComponent
  Sheet = oDoc.Sheets(0) '[erstes Arbeitsblatt]
  Cell = Sheet.getCellByPosition(12, 12)  '[Zelle A1]
  Filename = Cell.String
  Path = "file:///d:/daten/" 
  dim args1(0) as new com.sun.star.beans.PropertyValue
  args1(0).Name = "FilterName"
  args1(0).Value = "StarOffice XML (Calc)"
  oDoc.storeasurl(Path &  Filename & ".ods",args1())
end sub

[Eddy]

Hai BritzFox,

was glaubst Du, wofür hier die Rubrik "Makros und allgemeine Programmierung" eingerichtet wurde?

Richtig, damit Fragen wie diese dort gestellt werden. Bitte nutze diese Rubrik bei zukünftigen Fragen zu Makros.

Mit unprogrammierten Grüßen

Eddy

[BritzFox]

Oha, sorry.
Bin ich im falschen Unterforum
Kann gelöscht werden.