datos from excel

12/01/2009 - 14:11 por srama | Informe spam

Olá a todos,
Tengo un problema que és lo seguiente:
como hago para leer datos de un excel?

tengo este programa que los pone en excel
set talk off
public a_x
a_x=9
loExcel= CREATEOBJECT('EXCEL.APPLICATION')
loExcel.Workbooks.Add
au="f:\cartao\testes\livro3.xls"
loExcel.WorkBooks.open(au)
loExcel = loExcel.Workbooks(1).Sheets.Add
*loplan = loExcel.Workbooks(1).Sheets.Add
* loplan.Cells(1,1).Value = 'Paulo'
* loplan.Cells(2,1).Value = 'Henrique'
for i=1 to 70
for i1=1 to 29
loExcel.Cells(i,i1).Value = a_x
wait window str(i1) nowait
endfor
ENDFOR
loExcel.Visible = .t.

loExcel.WorkBooks.CLOSE(au)

mas como hago para leer los datos.

un salud

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Luis María Guayán

13/01/2009 - 00:16 | Informe spam

http://www.portalfox.com/article.php?sidQ6

Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos

"srama" escribió en el mensaje de
noticias:

Olá a todos,
Tengo un problema que és lo seguiente:
como hago para leer datos de un excel?

tengo este programa que los pone en excel
set talk off
public a_x
a_x=9
loExcel= CREATEOBJECT('EXCEL.APPLICATION')
loExcel.Workbooks.Add
au="f:\cartao\testes\livro3.xls"
loExcel.WorkBooks.open(au)
loExcel = loExcel.Workbooks(1).Sheets.Add
*loplan = loExcel.Workbooks(1).Sheets.Add
* loplan.Cells(1,1).Value = 'Paulo'
* loplan.Cells(2,1).Value = 'Henrique'
for i=1 to 70
for i1=1 to 29
loExcel.Cells(i,i1).Value = a_x
wait window str(i1) nowait
endfor
ENDFOR
loExcel.Visible = .t.

loExcel.WorkBooks.CLOSE(au)

mas como hago para leer los datos.

un salud

Responder a este mensaje

#2 srama

13/01/2009 - 00:58 | Informe spam

gracias que funcionou

"srama" wrote:

Olá a todos,
Tengo un problema que és lo seguiente:
como hago para leer datos de un excel?

tengo este programa que los pone en excel
set talk off
public a_x
a_x=9
loExcel= CREATEOBJECT('EXCEL.APPLICATION')
loExcel.Workbooks.Add
au="f:\cartao\testes\livro3.xls"
loExcel.WorkBooks.open(au)
loExcel = loExcel.Workbooks(1).Sheets.Add
*loplan = loExcel.Workbooks(1).Sheets.Add
* loplan.Cells(1,1).Value = 'Paulo'
* loplan.Cells(2,1).Value = 'Henrique'
for i=1 to 70
for i1=1 to 29
loExcel.Cells(i,i1).Value = a_x
wait window str(i1) nowait
endfor
ENDFOR
loExcel.Visible = .t.

loExcel.WorkBooks.CLOSE(au)

mas como hago para leer los datos.

un salud

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida