[Resuelto] Importar CSV en Calc

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...

[Resuelto] Importar CSV en Calc

Notapor Jose Manuel » Lun Feb 09, 2009 8:21 am

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   Expandir vistaContraer vista
Sub Leer_csv

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

   importar (separador, cfile)

End Sub


Procedimiento
Código: Seleccionar todo   Expandir vistaContraer vista
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   Expandir vistaContraer vista
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
Un saludo
Jose manuel
Jose Manuel
 
Mensajes: 99
Registrado: Vie Nov 21, 2008 8:09 am

Volver a Macros y API UNO

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados