Opdater et Felt/Range i Excel

Du markere et omkråde med musen i excel. Eksvis A1->C10 så tykke på du boksen som hedder "Name Box" hvis man holder musen over. Der vil i den box stå A1. Der skiver du et navn "test" så har rangen A1->C10 navet test.

Det kan også gøres fra menuen "Insert" -> "Name" -> "Define Name" der kan man  oprette, ændre og slette.

Når du indsætte via SQL vil excel selv udvide rangen.

Fra C10 til G10 hedder mit felt FraNavn og Arket hedder Arbejdsseddel

Jeg får fejlen
Number of query values and destination fields are not the same.

koden jeg prøver at bruge er:

<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=" & Server.MapPath("2003.xls") & ";" & _
          "Extended Properties=""Excel 8.0;HDR=No;"";"
         
         
         
          Set oRS = Server.CreateObject("ADODB.Recordset")

oRS.Open "SELECT * from `$A1:H78`", oConn, 1, 2

Response.Write oRS(0)

If request.querystring("test")="test" then

oConn.Execute "INSERT INTO `Arbejdsseddel$C10:G10` VALUES(""hello"")"

end if
%>

Hvis jeg gør dette

<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=" & Server.MapPath("2003.xls") & ";" & _
          "Extended Properties=""Excel 8.0;HDR=No;"";"
         
         
         
          Set oRS = Server.CreateObject("ADODB.Recordset")

oRS.Open "SELECT * from `$A1:H78`", oConn, 1, 2

Response.Write oRS(0)

If request.querystring("test")="test" then

oConn.Execute "INSERT INTO `Arbejdsseddel$C10:C10` VALUES(""hello"")"

end if
%>


Får jeg fejlen
Cannot expand named range.

Så årøv at lave denne om:

oRS.Open "SELECT * from `$A1:H78`", oConn, 1, 2


Til:

oRS.Open "SELECT * from `Arbejdsseddel:FraNavn`", oConn, 1, 2

Det er ikke sikker der er nødvendigt med  Arbejdsseddel

oRS.Open "SELECT * from `FraNavn`", oConn, 1, 2

Det skulle være INSERT SQL'en:


oConn.Execute "INSERT INTO `FraNavn` VALUES('hello')"

eagleeye >> Det du skrev virker fint nok, der er bare lige noget jeg ikke forstår helt håber du gør.

I C8 laver jeg et felt der hedder FraNavn og laver feltet blå så kører jeg dette script:

<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=" & Server.MapPath("test.xls") & ";" & _
          "Extended Properties=""Excel 8.0;HDR=No;"";"
         
         
         
          Set oRS = Server.CreateObject("ADODB.Recordset")

oRS.Open "SELECT * from `FraNavn`", oConn, 1, 2

'Response.Write oRS(0)

'If request.querystring("test")="test" then

oConn.Execute "INSERT INTO `FraNavn` VALUES(""hello"")"

'end if
%>

Når jeg så åbner Excel arket igen er C8 og C9 blå og i C9 står der hello og feltet FraNavn er rykket til I8 ???????????

Det er fordi det er en INSERT så skal der bruges UPDATE som SQL. men jeg har ikke fået det til at virker umiddelbart. Dog kan jeg få det til at virker hvis man tilføjer et kolonnenavn ind over C8 altså i C7.

Hvis jeg tilføjer teksten kolnavn i C7 og kalder C7:C8 for FraNavn så kan jeg så dette til at virke.

<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=" & Server.MapPath("test.xls") & ";" & _
          "Extended Properties=""Excel 8.0;HDR=Yes;"";"
         
oConn.Execute "UPDATE `FraNavn` SET `kolnavn` = ""hello"""

eagleeye >> Jeg har droppet det Excel ark, men du får point fordi du gad hjælpe mig og fordi dit script virkede.

Ok mange tak ;) jeg kom til at tænke på du kan msåke bruge rs.Update:


<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=" & Server.MapPath("test.xls") & ";" & _
          "Extended Properties=""Excel 8.0;HDR=No;"";"
         
         
         
Set oRS = Server.CreateObject("ADODB.Recordset")

oRS.Open "SELECT * from `FraNavn`", oConn, 1, 2

oRS(0) = """hello"""
oRS.Update