Hola de nuevo, Román!
Pues no, no funcionó, fíjate. Lo intenté con ADO y con un TExcelApplication y nada.
Ni siquiera me acepta la propiedad Names, pues me dice que no existe, y eso lo hice cuando ya tenía el TExcelApplication, por lo que no se a qué se debe.
Mi código de todo el Unit quedó de la siguiente manera:
Código:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleServer, Excel2000, DB;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
Excel: TExcelApplication;
cbxHojas: TComboBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Libro: _WORKBOOK;
Hoja: _WORKSHEET;
I : Integer;
begin
Libro := Excel.Workbooks.Open('D:\Mis Documentos\atirado\Excel\nomina.xls',
false,false,
null,'',null,true,null,'',
true,null,null,false,0);
For I:= 1 to Libro.Worksheets.Count do
cbxHojas.items.add(Libro.Worksheets.Item[i].Name);
Hoja := Libro.Sheets[1] as _WORKSHEET;
Excel.Visible[0] := true;
end;
end.
De cualquier manera gracias; creo que simplemente no se puede hacer eso en Delphi
Salu2 desde MX
Alejandro