Nie jesteś zalogowany.
Jeśli nie posiadasz konta, zarejestruj je już teraz! Pozwoli Ci ono w pełni korzystać z naszego serwisu. Spamerom dziękujemy!
Prosimy o pomoc dla małej Julki — przekaż 1% podatku na Fundacji Dzieciom zdazyć z Pomocą.
Więcej informacji na dug.net.pl/pomagamy/.
Strony: 1
Witam panowie i z góry przepraszam za potworka którego stworzyłem na podstawie materiałów znalezionych w sieci ale orłem w pisaniu skryptów/makr nigdy nie byłem. Chciałem ułatwić mojej kobicie tworzenie raportów ale chyba poległem. Nie wiem czemu to nie działa i nie wiem jak to zmusić do działania. Prawidłowo wykonuje 1 przebieg a podczas drugiego podświetal mi linie:
Doc.storeToURL(sURL,aArgs)
i krzyczy
" Błąd uruchomieniowy języka BASIC.
Wystąpił wyjątek
Type: com.sun.star.lang.IllegalArgumentException
Message: sequence element is not assignable by given value!"
Dodam jeszcze że oczywiście po wywaleniu pętli for i elementów od niej zależnych wszystko działa jak trzeba. A oto samo makro:
Sub Pdf_file Dim I, Doc As Object, dec As Object, Cel As Object Doc = ThisComponent For I = 1 To 247 dec = Doc.Sheets.getByName("Decyzja_nie_wyk") 'wyróżnienie arkusza nr1 Cel = dec.getCellByPosition(3,2) 'wyróżnienie komórki A1 Cel.setValue(I) dec = Doc.Sheets.getByName("Decyzja_wyk") 'wyróżnienie arkusza nr1 Cel = dec.getCellByPosition(3,2) 'wyróżnienie komórki A1 Cel.setValue(I) dec = Doc.Sheets.getByName("Decyzja_nie_wyk") Cel = dec.getCellByPosition(15, 0) sURL = "file:///home/kasia/Dokumenty/Praca/decyzje/"& Cel.getString()&".pdf" ' arguments for "FilterData" Dim aArg(7) As New com.sun.star.beans.PropertyValue aArg(0).Name = "RestrictPermissions" aArg(0).Value = True aArg(1).Name = "PermissionPassword" aArg(1).Value = "pass" aArg(2).Name = "Changes" aArg(2).Value = 0 aArg(3).Name = "EncryptFile" aArg(3).Value = True ' aArg(4).Name = "DocumentOpenPassword" 'aArg(4).Value = "pass"'hasło aArg(4).Name = "EnableCopyingOfContent" aArg(4).Value = False aArg(5).Name = "Printing" aArg(5).Value = 0 aArg(6).Name = "EnableTextAccessForAccessibilityTools" aArg(6).Value = False ' arguments for stroreToURL method Dim aArgs(1) As New com.sun.star.beans.PropertyValue aArgs(0).Name = "FilterName" aArgs(0).Value = "calc_pdf_Export" aArgs(1).Name = "FilterData" aArgs(1).Value = aArg Doc.storeToURL(sURL,aArgs) Next I End Sub
Edit:
Przespałem się z problemem i mnie oświeciło. Aż dziwne, że nikt tego nie wychwycił... należy przenieść linijki:
Dim aArg(7) As New com.sun.star.beans.PropertyValue
oraz
Dim aArgs(1) As New com.sun.star.beans.PropertyValue
ponad pętle for i działa jak ta lala. Jeszcze tylko ostatnie szlify i będzie gotowe :D
Ostatnio edytowany przez Bitels (2014-02-19 21:02:09)
Offline
Strony: 1
Time (s) | Query |
---|---|
0.00011 | SET CHARSET latin2 |
0.00004 | SET NAMES latin2 |
0.00131 | SELECT u.*, g.*, o.logged FROM punbb_users AS u INNER JOIN punbb_groups AS g ON u.group_id=g.g_id LEFT JOIN punbb_online AS o ON o.ident='3.138.118.103' WHERE u.id=1 |
0.00105 | UPDATE punbb_online SET logged=1716111998 WHERE ident='3.138.118.103' |
0.00038 | SELECT * FROM punbb_online WHERE logged<1716111698 |
0.00070 | SELECT t.subject, t.closed, t.num_replies, t.sticky, f.id AS forum_id, f.forum_name, f.moderators, fp.post_replies, 0 FROM punbb_topics AS t INNER JOIN punbb_forums AS f ON f.id=t.forum_id LEFT JOIN punbb_forum_perms AS fp ON (fp.forum_id=f.id AND fp.group_id=3) WHERE (fp.read_forum IS NULL OR fp.read_forum=1) AND t.id=25284 AND t.moved_to IS NULL |
0.00005 | SELECT search_for, replace_with FROM punbb_censoring |
0.00070 | SELECT u.email, u.title, u.url, u.location, u.use_avatar, u.signature, u.email_setting, u.num_posts, u.registered, u.admin_note, p.id, p.poster AS username, p.poster_id, p.poster_ip, p.poster_email, p.message, p.hide_smilies, p.posted, p.edited, p.edited_by, g.g_id, g.g_user_title, o.user_id AS is_online FROM punbb_posts AS p INNER JOIN punbb_users AS u ON u.id=p.poster_id INNER JOIN punbb_groups AS g ON g.g_id=u.group_id LEFT JOIN punbb_online AS o ON (o.user_id=u.id AND o.user_id!=1 AND o.idle=0) WHERE p.topic_id=25284 ORDER BY p.id LIMIT 0,25 |
0.00091 | UPDATE punbb_topics SET num_views=num_views+1 WHERE id=25284 |
Total query time: 0.00525 s |