Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

datos from excel

12/01/2009 - 14:11 por srama | Informe spam
Ayuda Hacer una pregunta
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 debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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



Preguntas similares

 

Busqueda sugerida :