Excel - Transportando dados de um CMS para Excel

[EmersonML]

Eu trabalho com o sistema de CMS do Avaya e estou precisando exportar relatórios deste sistema para o excel.

Sendo que o próprio sistema já fornece um código em VBA sendo que neste código tem uma variável (Log) que o Excel não permite ser usada.

Sub Relatorio()

'LANGUAGE=PTB
'## cvs_cmd_begin
'## ID = 2001
'## Description = "Relatório: Histórico: Designer: Login/Logout: Exportar Dados"
'## Parameters.Add "Relatório: Histórico: Designer: Login/Logout: Exportar Dados","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "2","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Historical\Designer\Login/Logout","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "735","_Top"
'## Parameters.Add "1200","_Left"
'## Parameters.Add "12975","_Width"
'## Parameters.Add "10080","_Height"
'## Parameters.Add "O relatório Historical\Designer\Login/Logout  não foi encontrado no DAC 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "38","Especialidade"
'## Parameters.Add "0","Datas"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "","_Output"
'## Parameters.Add "9","_FldSep"
'## Parameters.Add "0","_TextDelim"
'## Parameters.Add "False","_NullToZero"
'## Parameters.Add "False","_Labels"
'## Parameters.Add "False","_DurSecs"

   On Error Resume Next
   cvsSrv.Reports.ACD = 1
   Set Info = cvsSrv.Reports.Reports("Historical\Designer\Login/Logout")
   If Info Is Nothing Then
      If cvsSrv.Interactive Then
          MsgBox "O relatório Historical\Designer\Login/Logout não foi encontrado no DAC 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
      Else
          Set Log = CreateObject("AVSERR.cvsLog")
          Log.AutoLogWrite "O relatório Historical\Designer\Login/Logout 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 = 735
          Rep.Window.Left = 1200
          Rep.Window.Width = 12975
          Rep.Window.Height = 10080
          Rep.SetProperty "Especialidade", "38"
          Rep.SetProperty "Datas", "0"
          b = Rep.ExportData("", 9, 0, Falso, Falso, Falso)
          Rep.Quit
              If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
          Set Rep = Nothing
       End If
   End If
   Set Info = Nothing

End Sub

[EmersonML]

Niguem pode me ajudar?

[Ednilson Lopes]

Sub Relatorio()

'Ola meu amigo, tente esse codigo...

CENTREVU = "192.168.10.0" ' COLOQUE AQUI O SERVIDOR DO CMS

CAMINHO = Application.ActiveWorkbook.Path

ARQUIVO = CAMINHO & "\" & "CMS.txt"

Set acsApp = CreateObject("ACSUP.cvsApplication")

CentreVuOpen = acsApp.Servers.Count

If (CentreVuOpen > 0) Then

For Z = 1 To CentreVuOpen

If (acsApp.Servers.Item(Z).Name = CENTREVU) Then

Set acsSrv = acsApp.Servers.Item(Z)

flg = True

Exit For

End If

Next

Else

MsgBox "Antes de tudo conecte o CMS!!!", vbOKOnly, "Ednilson Barreto"

Exit Sub

End If

If Not flg Then

MsgBox "O servidor não foi localizado", vbOKOnly, "Ednilson Barreto"

End

End If

'Extração do CMS para txt

Set acsCatalog = acsSrv.Reports

acsSrv.Reports.ACD = 1

Set Info = acsSrv.Reports.Reports("Historical\Designer\Login/Logout")

If Info Is Nothing Then

MsgBox "O relatório não foi encontrado.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"

Exit Sub

Else

b = acsSrv.Reports.CreateReport(Info, Rep)

If b Then

Rep.Window.Top = 0

Rep.Window.Left = 0

Rep.Window.Width = 0

Rep.Window.Height = 0

Rep.SetProperty "Especialidade", "38"

Rep.SetProperty "Datas", -1 ' se esta tirando o login/logout só em d-1

b = Rep.ExportData(ARQUIVO, 9, 0, True, True, True)

Rep.Quit

If Not acsSrv.Interactive Then acsSrv.ActiveTasks.Remove Rep.TaskID

Set Rep = Nothing

End If

End If

Set Info = Nothing

'----------------------------

'Criado por Ednilson Barreto

'FreeLance

'Linkedin http://br.linkedin.com/pub/ednilson-lopes/31/62/169

'----------------------------

End Sub

[anaxbp]

Consegui executar seguindo as orientações do site abaixo. Funcionou certinho com algumas adaptações. Espero que consiga. Abs,

http://fracta.net/fracta/index.php/forum/2-excel-vba-forum/15-excel-vba-macro-to-automate-avaya-cms-supervisor-reports