[SOLVED] Jak pobrać datę z Pola daty - jeszcze raz

[Piotrek_K]

Jako kompletny laik w makrach LibreOffice trafiłem na taki problem:
wstawiłem do arkusza pole daty i chcę aby po wybraniu daty z kalendarza przenosiła się ona do określonej komórki. Przeszukując forum natrafiłem na podobny problem jednak tam pole daty było częścią formularza dialogu, więc było adresowane jako komponent tego dialogu: https://forum.openoffice.org/pl/forum/v ... =27&t=2518
Ja, w moim arkuszu "Licznik", zdefiniowałem nie formularz ale pojedyncze pole daty, nazwane PoleDaty1, a jego zawartość ma się zapisać w komórce J4. Jak mam to pole daty zaadresować w kodzie i czy reszta kodu jest odpowiednia dla mojego przypadku?

Kod: Zaznacz cały

Sub WstawDate
   Dim Data As Variant
   oDocument = ThisComponent
   oSheet = oDocument.getSheets.getByName("Licznik")
   oCell = oSheet.getCellByName(J4)
   Data = ???
   D = Data.Date
   dd = DateSerial(D.year, D.month, D.day)
   oCell.setValue(dd)
End Sub

[Jan_J]

O ile pamiętam, pojedyncze pole daty będzie niejawnie zawarte w formularzu. Trzeba się odwołać do formularzy na danej stronie (zapewne będzie jeden), w nim dobrać się do pola (też będzie jedno, a jego nazwę znasz), a dalej już pójdzie.

[Piotrek_K]

Trzeba się odwołać do formularzy na danej stronie (zapewne będzie jeden), w nim dobrać się do pola (też będzie jedno, a jego nazwę znasz), a dalej już pójdzie.

Ratunku! Nie poszło. Jak pisałem, ja laik jestem, pierwsze nieśmiałe kroczki w programowaniu stawiam.
Próbowałem i tak:

Kod: Zaznacz cały

Data = form.getControl("PoleDaty1")

i tak:

Kod: Zaznacz cały

Data = form.getByName("PoleDaty1")

i zawsze wywala błąd:

Błąd uruchomieniowy języka BASIC.
Nie ustawiono zmiennej obiektu.

Co robię źle? Może jakiś kawałek kodu, please

[belstar]

Może tak.

[Piotrek_K]

Dziękuję! O to mi chodziło!