Makroer fra Excel

[Kim Jespersen]

Jeg er ret ny til det her Openoffice og roder gevaldigt rundt i det og sidder her og tænker på, om der er en måde jeg kan aktivere mine makroer på, selvom de er fra basic og Excel?

Det ku jo ikk være så lidt fedt hvis jeg kunne konvertere mit Excel arbejde til OOo vel

[LarsBrandi]

Der er så vidt jeg ved ikke nogen programmer der kan konvertere en VB makro til en OOo makro. Men jeg er sikker på, at smider du din kode ind under makroprogrammering, er der nogle der vil være behjælpelige med at oversætte den for dig. Blot beskriv hvad den gør.

[Claus Sørensen]

... om der er en måde jeg kan aktivere mine makroer på, selvom de er fra basic og Excel?

Der er en opdatering på vej til StarOffice 7.0, som netop vil have denne funktionalitet.

Det ser dog ikke ud til, at det også vil komme med i OpenOffice.org, men så er det muligt at købe StarOffice 7.0 til en enkelt maskine, som så kan stå for oversættelsen af virksomhedens Visual Basic for Application-makroer til StarOffice Basic/OpenOffice.org Basic.

Resten af virksomheden kan så "nøjes" med OpenOffice.org.

Læg dog ogdå mærke til at StarOffice 7.0 ikke findes på dansk.

[Kim Jespersen]

Her er et par ret banale makroer fra Excel :

Private Sub Beregn_Click()
Sheets("Beregn-2004").Select
End Sub

Private Sub Resultat_Click()
Sheets("Resultat-2004").Select
End Sub

Private Sub Forside1_Click()
Sheets("Forside").Select
End Sub

Private Sub Forside2_Click()
Sheets("2004").Select
End Sub

Jeg er heller ikk programmeringshaj, så hvis jeg bare får vejen frem

[LarsBrandi]

Og hvad gør de ?. Vælger de et regnark med navn "Beregn-2004" o.s.v.

[Kim Jespersen]

Ja faktisk

[LarsBrandi]

Der er flere muligheder. Du kan optage en makro gør det du gerne vil have eller bruge en makro som denne :

Code: Select all

Sub test
    oDocument=ThisComponent
	 oSheet=oDocument.Sheets.getByName("Beregn-2004")
	 oDocument.CurrentController.setActiveSheet(oSheet)
End Sub

Den kan så forbindes med en trykknap, så man kan hoppe rundt mellem arkene.

[Guest]

Tusinde tak, det vil jeg lige prøve