Forum społeczności użytkowników OpenOffice i LibreOffice

: **czw lis 18, 2010 12:06 am**

Witam,

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

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.

: **czw lis 18, 2010 5:15 pm**

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.

: **pt lis 19, 2010 1:55 pm**

Wielkie dzięki. Makro śmiga jak należy.

Forum społeczności użytkowników OpenOffice i LibreOffice

[SOLVED] Konwersja makra VBA > OOBasic

[SOLVED] Konwersja makra VBA > OOBasic

Re: Makro z excela.

Re: Makro z excela.