[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?