Ver Mensaje Individual
  #1  
Antiguo 02-04-2004
atirado atirado is offline
Miembro
 
Registrado: mar 2004
Posts: 41
Reputación: 0
atirado Va por buen camino
Exclamation Obtener nombres de las hojas al abrir un archivo (fichero) de Excel

Hola a tod@s!
Alguien sabe cómo obtener el nombre de las hojas de un archivo de Excel?
Es decir, hasta el momento, puedo abrir dicho archivo utilizando una acción predeterminada (TFileOpen de un actionlist), pero tengo qué poner manualmente en código el nombre de la hoja desde donde se mandan llamar los datos.
Lo que quisiera es que el usuario pudiera en un momento dado seleccionar con qué hoja desea trabajar.
El código que tengo definido es el siguiente:
Código:
procedure TfrmCompulsa.actAbrirImssAccept(Sender: TObject);
var
  strConexion : String;
begin
   strConexion := actAbrirImss.Dialog.FileName;
   dscImss.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;
Data Source='+strConexion+';
Mode=ReadWrite;Extended Properties=Excel 8.0;
Persist Security Info=False';
   dscImss.CommandType	  := cmdTableDirect;
//justo aquí le digo que la hoja se llama nomina$
//y necesito que el usuario decida cuál hoja usar
   dscImss.CommandText	  := 'nomina$';
   dscImss.Active		   := True;
   ShowMessage('Abierto '+strConexion);
end;
Muchas gracias de antemano
Un saludo desde MX a tod@s

Alejandro
Responder Con Cita