Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
<%
Dim cn, rs, cmd
' Öffnen einer Verbindung zur Excel Datei
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=test.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:D8'"
' mit dem vorbereiteten Command Objekt das Recordset öffnen
Set rs = cmd.Execute
%>