Excel no ASP

[AndréMiranda 0]

Pessoal, me vieram me eprguntar hj sobre Excel na Web...

 

O pessoal do RH tem uma planilha de funcionários lá e eles queriam colocar essa planinha na Intranet para que os próprios funcionários atualizassem os dados e no final de cada mês, o RH iria fazer um relatório dos dados dessa planilha.

 

Há como fazer isso online? O funcionário vê a planilha, altera os dados e salva e a atualização fica salva... e se algum outro funcionário visualizar, ele irá visualizar as atualizações feitas pelo funcionário anterior...

 

Há alguma restrição a isso? Pode ser utilizado simultaneamente?

 

Abs

André

[Mário Monteiro 179]

Porque nao criar uma aplicação web para isso

 

Seria até melhor para gerar relatorios e diversos tipos de consultas

[AndréMiranda 0]

Porque nao criar uma aplicação web para isso

 

Seria até melhor para gerar relatorios e diversos tipos de consultas

Olá Mario!

Demorei a responder pq estava em outro projeto... esse do Excel é um outro que ainda irei pegar pra fazer mas já estou buscando a respeito.

 

Eu pensei tmb nisso... em fazer uma aplicação Web e gerar um relatório, mas obrigatoriamente tem que ter no final de tudo o relatório geral num arquivo Excel pq o RH precisa enviar isso para uma outra empresa, vcs devem conhecer, a ADP.

 

Eu posso fazer tudo numa aplicação Web e no final gerar uma planinha igual àquela q eles têm que enviar ao ADP??

 

Abs!!!

[Marcelo Barcellos 0]

Exatamente.

Se quiser, inclusive, através do componente "Excel.Application". Que é o próprio excel.

Segue um exemplo para gerar um espelho de um recordset em uma planilha do Excel usando o componente do Excel

 

Sub ObterRelatorioMicrosoftExcelPorRecordset(ByVal ORs, _
											ByRef ds_nome_relatorio, _
											ByRef varErro)
											
On Error Resume Next

Dim strMetodo
Set objEx = Server.CreateObject("Excel.Application")
Dim oWbook
Dim oWSheet
Dim i2
Dim i

objEx.Visible = False
objEx.DisplayAlerts = False
objEx.UserControl = False

Set oWbook = objEx.Workbooks.Add
Set oWSheet = oWbook.Sheets.Add
'=========================
'DEFINE O NOME DO MÉTODO PARA TRATATIVA DOS ERROS
'=========================
strMetodo = App.EXEName & "." & "ObterRelatorioMicrosoftExcelPorRecordset"

'=========================
'INTRODUZ CABECALHO
'=========================
For i = 0 To ORs.Fields.Count - 1
	oWSheet.Cells(1, i + 1) = ORs.Fields.Item(i).Name
Next

'=========================
'COPIA RECORDSET PARA A PLANILHA
'=========================
Call oWSheet.Cells(2, 1).CopyFromRecordset(ORs)
objEx.Selection.CurrentRegion.Columns.AutoFit
objEx.Selection.CurrentRegion.Rows.AutoFit
  

ds_nome_relatorio = App.Path & "\" & ds_nome_relatorio & ".xls"
oWSheet.SaveAs ds_nome_relatorio
oWbook.Close

Set oWSheet = Nothing
Set oWbook = Nothing
Set objEx = Nothing

if Err <> 0 then
	 Redim varErro(3)
	 varErro(0) = True
	 varErro(1) = Err.Description
	 varErro(2) = Err.Number
	 varErro(3) = Err.Source
End if
										   
End Sub

[champignoncpg 0]

Isso msm companheiro....

 

oq os amigos de chat esta corretissimo.... e pra você seria muito viavel esta alternativa...

 

Eu desenvolvo sistemas web para minha empresa... e tudo e feito direto no BD, e gerando varios tipos de relatorios onde são vistos na web msm e com uma opção de exportar para o excel...

 

você vai revolucionar sua empresa... !!!

Eh facim d++++

 

 

Boa sorte !!!

[Mário Monteiro 179]

entao tiozinho

 

depois de gerar a tabela é simples demais, uma ou duas linhas e voce tem o seu relatorio no excel