Abrir hoja/libro excel

[Angel.Matilla]

Bueno, gracias a otro hilo (Llevar desde Excel a una BD paradox) he podido hacer que se conecte al libro Excel. El código queda así:

ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;"
"Data Source=" + fMenu->OpenDialog->FileName + ";Mode=ReadWrite;"
"Extended Properties=Excel 8.0;Jet OLEDB:System database="";"
"Jet OLEDB:Registry Path=;Jet OLEDB:Database Password=;"
"Jet OLEDB:Engine Type=35;Jet OLEDB:Database LockingMode=0;"
"Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;"
"Jet OLEDB:New Database Password="";Jet OLEDB: Create System Database=False;"
"Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;"
"Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False";

Ahora tengo otro problema: Cómo saber cuantas hojas tiene el libro. No he visto como averiguar ese dato.

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

Empezado por Angel.Matilla

Ahora tengo otro problema: Cómo saber cuantas hojas tiene el libro. No he visto como averiguar ese dato.

Basta con que abras la conexión (ADOConnection) y utilices el método GetTableNames.
Te devolverá la lista de tablas; En este caso la lista de Hojas del libro de Excel.

[Angel.Matilla]

Muchísimas gracias.

[Angel.Matilla]

Por otra parte he descubierto la razón del mensaje de error que ponía en la imagen de mi primer mensaje:

Antes de hacer el proceso de conexión del ADOConnection hay que crear el objeto; es decir que hay que añadir esta línea:

Variant Excel = CreateOleObject("Excel.Application");