Como importar datos desde Excel?

[faustino36]

Que tal, he probado el codigo y funciona muy bien. Alguien sabe como listar las hojas que contiene el documento de excel; en el ejemplo se muestra utilizando la hoja, pero quisiera hacer dinamica esta parte y permitir que el usuario escoja la hoja que desee, alguien sabe como hacer esto?

[roman]

Por ejemplo:

Código Delphi [-]
var
  Excel, Workbook, Worksheet: OleVariant;
  I: Integer;

begin
  Excel := ComObj.CreateOleObject('Excel.Application');

  Workbook := Excel.Workbooks.Open('C:\ruta\al\documento.xls');
  for I := 1 to Workbook.Worksheets.Count do
    Memo1.Lines.Add(Workbook.Worksheets[i].Name);

  Excel.Visible := true;
end;

Posteriormente puedes hacer referencia a una hoja ya sea con el índice numérico o con el nombre:

Código Delphi [-]
Workbook.Worksheets[2]
Workbook.Worksheets['Hoja2']

// Saludos

[faustino36]

Muchas gracias, era exactamente lo que buscaba, ya lo pude implementar, gracias de nuevo

[[felipe88]]

Hola compañeros del club... buscando otras alternativas para importar datos de excel (En mi caso para Firebird), encuentro generalmente este codigo que ustedes proponen, pero ultimamente tengo un problema con el mismo ya que de un momento a otro me salio el error "Out of memory" y no me completa la carga del archivo; por eso me gustaria saber si conocen de la posible causa de la aparicion de este error y una posible solucion... de antemano gracias

Saludos ...

[roman]

¿Es muy grande tu archivo? De ser así, quizá te funcione mejor usar ADO, tal como mencioné en el mensaje 7.

// Saludos

[axlrafael]

Hola amigos, disculpen otra pregunta, ¿como puedo elegir el rango de F13:Q39 con el código que nos proporciono Caro?.

Es decir, tengo un formato de excel ya estandarizado pero los datos que necesito estan en este rango:

F G H I J K L M N Ñ O P Q
13
14
15
..
...
...
39

En el código aparece esto:

RangoMatriz := Excel.Range['A1', Excel.Cells.Item[CantRow,CantCol]].Value;

Ahi pongo según yo el rango que necesito, pero a la hora de probar me marca error.

Saludos a todos.

[[felipe88]]

Empezado por roman

¿Es muy grande tu archivo? De ser así, quizá te funcione mejor usar ADO, tal como mencioné en el mensaje 7.

// Saludos

Vaya!!! no me habia dado cuenta de que el ave fenix habia revivido de sus cenizas ... o hace mucho que no volvia ?... Bueno roman, la verdad el archivo maneja unos casi 40.000 registros, normalmente esta carga al StringGrid que uso me tomaba menos de un minuto... de aqui solo es cuestion de pasarlo a la BD (Uso DBExpress) y para serte sincero no quisiera recurrir a ADO como la primera solucion aunque sea la mas efectiva, pues nunca lo he usado y no quisiera gastar en aprenderlo en este momento... ademas, cuales serian las dll's o bpl's que necesitaria en instalador en caso de que me decida ...

[[felipe88]]

Bueno estuve probando ADO y logre esto:

Código Delphi [-]
ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + QuotedStr(Edit1.Text) +';Extended Properties=Excel 8.0;Persist Security Info=False';
ADODataSet1.Open;

Aqui le paso al ADOConnection1 el archivo de excel que necesite por medio de un Edit... y luego solo lo abro, hasta funciona mas rapido ; la pregunta del millon sigue siendo, una vez tenga este problema solucionado que dll y bpl necesito para el instalador...

Por cierto gracias por el codigo...





PD: Aca usamos caritas para todo