Ver Mensaje Individual
  #5  
Antiguo 03-04-2004
atirado atirado is offline
Miembro
 
Registrado: mar 2004
Posts: 41
Reputación: 0
atirado Va por buen camino
Unhappy

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
Responder Con Cita