Leer hoja excel

[Angel.Matilla]

Gracias por la ayuda que me habéis dado en el hilo Abrir hoja/libro excel. Ahora me está ocurriendo una cosa muy curiosa.

TStringList *slExcel = new TStringList();
TStringList *slHoja  = new TStringList();

Variant Excel = CreateOleObject("Excel.Application");
ADOConnection->Close();
ADOConnection->Mode = cmRead;
ADOConnection->ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin; ...";
ADOConnection->Open();
slExcel->Sorted = true;
ADOConnection->GetTableNames(slExcel, false);

Esto me lo hace bien y me carga las hojas del libro en orden alfabético:

slExcel->Text = "ABENOJAR$\r\nAGUDO$\r\n etc."

De hecho, si no pongo Sorted = true, hace la carga a su manera:

slExcel->Text = "ALDEA DEL REY$\r\nCAMPO DE CRIPTANA$\r\nCIUDAD REAL$\r\n etc."

Sin embargo cada una de las hojas del libro tiene más o menos la misma estructura:

Circunscripción | Codmun | Municipio | Mesa | Censo | Certif. Alta | Certif. Correc. | Censo total | Votos Electores | Votos Interventores | Votos Totales | Votos Nulos | Votos Blancos etc.

Con | he señalado las columnas. Para leerlas hago esto:

for (nItem = 0; nItem < slExcel->Count; nItem ++)
{
     slHoja->Sorted = false;
     fMenu->cGesElec->GetFieldNames(slExcel->Strings[nItem], slHoja);
     [...]
}

Y a pesar del Sorted = false, siempre me carga el TStringList en orden alfabético:

Censo\r\nCenso total\r\nCertif. Alta\r\n etc.

Y por lo tanto luego, al leer las filas para alimentar la BB.DD. es un lío. ¿No hay forma de evitar que se ordenen las columnas?

[Casimiro Notevi]

Ni idea, pero saca "slHoja->Sorted = false;" del bucle, ponlo antes.

[Angel.Matilla]

Empezado por Casimiro Notevi

Ni idea, pero saca "slHoja->Sorted = false;" del bucle, ponlo antes.

Da lo mismo.

[Casimiro Notevi]

Hombre, lo mismo, lo mismo... no es, aunque el resultado pueda ser igual.
A lo mejor te interesa order=true, así al menos todos vendrán igual de ordenados.

[Angel.Matilla]

El problema es que no todas las hojas tienen las mismas columnas. Las primeras, que son las que puse antes, sí son iguales para todas pero a partir de ahí varían de una hoja a otra. Seguiré dando vueltas, perola sugerencia de Sorted = true no se me había ocurrido.

[Neftali [Germán.Estévez]]

Si los obtienes accediendo a la definición de los campos de la tabla, si que los obtienes en el orden en que están.

Código Delphi [-]
  ADOTable1.Close;
  ADOTable1.TableName := '[' + ListBox1.Items[ListBox1.ItemIndex] + ']';
  ADOTable1.Open;

  Memo2.Lines.Add('------------------------------------');

  for var I:integer := 0 to (ADOTable1.Fields.Count - 1) do
     Memo2.Lines.Add(ADOTable1.Fields[i].FieldName);

Es este código ListBox1.Items[ListBox1.ItemIndex] me da uno de los nombre de las tablas.






Los de arriba son con GetFieldNames y los segundos, recorriendo los Fields con el código anterior.