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ę.
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
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
Powrót do Makra i programowanie
Użytkownicy przeglądający ten dział: Brak zidentyfikowanych użytkowników i 2 gości