excel vba - VBA Issue when connecting to Avaya CMS application -


i need here please :( ok here want do, open excel , run interval report (("historical\designer\gsd cr summary interval report") cms (call management system). when open excel file select time/date range , skills cms search for. please see image below:enter image description here once required feilds filled in click generate report , vba take over, clear data cms rawdata , paste in new data. keep getting undefined error , cant head around it... code is: `'

created keith carpenter 06/01/2016   dim cvsapp new acsup.cvsapplication dim cvsconn new acscn.cvsconnection dim cvssrv new acsupsrv.cvsserver dim rep new acsrep.cvsreport dim info object, log object, b object   'this method main function prepare extraction cms    load in excel public sub reportinterval() on error goto errhandler:  application.calculation = xlcalculationmanual application.screenupdating = false unhide_sheets  'clean mtd sheet sheets("cms_rawdata").select cells.select selection.clearcontents range("a1").select  'checking if current cms session opened set cvssrv = cvsapp.servers(1) sheets("sla dashboard").select  'select first skill in list range("f8").select dim sskills string dim sdate string dim stimes string  'the report run each skills listed in first table each c in sheets("settings").range("a2:a26")     if (not isempty(c.value))         sskills = sskills & ";" & c.text     end if next c  if activesheet.range("f6").text = activesheet.range("f7").text     sdate = activesheet.range("f6") else     sdate = activesheet.range("f6") & "-" & activesheet.range("f7") end if    if activesheet.range("f4").text = activesheet.range("f5").text     stimes = activesheet.range("f5") else     stimes = activesheet.range("f4") & "-" & activesheet.range("f5") end if   'call gsd cr summary interval report call dorep("historical\designer\gsd cr summary interval report", right(sskills, len(sskills) - 1), sdate, stimes)  'copy content of clipboard in excel sheets("cms_rawdata").select range("a1").select  selection.pastespecial  'close connection call logout   exit sub       errhandler:     if err.number <> 91     msgbox "please log in cms", vbokonly, "error" end if  resume next  end sub 

here error receiving: enter image description here

any here appreciated.`


Comments

Popular posts from this blog

ruby - Trying to change last to "x"s to 23 -

jquery - Clone last and append item to closest class -

c - Unrecognised emulation mode: elf_i386 on MinGW32 -