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: 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
any here appreciated.`
Comments
Post a Comment