Strona 1 z 1

[SOLVED] Konwersja makra VBA > OOBasic

PostNapisane: Cz lis 18, 2010 12:06 am
przez wuj_stach
Witam,

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

Kod: Zaznacz cały   Rozszerz widokZwiń widok
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.

Re: Makro z excela.

PostNapisane: Cz lis 18, 2010 5:15 pm
przez Jan_J
Np. tak:
Kod: Zaznacz cały   Rozszerz widokZwiń widok
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.

Re: Makro z excela.

PostNapisane: Pt lis 19, 2010 1:55 pm
przez wuj_stach
Wielkie dzięki. Makro śmiga jak należy.