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
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
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