Hallo J�rgen
ich habe hier einen script, der von einem excel-file liest und es per html
ausgibt. ich habe ihn nicht sauber gemacht, doch denke ich, dass er dir
weiterhilft:
im entsprechendem excel-file musst du jedoch noch den bereich markieren und
ihm einen namen geben (bei mir "Tabelle2"). im excel machst du das mit
STRG+F3
Gruss
Emanuel
-------------- start ------------------
Dim cn, rs, cmd, index
' �ffnen einer Verbindung zur Excel Datei
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=
c:\inetpub\wwwroot\bischof\www\file6.xls;" & _
"Extended Properties=""Excel 8.0;HDR=Yes;"";"
' Ein Command Objekt erzeugen und die aktive Verbindung zuweisen
Set cmd = CreateObject("ADODB.Command")
cmd.ActiveConnection = cn
' Variante 1: definierter Zellenbereich in dem Worksheet
' cmd.CommandText = "SELECT * from 'Tabelle1$A1:B4'"
cmd.CommandText = "SELECT * from Tabelle2"
' Variante 2: benannter Bereich
'cmd.CommandText = "SELECT * from 'Bereichsname'"
' mit dem vorbereiteten Command Objekt das Recordset �ffnen
Set rs = cmd.Execute
emanuel = ""
x = 0
'Schreibt den titel
Response.write("<table cellspacing=""2"" cellpadding=""5""
bgcolor=""#CCCCCC"">") & vbcrlf
For Index=0 to (Rs.fields.count-1)
Response.write("<td>" & Rs(Index).Name & "</td>") & vbcrlf
Next
Do while (Not Rs.eof)
Response.write("<tr bgcolor=""#FFFFFF"">") & vbcrlf
For Index=0 to (Rs.fields.count-1)
x = x + 1
' if instr(rs(index).value,"Stk") then
if trim(rs(index).value) = "48129" then
emanuel = x
end if
if isnumeric(trim(rs(index).value)) = true then
farbe = "#FF0000"
else
farbe = "#009900"
end if
Response.write("<td><font color="""&farbe & """>" & Rs(Index) &
"</font></td>") & vbcrlf
Next
Response.write("</tr>") & vbcrlf
Rs.MoveNext
Loop
Response.write("</table>") & vbcrlf
response.write("<br>1: "&emanuel)
response.write("<br>"&x)
-------------- ende -------------------
-----Urspr�ngliche Nachricht-----
Von: J�rgen Wehrle [mailto:[EMAIL PROTECTED]]
Gesendet: Donnerstag, 16. Mai 2002 11:42
An: ASP Diskussionsliste fuer Anfaenger
Betreff: [aspdebeginners] exel-tabelle in db �bertragen
Moin,
ich habe eine exel-tabelle und soll diese in die datenbank schreiben. Wie
kann so was gehen? Hat jemand vielleicht einen Hinweis oder so??
Vielen Dank im voraus
J�rgen
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
