Wymiana danych pomiędzy Libre Office, a MS Access

Użytkowanie programu bazodanowego

Wymiana danych pomiędzy Libre Office, a MS Access

Postprzez MarcinM » Wt wrz 22, 2015 9:14 am

Witam!

Pracuję z bazą danych *.mdb i potrzebna mi jest możliwość pobierania danych z arkusza kalkulacyjnego przez bazę danych oraz generowanie danych z bazy do arkusza kalkulacyjnego... Zaznaczam że jestem nowy w temacie Libre Office...

Baza o której mówię (formularze, kwerendy, tabele) opracowana została w programie MS Access 2010 z wykorzystaniem kodu VBA. Wszystko działa w pakiecie Excel 2010 ale wyniknął problem dodania możliwości korzystania z bazy przez Libre Office Base...
Poniżej przedstawię kod przez który następuje komunikacja z arkuszami Excel:
Kod zapisujący dane do arkusza Excel:
Kod: Zaznacz cały   Rozszerz widokZwiń widok
Private Sub Wygeneruj_zamowienie_Click()

''''''''­''''''''­''''''''­''''''''­''''''''­''''''''­''''''''­''''''''­''''''''­''''''''
''' vba code to export a file to Excel ...
''''''''­''''''''­''''''''­''''''''­''''''''­''''''''­''''''''­''''''''­''''''''­''''''''

Dim strNazwaPilku As String

strNazwaPilku = "H:\ZamowienieEXPORT.xlsx"

[b]DoCmd.TransferSpreadsheet acExport, , "q_Czytnik_informacja", strNazwaPilku[/b] ' tu pewnie jest błąd... Ale nie wiem jak przepisać dane z tabeli bazy danych do arkusza libre office
MsgBox "Wygenerowano plik " & strNazwaPilku

Kod odpowiedzialny za otwarcie pliku:
Kod: Zaznacz cały   Rozszerz widokZwiń widok

    Dim oApp As Object
    Dim oExel As Object
   [b] Set oApp = CreateObject("Excel.Application")[/b]

    oApp.Visible = True
    oApp.workbooks.Open ("H:\ZamowienieEXPORT.xlsx")
    On Error Resume Next
    oApp.UserControl = True

Exit_Wygeneruj_zamowienie:
    Exit Sub

Err_Wygeneruj_zamowienie:
    MsgBox Err.Description
    Resume Exit_Wygeneruj_zamowienie
   
    End Sub


Wiecie może jak przepisać dane z tabeli Bazy Danych do arkusza kalkulacyjnego libre office...? Przypuszczalne błędne/do zmiany linie kodu oznaczyłem grubą czcionką...

Będę niezmierne wdzięczny za wszelkie odpowiedzi!!!
OpenOffice3 pod Windows 7
Libre Office pod Windows 10
MarcinM
 
Posty: 1
Dołączył(a): Wt wrz 22, 2015 8:46 am

Powrót do Base

Kto przegląda forum

Użytkownicy przeglądający ten dział: Brak zidentyfikowanych użytkowników i 1 gość

cron