FoxPro/Visual FoxPro - Exportar un dbf a excel conservando ceros inciales

 
Vista:

Exportar un dbf a excel conservando ceros inciales

Publicado por Yimy (2 intervenciones) el 03/01/2011 17:18:11
Estoy intentando utilizar un ejemplo que encontre en internet para exportar una tabla o un cursor dbf a excel de forma rapida (uso visualfoxpro 9). Para ello recomiendan exportar el cursor a un archivo txt y luego mandar ese txt separado por como o punto y como a excel através de Querytables. El problema es que tengo un campo con un numero en formato texto que contiene entre 16 y 20 digitos. Este campo queda en excel en una columna de formato general y el numero lo pone en forma exponencial. Yo quiero que el numero aparezca como texto con los ceros que tenga adelante.
Parte del codigo que utilizo e este.
WITH oConnection
.NAME = cCursor
.FieldNames = .T.
.RowNumbers = .F.
.FillAdjacentFormulas = .F.
.PreserveFormatting = .T.
.RefreshOnFileOpen = .F.
.RefreshStyle = 1 && xlInsertDeleteCells
.SavePassword = .F.
.SaveData = .T.
*.AdjustColumnWidth = .T.
.AdjustColumnWidth = .F.
.RefreshPeriod = 0
.TextFilePromptOnRefresh = .F.
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = 1 && xlDelimited
.TextFileTextQualifier = 1 && xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = .F.
.TextFileTabDelimiter = .F.
.TextFileSemicolonDelimiter = .T.
.TextFileCommaDelimiter = .F.
.TextFileSpaceDelimiter = .F.
.TextFileTrailingMinusNumbers = .T.
.TextFileColumnDataTypes = Array(2,2,1,2,2)
*.TextFileFixedColumnWidths = (20,40,60)
.REFRESH
ENDWITH
Al ejecutar el programa foxpro me responde con el siguiente mensaje de error provocado por la linea TextFileColumnDataTypes = Array(2,2,1,2,2):
"file array.prg does not exist"
Alguien me puede ayudar por favor, quiero usar la automatizacion de esta manera porque de otra forma es muy lento el exportar la tabla a excel.
Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder