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
