Hej!

Jag har tidigare haft lite problem med att hämta data från ett Excel ark, nu när det fungerar så har jag ett annat litet problem.
När jag ska hämta data från Excel arket måste jag kännatill vad som står på den översta raden för att kunna identifiera datan, men jag skulle vilja använda mig av Excels kolumn namn istället(A, B , C, osv...)
Med andra ord vill jag byta ut Fornamn och Efternamn mot A och B som står i huvudet på kulumnen

Nedan ser du scriptet som jag gör idag men det är inte bra efter som om jag ska använda den typen av script måste jag ändra i Excel filen, jag får en ny fil ca 2ggr i veckan.




<code>
<%
Dim Conn, strConn, RS
Dim i, varArray
Set Conn=Server.CreateObject("ADODB.Connection")

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

Conn.open strConn

Set RS=Conn.Execute("SELECT ForNamn, EfterNamn FROM [blad1$]")'Namnet på bladet i ditt exceldokument


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

For i = 0 to UBound(varArray,2)
Response.Write "Kol1=" & varArray(0,i) & " : Kol2=" & varArray(1,i) & "<br>"
Next %>
</code>


Mvh Fredde

Det finns två saker jag kan gissa att du skall ändra för att uppnå ditt mål:

1, I din connections egenskap HDR=YES;"";" får du nog sätta NO
2, I din selectsats får du skriva select * alterntivt select a,b,c om det går

Du hade aldeles rätt!

Tack för hjälpen!

Mvh Fredrik