![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
![]() Saludos
Tengo un problema. Hace tiempo hice una aplicacion con delphi 5 en donde el contenido de un archivo en excel lo exportaba a un stringgrid con el siguiente codigo: ExcelApplication1.Connect; ExcelApplication1.Workbooks.Open(pathfile, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,0); j:=1; cont:=0; while cont<=14 do begin cadena:=ExcelApplication1.Cells.Item[j,1].value; if (cadena)='' then cont:=cont+1; j:=j+1; end; y:=j-14; StringGrid1.ColCount:=15; StringGrid1.RowCount:=y; i:='N'+ IntToStr(y); RangeMatrix:= ExcelApplication1.Range['A1',i]; ExcelApplication1.WorkBooks.Close(0); ExcelApplication1.Quit; ExcelApplication1.Disconnect; for R:=1 to 14 do begin StringGrid1.Cells[(R),0]:=columna[R]; for k:=1 to y do begin StringGrid1.Cells[(R),(k)]:=RangeMatrix[k,R]; StringGrid1.Cells[0,(k)]:=IntToStr(k); end; end; end; Este codigo lo que hace es que toma el tamaño de una hoja que tiene hasta la Columna 'N' pero tiene x numero de filas y todos los valores lo guarda en una variable que nombre RangeMatriz. En delphi 5 me funciona muy bien pero cuando cambie a delphi 7 me genera un error en donde estan los asteriscos StringGrid1.Cells[(R),0]:=columna[R]; for k:=1 to y do begin ******-*StringGrid1.Cells[(R),(k)]:=RangeMatrix[k,R];********** StringGrid1.Cells[0,(k)]:=IntToStr(k); end; alguien me podra ayudar por favor |
|
|
![]() |
|