Fernando Stocco

Olá pessoal!! Sou o Fernando e entrei aqui para aprender mais sobre programação. Na realidade meu conhecimento é bem básico, então espero poder aprender muito com vocês!!! Abraços :D :D :D

Bom pessoal, é o seguinte: Primeiramente: Alguém aqui conhece o programa Avaya? Digo isso porque trabalho com ele na empresa. Ele é totalmente baseado em VB, então facilita muito as coisas. Problema: Estou precisando extrair um relatório desse programa e exportá-lo para o Excel. Até tenho um scrip, que o próprio Avaya oferece. Abaixo está ele: Public Sub Main() '## cvs_cmd_begin '## ID = 2001 '## Description = "Relatório: Histórico: Designer: Report Daily with SKILLS: Exportar Dados" '## Parameters.Add "Relatório: Histórico: Designer: Report Daily with SKILLS: Exportar Dados","_Desc" '## Parameters.Add "Reports","_Catalog" '## Parameters.Add "2","_Action" '## Parameters.Add "0","_Quit" '## Parameters.Add "Historical\Designer\Report Daily with SKILLS","_Report" '## Parameters.Add "1","_ACD" '## Parameters.Add "3645","_Top" '## Parameters.Add "-45","_Left" '## Parameters.Add "15540","_Width" '## Parameters.Add "6855","_Height" '## Parameters.Add "O relatório Historical\Designer\Report Daily with SKILLS não foi encontrado no DAC 1.","_ReportNotFound" '## Parameters.Add "*","_BeginProperties" '## Parameters.Add "423","Grupos/Especialidades" '## Parameters.Add "-1","Datas" '## Parameters.Add "*","_EndProperties" '## Parameters.Add "*","_BeginViews" '## Parameters.Add "*","_EndViews" '## Parameters.Add "","_Output" '## Parameters.Add "9","_FldSep" '## Parameters.Add "0","_TextDelim" '## Parameters.Add "True","_NullToZero" '## Parameters.Add "True","_Labels" '## Parameters.Add "True","_DurSecs" On Error Resume Next cvsSrv.Reports.ACD = 1 Set Info = cvsSrv.Reports.Reports("Historical\Designer\Report Daily with SKILLS") If Info Is Nothing Then If cvsSrv.Interactive Then MsgBox "O relatório Historical\Designer\Report Daily with SKILLS não foi encontrado no DAC 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor" Else Set Log = CreateObject("ACSERR.cvsLog") Log.AutoLogWrite "O relatório Historical\Designer\Report Daily with SKILLS não foi encontrado no DAC 1." Set Log = Nothing End If Else b = cvsSrv.Reports.CreateReport(Info,Rep) If b Then Rep.Window.Top = 3645 Rep.Window.Left = -45 Rep.Window.Width = 15540 Rep.Window.Height = 6855 Rep.SetProperty "Grupos/Especialidades","423" Rep.SetProperty "Datas","-1" b = Rep.ExportData("C:\Documents and Settings\fernando.junior\Meus documentos\teste.xlm", 9, 0, True, True, True) If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID Set Rep = Nothing End If End If Set Info = Nothing '## cvs_cmd_end End Sub O que eu quero fazer com isso é o seguinte: Transferir o relatório gerado para uma pasta específica do Excel. Esse relatório em particular é rodado aqui na empresa de tempo em tempo, ou seja, toda vez gera uma pasta de trabalho com uma planilha diferente. estamos tentando fazer um scrip que pegue essas informações mas na mesma pasta Excel, porém em uma planilha diferente. Assim, teríamos todos esses relatórios arquivados em um único lugar. Espero que tenham entendido o meu problema e que possam me ajudar. Obrigado pela atenção; Fernando Stocco