Fórum pro uživatele kancelářského balíku OpenOffice | LibreOffice
 

Stránky 1

#1 Re: Calc » Čtení z buňky v externí Aplikaci pomocí VBA - VYŘEŠENO » 30. 12. 2012 17:18:28

Maroslav

Dobrý den,
uložit soubor do XLS je samozřejmě řešení, ale jen v případě že makro spouštím na PC kde je nainstalován Microsoft office (pro Excel mám již podobné makro hotové) používám knihovnu objektů Microsoft office a myslím že bez instalace balíku Office není možné tyto objekty použít.
Provházel jsem spoustu fór a manuálů ale nic moc mi extra nefunguje sad

#2 Calc » Čtení z buňky v externí Aplikaci pomocí VBA - VYŘEŠENO » 30. 12. 2012 14:54:24

Maroslav
Odpovědí: 3

Dobrý den,

píšu makro v jazyce VBA for application pro externí CAD aplikaci, potřeboval bych načítat hodnoty z buněk z dokumenty OO calc. Mám hotovou část kódu, ale nemůžu se nějak "odpíchnout" dál. Nejsem profesionální programátor tak možná je v kódu jen nějaké blbost. Našel by se někdo kdo má s OO více zkušeností prosím???

Díky 

Sub reading_value()
Dim oSM
Dim oDesk As Object
Dim oDoc As Object
Dim oSheet As Object
Dim arg()

Set oSM = CreateObject("com.sun.star.ServiceManager")
Set oDesk = oSM.createInstance("com.sun.star.frame.Desktop")
Set oDoc = oDesk.loadComponentFromURL("file:///C:\Alphacam\LICOMDIR\Technologie\Technologie.ods", "_blank", 0, ar())
oDoc.Close (True)
Set oDoc = Nothing
Set oSheet = oDoc.getSheets().getByName("Sheet1")   ' get by name
Set oCell = oSheet.getCellByPosition(1, 1)
'
nValue = oCell.getValue()
MsgBox "nValue"
End Sub

_________________________________________________
Značím jako vyřešené

;o)

Stránky 1

Zápatí

Používáme FluxBB