oExcel = CreateObject("Excel.Application")
NombreArchivo='c:\documentos.xls'
oWorkbook = oExcel.Workbooks.Open(NombreArchivo)
oExcelApp = oExcel.Application
oExcelApp.WindowState = -4137
oHoja=oWorkbook.Sheets(1)
with oHoja.range("A2:D65536")
.clear
endwith
oHoja.cells(1,1).value="TITULO"
oHoja.cells(1,2).value="TITULO"
oHoja.cells(1,3).value="TITULO"
oHoja.cells(1,4).value="TITULO"
FILA=2
sele 5
go top
do while not eof()
oHoja.cells(FILA,1).value=TU_VALOR
oHoja.cells(FILA,2).value=TU_VALOR
oHoja.cells(FILA,3).value=TU_VALOR
oHoja.cells(FILA,4).value=TU_VALOR
FILA = FILA + 1
sele 5
skip
enddo
with oHoja.Columns("A")
.Name = "Arial"
.VerticalAlignment = 1
.Orientation = 0
.ShrinkToFit = .F.
.MergeCells = .F.
.Font.Size=8
.EntireColumn.Autofit
endwith
with oHoja.Columns("D")
.NumberFormat = "#,##0.00"
.ColumnWidth = 15
endwith
oWorkbook.Save()
oWorkbook.Close()
>
> ------------------------------
> *De:* [email protected] [mailto:[EMAIL PROTECTED] *En nombre de *MarioMunuce
> *Enviado el:* 2007/December/04 8:14 PM
> *Para:* GUFA List Member
> *Asunto:* [GUFA] CSV.
>
> Casi casi, asi lo hice… pero no hay algo mas puurito?.....
>
>
>
> TheCount
>
> "*I can't understand why you don't get any mail from me. Perhaps it's
> because I haven't been writing..."*
>
> *"No puedo entender por que no recibes ningun correo mio. Quzas por que no
> he estado escribiendo.." *
>
> *Groucho Marx*
>
>
>
> *De:* [email protected] [mailto:[EMAIL PROTECTED] *En nombre de *Oscar Zárate
> *Enviado el:* Martes, 04 de Diciembre de 2007 03:39 p.m.
> *Para:* GUFA List Member
> *Asunto:* [GUFA] CSV.
>
>
>
> 100% de acuerdo (Metodo Munuce(R)) deberia ser lo mejor.
>
>
> COPY TO pepe CSV
>
> FILETOSTR(bla, bla, bla)
>
> STRTRAN(bla, bla, bla) && Vos sabes exactamente como es estos titulos, no?
>
>
> *-- asi que podes harcodear ..... (Moderador: dije una mala palabra,
> perdon).
>
> STRTOFILE(bla, bla, bla)
>
>
>
>
> Deberias cambiar los bla, bla, bla por algo mas coherente o te va a dar
> error en VFP diciendo:
>
> "Que deeesis nigro????"
>
>
>
> SaludOZ,
>
>
>
>
> On 12/5/07, *MarioMunuce* <[EMAIL PROTECTED]> wrote:
>
> Hola Zorros!
>
> Necesito convertir un cursor a un archive separado con comas (CSV)
> necesito que no grabe el header que por defecto graba. Se me ocurrió
> generarlo como texto y renombrarlo utilizando el "Metodo Munuce", pero tal
> vez alguno conozca una mejor.
>
> Un gran abrazo desde el otoño azteca!
>
> Mario.
>
>
>
>
>
>
>
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.5.503 / Virus Database: 269.16.13/1167 - Release Date: 07/12/03
> 12:20 PM
>
> No virus found in this outgoing message.
> Checked by AVG Free Edition.
> Version: 7.5.503 / Virus Database: 269.16.13/1167 - Release Date: 07/12/03
> 12:20 PM
>
