Excel Dokument per VBscript auslesen
Hallo,
ich versuche schon seid einiger Zeit ein entsprechendes Script zum auslesen einer Excel Datei zu generieren.
Folgendes Szenario:
Eine vorhandene Exceltabelle mit mehreren Arbeitsmappen, in einer davon steht in Spalte 1 Zelle 1 ein Username und in Spalte 2 Zelle 1 - unendlich die Berechtigungen des Users die durch ein Makro ausgelesen wurden. Nun meine Frage:
wie kann ich diese Werte per VBscript auslesen um diese dann weiterverarbeiten zu können.
Ich habe bisher folgenden gefunden, leider funktioniert dieser Ansatz bei mir nicht???
dim rs, strConn, strSQL
strConn = "DRIVER=Microsoft Excel-Treiber (*.xls);DBQ=" & _
Server.MapPath("Test.xls")
strSQL = "SELECT * FROM [Tabelle1$a1:b]"
set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSQL, strConn, 3, 3
if rs.EOF then
Response.Write("Kein Datensatz gefunden")
else
Response.Write("Anzahl der Treffer:" & rs.Recordcount)
Do while not rs.EOF
Response.Write("<br>" & rs.Fields("Vorname").Value & " " & _
rs.Fields("Nachname").Value)
rs.MoveNext
Loop
end if
rs.close
set rs = nothing
Ich hoffe Ihr könnt mir helfen...
Danke dafür
Eine vorhandene Exceltabelle mit mehreren Arbeitsmappen, in einer davon steht in Spalte 1 Zelle 1 ein Username und in Spalte 2 Zelle 1 - unendlich die Berechtigungen des Users die durch ein Makro ausgelesen wurden. Nun meine Frage:
wie kann ich diese Werte per VBscript auslesen um diese dann weiterverarbeiten zu können.
Ich habe bisher folgenden gefunden, leider funktioniert dieser Ansatz bei mir nicht???
dim rs, strConn, strSQL
strConn = "DRIVER=Microsoft Excel-Treiber (*.xls);DBQ=" & _
Server.MapPath("Test.xls")
strSQL = "SELECT * FROM [Tabelle1$a1:b]"
set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSQL, strConn, 3, 3
if rs.EOF then
Response.Write("Kein Datensatz gefunden")
else
Response.Write("Anzahl der Treffer:" & rs.Recordcount)
Do while not rs.EOF
Response.Write("<br>" & rs.Fields("Vorname").Value & " " & _
rs.Fields("Nachname").Value)
rs.MoveNext
Loop
end if
rs.close
set rs = nothing
Ich hoffe Ihr könnt mir helfen...
Danke dafür
Please also mark the comments that contributed to the solution of the article
Content-Key: 145452
Url: https://administrator.de/contentid/145452
Printed on: April 23, 2024 at 09:04 o'clock
3 Comments
Latest comment
Hallo Schueppi,
danke für die Blumen!
Dem TO scheint meine Antwort bisher nichts gebracht zu haben, bzw. es scheint nicht so interessant zu sein.
Von daher würde ich sagen: Du hast da eine prima Frage! Mach dazu einen neuen Thread auf. Dann erreichen diesen mehrere Mitleser und Mithelfer.
Viele Grüsse
Tsuki
danke für die Blumen!
Dem TO scheint meine Antwort bisher nichts gebracht zu haben, bzw. es scheint nicht so interessant zu sein.
Von daher würde ich sagen: Du hast da eine prima Frage! Mach dazu einen neuen Thread auf. Dann erreichen diesen mehrere Mitleser und Mithelfer.
Viele Grüsse
Tsuki