title image


Smiley Re: ... und eine leere Zelle mittendrin?
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



'--- Herausfinden, in welcher Zeile die Überschriften stehen

counter = 0

Do While not objRSExcel.EOF

counter = counter + 1

For Each col in objRSExcel.Fields

IF col = "OEM" or col = "FAS Comp" or col = "Country" then

UZeile = counter

exit do

end if

next

objRSExcel.MoveNext

Loop



counter = 0

objRSExcel.MoveFirst

DO UNTIL objRSExcel.EOF

if counter >= UZeile and (objRSExcel(0) "" or objRSExcel(1) ""

or objRSExcel(2) "" or objRSExcel(3) "" ) then

%>/<%

end if

counter = counter + 1

objRSExcel.MoveNext

LOOP



Wenn ich mir so den Inhalt (ab den Überschriften) anzeigen lasse, kommt in diesen beiden Spalten nichts, ausser in den obersten Zellen steht ein Wert.



Gruss, Gerhard

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: