Toon posts:

[ASP + Excel] Hoe kan ik een cel uitlezen

Pagina: 1
Acties:

donderdag 21 maart 2002 15:45

Acties:

Verwijderd

Topicstarter
Ik heb op MSDN de volgende code gevonden, en hij werkt, maar hoe kan ik deze ombouwen dat ik dus bijvoorbeeld allen Cel B11 op het scherm kan zetten.

Nu gedraagt de excel zich als een database, dus hij leest alles binnen!

Dit is de code:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66

<% Option Explicit

Dim adoCn
Dim adoRs
Dim adoFld
Dim strQuery
Dim strResults

Const adUseClient = 3
Const adClipString = 2
Const strColDelim = "&nbsp;&nbsp;</td><td>"
Const strRowDelim = "</td></tr><tr><td>"

Set adoCn = CreateObject("ADODB.Connection")
Set adoRs = CreateObject("ADODB.Recordset")
With adoCn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = _
        "Data Source=e:\GTI RI\Excel\test.xls;" & "Extended Properties=Excel 8.0;"
    .CursorLocation = adUseClient
    .Open
End With

strQuery = "SELECT * FROM [Island$] ORDER BY Test1"

With adoRs
    Set .ActiveConnection = adoCn
    .Open strQuery
End With
%>
<html>
    <head>
        <title>Still on the Island</title>
        <style>
            body {font:10pt tahoma;}
            table {font:10pt tahoma;}
        </style>
    </head>
    <body>
        <table cellpadding="3" cellspacing="0" 
            style="border:1px solid silver;">
            <tr>
                <td rowspan="<%= adoRs.RecordCount + 2 %>">
                    &nbsp;</td>
            </tr>
            <tr>
            
            <%
            For Each adoFld in adoRs.Fields
                Response.Write "<td style=""border-bottom:" & "1px solid silver;""><b>" & adoFld.Name & "</b></td>"
            Next
            %>
            
            </tr>           
            <tr>
                <td>
                
                <%
                strResults = adoRs.GetString(adClipString, adoRs.RecordCount, strColDelim, strRowDelim)
                strResults = Left(strResults, InStrRev(strResults,"<tr><td>") - 1)
                                Response.Write strResults
                %>
            </tr>
        </table>
    </body>
</html>

donderdag 21 maart 2002 15:52

Acties:

Verwijderd

Hoe prcies weet ik niet, maar ik zou zeggen dan je dat in je SQL kunt oplossen

donderdag 21 maart 2002 15:59

Acties:

Verwijderd

Topicstarter
Op donderdag 21 maart 2002 15:52 schreef vanDee het volgende:
Hoe prcies weet ik niet, maar ik zou zeggen dan je dat in je SQL kunt oplossen
Is het niet mogelijk om "adoRs.GetString(xxx)" hierin wat te zetten? Ik heb al aardig wat variaties geprobeert, maar niets lukt!

donderdag 21 maart 2002 16:17

Acties:

Verwijderd

Probeer dit es:
code:
1

strQuery = "SELECT * FROM [Island$B11:B11] ORDER BY Test1"

Zou volgens MSDN moeten werken.

donderdag 21 maart 2002 16:19

Acties:

Verwijderd

Topicstarter
Op donderdag 21 maart 2002 16:17 schreef vanDee het volgende:
Probeer dit es:
code:
1

strQuery = "SELECT * FROM [Island$B11:B11] ORDER BY Test1"

Zou volgens MSDN moeten werken.
Lol, dat had ik dus ook al geprobeert, maar dan krijg ik:
code:
1
2
3
4
5

Microsoft JET Database Engine error '80040e10' 

Waarden voor een of meer vereiste parameters ontbreken. 

/excel/index.asp, line 26

vrijdag 22 maart 2002 08:34

Acties:

Verwijderd

Topicstarter
Weet nou niemand hoe ik de gegevens uit één cel kan halen :?

vrijdag 22 maart 2002 08:46

Acties:

Verwijderd

Ik doet et zo..Ik selecteer geen cel maar in de Query kun je gewoon een criteria meegeven.

Blad: Naw
Kolomnaam: NawID
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57

<%
Set cnnExcel = Server.CreateObject("ADODB.Connection")
Set rstExcel = Server.CreateObject("ADODB.Recordset")

cnnExcel.Open "DSN=exceltest"

sqlString = "SELECT * FROM [Naw$] WHERE NawID = 2;"
rstExcel.Open sqlString, cnnExcel
%>

<html>
<head>
<title>Excel-test</title>
</head>

<style>
td { font-family:verdana;font-size:x-small }
</style>

<body>

<table cellpadding="3" cellspacing="0" style="border:1px solid black;">
    <tr bgcolor=#c0c0c0>
        <%
        t = 0
        While t < rstExcel.Fields.Count
            %>
            <td><b><%= rstExcel.Fields.Item(t).Name %></b></td>
            <%
            t = t + 1
        Wend    
        %>
    </tr>
        <%
        While Not rstExcel.EOF

        rowColor = "#fffff1"
        %>
        <tr bgcolor=<%= rowColor %>>
            <%
            t = 0
            While t < rstExcel.Fields.Count
            %>
                <td><%= rstExcel.Fields.Item(t) %></td>
                <%
                t = t + 1
            Wend    
            %>
        </tr>
        <%
        rstExcel.MoveNext
        Wend
        %>
</table>

</body>
</html>
Pagina: 1
Reageer