IMPORTAR DADOS DO EXCEL

'Constantes
Const adOpenStatic = 3
Const adLockPessimistic = 2
'Variáveis
Dim cnnExcel
Dim rstExcel
Dim I
Dim iCols
'Conexão ADO especial com Driver Excel;
Set cnnExcel = Server.CreateObject("ADODB.Connection")
cnnExcel.Open "DBQ=" & Server.MapPath("teste.xls") & ";" & _ 
	"DRIVER={Microsoft Excel Driver (*.xls)};"
'Conexão padrão, com abertura da tabela com o texto contido na caixa de nome no arquivo do excel.
'Para o exemplo analize o arquivo excel contido na raiz desse diretorio.
Set rstExcel = Server.CreateObject("ADODB.Recordset")
rstExcel.Open "SELECT * FROM tabela", cnnExcel, adOpenStatic, adLockPessimistic

' Get a count of the fields and subtract one since we start
' counting from 0.
iCols = rstExcel.Fields.Count
' Mostra os textos contidos na primeira linha como Nome de Coluna
' dentro do campo de seleção. Para criar selecione os campo com textos,
' vá até a caixa de nome... onde fica o numero da célula em foco. Digite o nome para a seleção
'e coloque logo após a expressão "SELECT * FROM Nome;" onde Nome é o campo selecionado.
	'Cabeçalho
	flexgrid1.additem
	For I = 0 To iCols - 1
	flexgrid1.col=i
	flexgrid1.text = rstExcel.Fields.Item(I).Name
	Next
	rstExcel.MoveFirst
	'Dados
	' Loop through the data rows showing data in an HTML table.
	Do While Not rstExcel.EOF
	For I = 0 To iCols - 1
	flexgrid1.additem
	flexgrid1.row = flexgrid1.rows -1
	flexgrid1.col=i
	flexgrid1.text = rstExcel.Fields.Item(I).Value
	Next
	rstExcel.MoveNext
	Loop
rstExcel.Close
Set rstExcel = Nothing
cnnExcel.Close
Set cnnExcel = Nothing