Hej!

Jag får ett felmeddelande när jag läser in data från excel, datan som jag läser in kan vara lite vad som helst, problemet uppstår när endel celler är formaterade som siffror och andra som något annat (ex:text.). När det kommer av vikande data läses inte datan från den cellen in!?

Mvh Fredrik


<%

Server.ScriptTimeout = 6000
response.buffer = False


'Harpers

Dim objConn, strSQL, objRS1
Dim Conn, strConn, RS
Dim i, varArray


'Öppna en anslutning till Access databas som innehåller produkt information
set objConn = Server.CreateObject("ADODB.Connection")
objconn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&server.mappath("Prisuppdatering.mdb")

strSQL = "Priser"
Set objRS1 = Server.CreateObject("ADODB.Recordset")
objRS1.Open strSQL, objConn, 3,3
'SLUT


' Öppna anslutning till Excel fil
Set Conn=Server.CreateObject("ADODB.Connection")

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = " & Server.MapPath("Harper_Prislista.xls") & ";" & _
"Extended Properties=""Excel 8.0;HDR=NO;"";"

Conn.open strConn

Set RS=Conn.Execute("SELECT * FROM [Artiklar0511$]")'Namnet på bladet i ditt exceldokument
'Slut

varArray = RS.GetRows()
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing


For i = 2 to UBound(varArray,2)

'Lagra Data i Access tb vid beställning

Response.write (varArray(0,i) & " - " & varArray(1,i) & " - " & varArray(2,i) & "<Br>")


objRS1.AddNew


objRS1("Leverantor") = "Harpers"
objRS1("LeverantNr") = varArray(0,i)
objRS1("Artikelnamn") = varArray(1,i)
objRS1("InkopsPris") = round(CInt(varArray(2,i)),2)
objRS1("EjNedRak") = "False"

objRS1.Update
'SLUT

Next


'Städa
objRS1.Close
Set objRS1 = Nothing
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
'SLUT


%>

La till IMEX=1 i connectionsträngen under Extended Properties

Så fixade det sig!

Mvh Mig själv :)