Excel med asp og flettede celler
Hej...Jeg prøver at hente et excel regneark ind med asp til en html-tabel, og det virker fint nok.
Problemet kommer når jeg har flettede celler i regnearket. Jeg har desværre nogle celler som er meget længere end de øvrige, disse har jeg derfor flettet i selve regnearket. Men når jeg henter det med asp vises det stadig kun som et enkelt felt.
fx. hvis jeg har flettet felt: A1, B1, C1 vises indholdet af disse i felt A1, mens B1 og C1 bare står tomme i tabellen..
Det skal siges at regnearket ikke er det samme hver gang, så det er ikke nok at benytte en tæller til at finde ud af det med..
Hvordan kan man få asp til at håndtere at visse felter "Ikke eksistere" i regnearket..?
Nedenfor findes koden for at få vist regnearket:
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER=Microsoft Excel Driver (*.xls);" _
& "DBQ=" & Server.MapPath("filer/fil.xls")
Set RS = conn.Execute("Select * From [Ark1$]")
response.write "<body>"
response.write "<TABLE>"
response.write "<TR>"
response.write "<TH colspan=""31"">" & RS.Fields(0).name & "</TH>"
response.write "</TR>"
Do While Not RS.eof
response.write "<TR>"
For f = 0 To RS.Fields.Count-1
if not RS.Fields(f).value = "" then
response.write "<TD>"
if RS.fields(f).value = UserID then response.write "<b>"
response.write replace(RS.Fields(f).value, " ", " ")
response.write "</b>"
response.write "</TD>" &vbcrlf
else
response.write "<TD> </td>" &vbcrlf
end if
Next
response.write "</TR>"
RS.MoveNext
Loop
rs.close
Set rs = nothing
conn.close
Set conn = nothing
response.write "</TABLE><br>"
Response.Write "<a href=""java script:history.go(-1)"">Tilbage</a>"
response.write "</BODY></HTML>"
%>
