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

Preguntas similare

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



Respuesta 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



email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida