Dopo aver cliccato su "Consenti contenuto bloccato ..." occorre cliccare anche sul bottone "Si" della successiva maschera di dialogo.
| SCRIPT: excel.htm |
<HTML>
<TITLE>Esempio OLE/VBScript - EXCEL</TITLE>
<BODY>
<TABLE BORDER=1>
<TR><TH>ID</TH><TH>Cognome</TH><TH>Nome</TH><TH>Classe</TH></TR>
<SCRIPT LANGUAGE=VBSCRIPT>
'----------------------------------------------------------------------
' EXCEL.HTM - OLE Sample VBScript
' (c) 2005 Cormatron Ghost Ltd. All Rights Reserved.
'----------------------------------------------------------------------
Dim ObjExcel
Dim ObjWorksheet
Const ColonnaMatricola=1
Const ColonnaCognome=2
Const ColonnaNome=3
Const ColonnaClasse=4
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = false
objExcel.Workbooks.Open("c:\sample.xls")
Set objWorksheet = objExcel.Workbooks("sample.xls").sheets("Studenti")
riga= 2
Do While (objWorksheet.Cells(riga,ColonnaMatricola).Value <> "")
document.writeln("<TR><TD>" & objWorksheet.Cells(riga,
ColonnaMatricola).Value & "</TD>")
document.writeln("<TD>" & objWorksheet.Cells(riga, ColonnaCognome).Value
& "</TD>")
document.writeln("<TD>" & objWorksheet.Cells(riga, ColonnaNome).Value
& "</TD>")
document.writeln("<TD>" & objWorksheet.Cells(riga, ColonnaClasse).Value
& "</TD></TR>")
riga = riga + 1
Loop
' Chiusura oggetti
objExcel.Quit
Set objExcel=Nothing
</SCRIPT>
</TABLE>
</BODY>
</HTML>
| ESEMPIO ESECUZIONE |
Aprendo il file excel.htm con Internet Explorer
viene mostrato un avviso di protezione:
Dopo aver cliccato su "Consenti contenuto bloccato
..." occorre cliccare anche sul bottone "Si" della successiva
maschera di dialogo.
Nel browser appare il
contenuto del file di excel in formato HTML
