Next, I need to open the next .xls, etc.
My code:
Code: Select all
Dim args()
Set SM= CreateObject("com.sun.star.ServiceManager")
Set Desktop= SM.createInstance("com.sun.star.frame.Desktop")
currentfilename = "file:///T:/CD2.xls"
Set objCalc= Desktop.loadComponentFromURL(currentfilename, "_blank", 0, args)
Set objWorkSheet= objCalc.Sheets.getbyName("Sheet1")
Set objCell= objWorkSheet.getCellbyPosition(0,3)
Print objCell.getFormula()