Pregunta: | 64468 - TIPO DE COLUMNAS DE LA PROPIEDAD TEXTFILECOLUMNDATATYPES |
Autor: | Yimy Mora Aconcha |
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. |