[SOLVED] Konwersja makra VBA > OOBasic

Makropolecenia i funkcje w języku Basic
wuj_stach
Posty: 4
Rejestracja: pt paź 29, 2010 4:18 pm

[SOLVED] Konwersja makra VBA > OOBasic

Post autor: wuj_stach »

Witam,

Mam takie makro, które działa pod excelem ale niestety nie moge go pod OO uruchomić:

Kod: Zaznacz cały

Sub ZmianaNazArkuszy()

Dim arkusz As Object

nazwa = InputBox("Podaj podstawową nazwę Arkusza" _
       & ": ", "Rename Sheet", ActiveSheet.name)

For Each arkusz In ActiveWorkbook.Sheets
spacja = " "
kolejny_scenariusz = kolejny_scenariusz + 1
arkusz.name = nazwa & spacja & kolejny_scenariusz
Next arkusz
End Sub
Proszę o pomoc, jak przerobić to makro żeby działało pod OO. Z góry wielkie dzięki.
OpenOffice 3.2 pod Ubuntu 10.04
Jan_J
Posty: 4557
Rejestracja: pt maja 22, 2009 1:20 pm
Lokalizacja: Wrocław

Re: Makro z excela.

Post autor: Jan_J »

Np. tak:

Kod: Zaznacz cały

Sub Test()
	d = thisComponent
	nazwa = InputBox("Podaj podstawową nazwę arkusza: ", "Rename Sheet", d.currentController.activeSheet.name)
	If nazwa <> "" Then
		ZmianaNazArkuszy(d, nazwa & " ")
	End If
End Sub

Sub ZmianaNazArkuszy(skoroszyt, wzorzec)
	kolejny = 0
	For Each arkusz In skoroszyt.Sheets
		kolejny = kolejny + 1
		arkusz.name = wzorzec & kolejny
	Next arkusz
End Sub
Przy okazji nastąpił rozdział logiki czynności od interfejsu.
JJ
LO (7.6) ∙ AOO (4.1) ∙ Python (3.11|3.10) ∙ Unicode 15 ∙ LᴬTEX 2ε ∙ XML ∙ Unix tools ∙ Linux (Rocky|CentOS)
wuj_stach
Posty: 4
Rejestracja: pt paź 29, 2010 4:18 pm

Re: Makro z excela.

Post autor: wuj_stach »

Wielkie dzięki. Makro śmiga jak należy.
OpenOffice 3.2 pod Ubuntu 10.04
ODPOWIEDZ