[Resuelto] Importar CSV en Calc

[Jose Manuel]

Hola!.

La macro para importar CSV es:
(Simplemente en el programa principal indicar la ruta y el caracter separador

Programa principal

Código: Seleccionar todo

Sub Leer_csv

   cFile = "c:\temp\test2.txt"
   separador = ";"

   importar (separador, cfile)

End Sub

Procedimiento

Código: Seleccionar todo

Sub importar (separador, cfile)

   oDoc = StarDesktop.loadComponentFromURL(_
      ConvertToURL( cFile ),_
      "_blank", 0,_
      Array( _
         MakePropertyValue( "FilterName", "Text - txt - csv (StarCalc)" ),_
         MakePropertyValue( "FilterOptions", _
            CStr(Asc(separador))+","+CStr(Asc(""""))+",0,1,1/1" ) ) )

end sub

Procedimiento

Código: Seleccionar todo

Function MakePropertyValue( Optional cName As String, Optional uValue ) As com.sun.star.beans.PropertyValue

   oPropertyValue = createUnoStruct( "com.sun.star.beans.PropertyValue" )
   If Not IsMissing( cName ) Then
      oPropertyValue.Name = cName
   EndIf
   If Not IsMissing( uValue ) Then
      oPropertyValue.Value = uValue
   EndIf
   MakePropertyValue() = oPropertyValue

End Function