Hent navnene på alle arkene i en Excel mappe

Hvad får du af fejl når du eksekverer din side?

Nedenstående kode udskriver navnene på samtlige ark i din Excel fil:

Dim objExcel, objWorkBook, objWorkSheet

Set objExcel = CreateObject(\"Excel.Application\")
Set objWorkBook = objExcel.Workbooks.Open(\"sti\\til\\balance.xls\")

For Each objWorkSheet In objWorkBook.Worksheets
  Response.Write(objWorkSheet.Name & \"<br>\")
Next

objExcel.Quit

Fungerer naturligvis kun på en maskine, hvor Excel objekterne er tilstede, dvs. hvor Excel er installeret.

Det er jo løgn morten.

Det er meget fint...

Jeg siger også tak for svaret, men nu var det altså vha. ODBC jeg ville hente navnene og det der er ikke ODBC. :-(

Nogen der har et forslag med ODBC??

Ved nærmere eftertanke så skrev jeg jo faktisk ADO. og eksemplet du har givet er jo ADO (hmm)

Jeg venter lige og ser hvad der sker :-)

OK, så får du noget kode der bruger ODBC :-)

Dim objExcelConn, objTableRS

Const adSchemaTables = 20

Set objExcelConn = CreateObject(\"ADODB.Connection\")
objExcelConn.Open \"din_excel_dsn\"

Set objTableRS = objExcelConn.OpenSchema(adSchemaTables)

While Not objTableRS.EOF
  Response.Write(objTableRS(\"TABLE_NAME\") & \"<br>\")
  objTableRS.MoveNext
Wend

objTableRS.Close
objExcelConn.Close

Set objTableRS = Nothing
Set objExcelConn = Nothing

Bemærk at ovenstående for nemheds skyld bruger en DSN, men det er nemt for dig at indsætte din egen DSN-less kode.

De navne som Excel returnerer, slutter på $, og hvis der er mellemrum i arkets navn, er hele navnet (incl. $) indeholdt i \'. Det kunne altså f.eks. se sådan her ud:

test$
\'mere test$\'
\'sidste test$\'

Mange tak for svaret...

Det er irriterende nok præcis sådan jeg selv har forsøgt mig.. Det virker bare ikke!

Men det er formentligt bare noget der er galt med min PC..
Den siger også (når jeg prøver at hente almindelige oplysninger ud) at en anden har arket åbnet med udelt adgang.. Selvom det ikke er tilfældet og alle rettigheder er i orden!

Nok om det. Du får dine points!