Początki - Łączenie z plikiem zewnętrznym
: śr kwie 24, 2013 9:19 am
Witam
Dopiero zaczynam coś robić wykorzystując Macra w LibreOffice. Nie ukrywam, że posiłkuje się przykładami, które zaczerpuje w sieci. Mam plan aby stworzyć w jednym pliku .ods macro, które będzie pobierało dane z innego pliku ods. Znalazłem instrukcję, któr ateoretycznie to robi, nigdzie indziej nie znalazłem takiego rozwiązania, w ogóle nie znalazłem oprócz tego żadnego rozwiązania tego problemu. Poniżej chciałem wam przedstawić ten kawałek kodu w Basic'u. Niestety podczas uruchamiania macra pojawia się komunikat "Nie zdefiniowano procedury lub funkcji" i zaznacza się linia "Set xSheet = GetObject("/home/piotrosan/Pulpit/test.ods")". Czy w ogóle można coś takiego w taki sposób zrobić ? Czy ja jeszcze muszę coś dopisać aby to zadziałało ?
Przyznam, że bardzo mało jest przykładów w sieci , albo ja jakoś nie umiem ich szukać.
Poniżej moje macro
Option Explicit
Sub Porownywarka
Dim xSheet as Object
Set xSheet = GetObject("/home/piotrosan/Pulpit/test.ods")
oCell = xSheet.getCellByPosition(0, 0)
MsgBox "oCell.value"
End Sub
Dopiero zaczynam coś robić wykorzystując Macra w LibreOffice. Nie ukrywam, że posiłkuje się przykładami, które zaczerpuje w sieci. Mam plan aby stworzyć w jednym pliku .ods macro, które będzie pobierało dane z innego pliku ods. Znalazłem instrukcję, któr ateoretycznie to robi, nigdzie indziej nie znalazłem takiego rozwiązania, w ogóle nie znalazłem oprócz tego żadnego rozwiązania tego problemu. Poniżej chciałem wam przedstawić ten kawałek kodu w Basic'u. Niestety podczas uruchamiania macra pojawia się komunikat "Nie zdefiniowano procedury lub funkcji" i zaznacza się linia "Set xSheet = GetObject("/home/piotrosan/Pulpit/test.ods")". Czy w ogóle można coś takiego w taki sposób zrobić ? Czy ja jeszcze muszę coś dopisać aby to zadziałało ?
Przyznam, że bardzo mało jest przykładów w sieci , albo ja jakoś nie umiem ich szukać.
Poniżej moje macro
Option Explicit
Sub Porownywarka
Dim xSheet as Object
Set xSheet = GetObject("/home/piotrosan/Pulpit/test.ods")
oCell = xSheet.getCellByPosition(0, 0)
MsgBox "oCell.value"
End Sub