LibreOffice makro wybrane kolumny

[szlejk]

Witam.
Potrzebuję wskazówek jak napisać makro w Libreoffice . Makro ma za zadanie skopiować wybrane kolumny (A1,B1,C1,D1) z pliku Nadajnik.xlsx do pliku Odbiornik.ods w arkusz Cel.

Dziękuję każdą wskazówkę.

[szlejk]

Witam.
Udało mi się z poziomu arkuszy tego samego dokumentu, jak zrobić by kopiował z arkusza innego dokumentu?

Pozdrawiam

Kod: Zaznacz cały   Rozszerz widokZwiń widok

Sub Main5
Doc = ThisComponent
Sheets = Doc.Sheets()
SheetCopy = Sheets.getByName("jeden")
SheetPaste = Sheets.getByName("dwa")
CopyRange = SheetCopy.getCellRangeByName("A1:A11")
PasteCell = SheetPaste.getCellRangeByName("B1")
CopyAddress = CopyRange.RangeAddress
PasteAddress = PasteCell.CellAddress
SheetCopy.CopyRange(PasteAddress, CopyAddress)
End Sub

[Jan_J]

zamiast ThisComponent trzeba rozróżnić dwa dokumenty, najlepiej po nazwie.
Musisz zdecydować, czy działasz na otwartych wcześniej dokumentach, czy próbujesz otwierać dokumenty o podanych nazwach, czy też pytasz użytkownika o nazwę/nazwy.
Radzę zajrzeć do OOME oraz AndrewMacro Andrew Pitonyaka. Setki prostych przykładów pogrupowane tematycznie.

[szlejk]

Witam i dziękuję

Dokumenty nie będą wcześniej otwierane, makro ma za zadnie pobrać z nich dane z wybranych kolumn.
Poproszę o wskazówki jak pobrać dane z zewnętrznego arkusza, za pomocą makra?

[belstar]

Może tak

Kod: Zaznacz cały   Rozszerz widokZwiń widok

Sub Copy_Calc2Calc
   Dim Url As String
   Dim Properties(0) As New com.sun.star.beans.PropertyValue
   Dim quotes
   Dim Doc As Object
   Dim Sheet As Object
   Dim Cell As Object   
'************Dokument docelowy***************
   Doc = ThisComponent
   Sheet = Doc.Sheets.getByName("Arkusz1")
   Cell = Sheet.getCellRangeByName("A1:D10")
'********************************************
'****Ścieżka i parametry otwarcia pliku źródłowego
   Url = ConvertToURL("~/Calc2Calc/Nadajnik.xlsx")
   Properties(0).Name = "Hidden"
   Properties(0).Value = true
'*******************************************   
'********Otwarcie ukrytego pliku źródłowego
   quotes = StarDesktop.LoadComponentFromUrl(url, "_blank", 0, Properties())
'************lokalizacja danych źródłowych
   qSheet = quotes.Sheets.getByName("Arkusz1")
   qCells = qSheet.getCellRangeByName("A1:D10")
'**********pobranie danych źródłowych
   qDataArray = qCells.getDataArray
'**********wstawienie danych w pliku docelowym
   Cell.setDataArray(qDataArray)
'**********zamknięcie pliku źródłowego
   quotes.close(true)
End Sub

Zmień sobie ścieżkę do pliku źródłowego i zakresy komórek.

[szlejk]

Dziękuję
Dokładnie o to mi mi chodziło.

Pozdrawiam