Probleme beim Auslesen von Excel

[Profi]

Hallo,

Ich lese Daten aus Excel aus. Wenn in den Zellen einer Spalte Ziffern sind, macht er Probleme. Er liest bis zu der Überschrift aus. Wenn aber in der nächsten Zelle nichts steht, dann hört er auf, woran könnte das liegen Format = Zahl

So lese ich aus Excel aus, weiss nicht was da falsch sein könnte

'--- Zusammenstellen der Verbindungsinformationen
strDriver = "DRIVER=Microsoft Excel-Treiber (*.xls);"
strDatabase = "DBQ=" & Uploadfolder & File & ";"
strComplete = strDriver & strDatabase

'--- Deklarieren und Erstellen des Connectionobjekts
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strComplete

sqlCommand = "SELECT * FROM [Actual Projects$]"

'--- Öffnen des Recordsets
Set objRSExcel = Server.CreateObject("ADODB.Recordset")
objRSExcel.Open sqlCommand, objConn, 3 ,3

counter = 0
objRSExcel.MoveFirst
DO UNTIL objRSExcel.EOF
<%=objRSExcel(9)%>/<%=objRSExcel(10)%>
counter = counter + 1
objRSExcel.MoveNext
LOOP

Gruss

 

[Luzie]

Hi

Dein Scriptcode ist hier etwas abenteuerlich.
Ich weiss jetzt nicht, ob Du das so kopiert hast oder geschrieben.
Dies würde Dir mit Sicherheit einen Fehler bringen.

counter = 0
objRSExcel.MoveFirst
DO UNTIL objRSExcel.EOF
<%=objRSExcel(9)%>/<%=objRSExcel(10)%>
counter = counter + 1
objRSExcel.MoveNext
LOOP

Ich kann dieses Problem nicht feststellen. Habe Deinen Code mal kopiert und in einer meiner Tabellen gebracht.

Manchmal gibts ja auch Probleme mit reservierten Schlüsselwörten oder Sonder- bzw. Leerzeichen in Tabellennamen.