Desde un aplicativo tengo una función creada en VB que me exporta datos de un listado a Excel. Ahora deseamos modificar esa función para que los exporte a Calc de LibreOffice.
El LibreOffice instalado es el 7.1, la función esta en VB, el sistema op es W10.
Esta es la que tenemos actualmente creada para Excel que deseamos modificar para abrir Calc.
Código: Seleccionar todo
Sub LanzaExcelConMacro()
On Error Resume Next
Dim aplicacion_excel
Set aplicacion_excel = CreateObject("Excel.Application")
Dim filas
Dim columnas
filas = UBound(ParamExcel2,1)
columnas = UBound(ParamExcel2,2)
Dim i
Dim j
Dim libro
Dim hoja
Dim celda
If OFI_ACTION = "Add" Then
Set libro = aplicacion_excel.Workbooks.Add
Else
Set libro = aplicacion_excel.Workbooks.Open ( OFI_FILE )
End If
Dim ret
ret="1"
Set hoja = libro.Sheets(CInt(ret))
For i = 1 to filas
For j = 1 to columnas
Set celda = hoja.Cells(i,j)
valor=ParamExcel2(i-1,j-1)
If IsDate(valor) Then
celda.value = CDate(valor)
else If IsNumeric(valor) Then
celda.value =CDbl(valor)
else celda.value = valor
End If
End If
Next
Next
set celda=hoja.Cells(1,1)
celda.Select
aplicacion_excel.Run OFI_PROC
aplicacion_excel.Visible = True
Set celda = Nothing
Set hoja = Nothing
Set libro = Nothing
Set aplicacion_excel= Nothing
End Sub