Avaya到VBA – 时区

现在我正在一个新的项目，我必须自动化仪表板。 该仪表板正在从Avaya脚本获取信息。

我search了最近2个星期在VBA的一个脚本，实际上从avaya报告中获取信息，并将它们导入到某个工作表的excel文件中。

那么，我的问题是，我必须导出1个报告与6个不同的时区。

例如：历史\devise师\多date多分裂技能区间 – 欧洲/布鲁塞尔时区历史\devise师\多date多分裂技能区间 – 美国/东部等

下面是我的VBA代码，与我的CMS一起工作，但不考虑我的时区设置为欧洲/布鲁塞尔，并在默认时区输出。

请帮助我，让我可以放松我的工作一个星期几个小时:)

感谢你们

Sub EMEA() Dim cvsApp As Object Dim cvsConn As Object Dim cvsSrv As Object Dim Rep As Object Dim Info As Object, Log As Object, b As Object Dim CMSRunning As String Dim objWMIcimv2 As Object Dim objProcess As Object Dim objList As Object CMSRunning = "acsSRV.exe" Set objWMIcimv2 = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\.\root\cimv2") 'Connect to CIMV2 Namespace Set objList = objWMIcimv2.ExecQuery _ ("select * from win32_process where name='" & CMSRunning & "'") 'determine if CMS is running If objList.Count = 0 Then 'If 0 then process isn't running End If Set cvsApp = CreateObject("ACSUP.cvsApplication") Set cvsConn = CreateObject("ACSCN.cvsConnection") Set cvsSrv = CreateObject("ACSUPSRV.cvsServer") Set Rep = CreateObject("ACSREP.cvsReport") Application.ScreenUpdating = 0 Set cvsSrv = cvsApp.Servers(1) Application.ScreenUpdating = 1 AgGrp = InputBox("Enter Agent Group Name", "Agent Group", "952;953;271;270;221;222;223;224;231;233;232;234;235;246;241;243;242;247;249;245;244;248;255;258;256;259;257;261;262;260") 'change as needed for variables to enter into report RpDate = InputBox("Enter Date", "Date", "-1") 'change as needed for variables to enter into report 'Start code from CMS Export script On Error Resume Next cvsSrv.Reports.ACD = 1 Set Info = cvsSrv.Reports.Reports("Historical\Designer\Multi Date Multi Split Skill interval") b = cvsSrv.Reports.CreateReport(Info, Rep) If b Then Rep.Window.Top = 1830 Rep.Window.Left = 975 Rep.Window.Width = 17610 Rep.Window.Height = 11910 Rep.SetProperty "Splits/Skills", AgGrp 'change as needed for report variables Rep.SetProperty "Dates", RpDate 'change as needed for report variables Rep.SetProperty "Times", "00:00-23:30" Rep.TimeZone = "Europe/Brussels" b = Rep.ExportData("", 9, 0, True, True, True) Rep.Quit If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID Set Rep = Nothing End If Set Info = Nothing ' End code from CMS Export Script cvsConn.logout cvsConn.Disconnect cvsSrv.Connected = False Set Log = Nothing Set Rep = Nothing Set cvsSrv = Nothing Set cvsConn = Nothing Set cvsApp = Nothing Set Info = Nothing Range("A1").Select ActiveSheet.Paste End Sub