atirado
02-04-2004, 03:35:57
Hola a tod@s! :D
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:
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 :p
Un saludo desde MX a tod@s :cool:
Alejandro
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:
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 :p
Un saludo desde MX a tod@s :cool:
Alejandro