Arquivo para VBA

Criando Arquivo Excel com ASP

Novembro 6, 2007 às 12:11 pm · Arquivado em VBA ·Tagged , , ,

Simples rotina para gerar um arquivo Excel utilizando ASP.

Function AddXls (NmArquivo)

EXT = Ucase(Right(NmArquivo, 3))
CaminhoSalvar = Server.MapPath(NmArquivo)

IF EXT = "XLS" THEN

 	'Verifica se o arquivo existe.
	strTemp = false
	set FSOtemp = server.createObject("Scripting.FileSystemObject")
	if FSOtemp.FileExists(CaminhoSalvar) Then strTemp = true
	Set FSOtemp = nothing
	existeArquivo = strTemp 	

	if ExisteArquivo = true then  		

		set objExcel = Server.CreateObject("Excel.Application")
		objExcel.DisplayAlerts = False  	

		objExcel.Workbooks.Open CaminhoSalvar
		objExcel.Sheets(1).Select
		set objSheet = objExcel.ActiveSheet		

		'Aqui grava as informações no range selecionado.
		objSheet.Range(A1).Value = "NOME"
		objSheet.Range(B1).Value = "IDADE"

		objExcel.ActiveWorkbook.SaveAs CaminhoSalvar
		objExcel.Quit

		set objSheet = Nothing
		set objExcel = Nothing  

	End if
End if

end function

Você pode variar conforme sua necessidade, fazer um loop para inserir informações, ou até gravar os locais onde serão gravados os dados em uma tabela na sua base de dados.

Deixe um comentário