|
' Vogliamo visualizzare in una pagina WEB il contenuto del foglio "studenti" contenuto nel file di excel "sample.xls" visualizzato in figura: ' colonna1 Matricola ' colonna2 Cognome ' colonna3 Nome ' colonna4 Classe <HTML> <BODY> <TABLE BORDER=1> <TR><TH>ID</TH><TH>Cognome</TH><TH>Nome</TH><TH>Classe</TH></TR> <% 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 objWorkbook = objExcel.Workbooks("sample.xls").sheets("Studenti") riga= 2 Do While (objWorkbook.Cells(riga,ColonnaMatricola).Value <> "") response.write "<TR><TD>" & objWorkbook.Cells(riga, ColonnaMatricola).Value & "</TD>"+vbcrlf response.write "<TD>" & objWorkbook.Cells(riga, ColonnaCognome).Value & "</TD>"+vbcrlf response.write "<TD>" & objWorkbook.Cells(riga, ColonnaNome).Value & "</TD>"+vbcrlf response.write "<TD>" & objWorkbook.Cells(riga, ColonnaClasse).Value & "</TD></TR>"+vbcrlf riga = riga + 1 Loop objExcel.Quit Set objExcel=Nothing %> </TABLE> </BODY> </HTML> |