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