[Resolvido] Fazendo Relatorios com Excel e Asp

[Clauido José 3]

Pessoal é seguinte tenho que fazer relatorios em asp gerando arquivo excel já fiz isso antes, mas nao lembro como formatar a coluna com tamanha,cor, fonte, cor de fundo. Alguem pode me dar um luz valeu.

 

A vai o codigo que estou usando para gerar o excel.

<%
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Application.Visible = True
Set ExcelBook = ExcelApp.Workbooks.Add
ExcelBook.Worksheets(1).Cells(1,1).Interior.Color = clRed
ExcelBook.Worksheets(1).Cells(2, 2).Font.Name = "Verdana"
ExcelBook.Worksheets(1).Cells(2, 2).Font.Size = 10
ExcelBook.Worksheets(1).Cells(2, 2).Font.Italic = true
ExcelBook.Worksheets(1).Cells(2, 2).Value="EMPRESA"
ExcelBook.Worksheets(1).Cells(2, 2).HorizontalAlignment = 1
ExcelBook.Worksheets(1).Cells(2, 2).Font.Color = RGB(0,2,2)
ExcelBook.Worksheets(1).Cells(3, 2).Value="SERVIÇO"
ExcelBook.Worksheets(1).Cells(4, 2).Value="CIENTE:"  					
ExcelBook.Worksheets(1).Cells(5, 2).Value="GRAU DE PARENTESCO: "
ExcelBook.Worksheets(1).Cells(6, 2).Value="Nº. DA RAT: "		
ExcelBook.Worksheets(1).Cells(7, 2).Value="ANTENA:"			
ExcelBook.Worksheets(1).Cells(7, 3).Value="INSTALADA:"
ExcelBook.Worksheets(1).Cells(8, 3).Value="TAMANHO:"				
ExcelBook.Worksheets(1).Cells(10, 2).Value="LOCAL FIXAÇÃO DA ANTENA: "
ExcelBook.Worksheets(1).Cells(11, 3).Value="Outros: "
ExcelBook.Worksheets(1).Cells(12, 2).Value="LNBF:"
ExcelBook.Worksheets(1).Cells(14, 2).Value="PARÂMETROS:"
ExcelBook.Worksheets(1).Cells(13, 3).Value="Transponder:"					
ExcelBook.Worksheets(1).Cells(14, 3).Value="Intensidade:	"				
ExcelBook.Worksheets(1).Cells(15, 3).Value="Qualidade:"			
ExcelBook.Worksheets(1).Cells(17, 2).Value=" PONTO: "
ExcelBook.Worksheets(1).Cells(16, 3).Value="Local A :"
ExcelBook.Worksheets(1).Cells(16, 4).Value="Quantidade A : "
ExcelBook.Worksheets(1).Cells(17, 3).Value="Local B : "	
ExcelBook.Worksheets(1).Cells(17, 4).Value="Quantidade B : "			
ExcelBook.Worksheets(1).Cells(18, 3).Value="Local C : "
ExcelBook.Worksheets(1).Cells(18, 4).Value="Quantidade C : "
ExcelBook.Worksheets(1).Cells(19, 3).Value="Local D : "
ExcelBook.Worksheets(1).Cells(19, 4).Value="Quantidade D : "				
ExcelBook.Worksheets(1).Cells(21, 2).Value="MATERIAIS GASTOS: "
ExcelBook.Worksheets(1).Cells(20, 3).Value="Quant. Conectores: "
ExcelBook.Worksheets(1).Cells(21, 3).Value="Metragem cabo (em metros):"
ExcelBook.Worksheets(1).Cells(22, 3).Value="Quant. Divisor: "
ExcelBook.Worksheets(1).Cells(23, 3).Value="Quant. Diplex: " 
ExcelBook.Worksheets(1).Cells(25, 3).Value="Quant. Emenda Rosqueada (back to back): "
ExcelBook.Worksheets(1).Cells(26, 3).Value="Quant. Amplificador: "
ExcelBook.Worksheets(1).Cells(27, 2).Value="CONTROLE REMOTO: "			
ExcelBook.Worksheets(1).Cells(28, 2).Value="Houve configuração do controle: "
ExcelBook.Worksheets(1).Cells(29, 2).Value="TEMPO DO SERVIÇO"
ExcelBook.Worksheets(1).Cells(30, 2).Value="Tempo gasto na percepção do técnico:  "
ExcelBook.Worksheets(1).Cells(31, 2).Value="TRAJETO DO CABO:	"
ExcelBook.Worksheets(1).Cells(31, 3).Value="Tubulado: "			
ExcelBook.Worksheets(1).Cells(32, 3).Value="Aparente: "					


ExcelBook.SaveAs "CAMINHO_DE_ONDE_SALVAR\yourfile.xls"
ExcelApp.Application.Quit
Set ExcelApp = Nothing
%>

[Ted k' 126]

Amigo????????? Para que isso tudo?

 

faz assim:

http://tedk.com.br/blog/index.php/2008/05/15/gerando-planilha-em-excel-com-asp/

[Clauido José 3]

Hehe vivendo e aprendendo, boa dica amigo, valeu fica mais facil, tava pensado que era um bicho de sete cabeça ma é facil.Você Me deu uma grande ajuda valeu obrigado.

Outra coisa amigo sabe aquele topico que eu coloquei sobre importar arquivo word para db quero fazer isso via codigo asp tem como?

[Ted k' 126]

Que bom que ajudei, mais esse do word ai em Código, desconheço!!

 

Creio que com FSO você não terá muitos resultados, terá que formatar bem o seu documento!

[Clauido José 3]

Valeu cara abraço resolvi essa