Strona 1 z 1

Wymiana danych pomiędzy Libre Office, a MS Access

PostNapisane: Wt wrz 22, 2015 9:14 am
przez MarcinM
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!!!