ЗАПОЛНЕНИЕ ДАННЫХ ПО ЧИЛЛЕРУ	
	'обращение к тегу
 	sSQL = "Tag:R,'Archive_Day\Sum_P_Load_CH','" + CStr(PrevYear) + "-01-02 02:10:00.000','" + _
										CStr(ActYear) + "-" + CStr(ActMonth) + "-" + CStr(ActDay) + " 04:10:00.000'"

	' connecting
	Set conn = CreateObject("ADODB.Connection")
	conn.ConnectionString = sConnection
	conn.CursorLocation = 3
	conn.Open
				
	' Getting data
	Set oRs = CreateObject("ADODB.Recordset")
	Set oCom = CreateObject("ADODB.Command")
	oCom.CommandType = 1
	Set oCom.ActiveConnection = conn
	oCom.CommandText = sSQL
		
	Set oRs = oCom.Execute
	
	'Working With data
	oRs.MoveFirst
			
	If PrevYear = 2016 Then				
		For i = 179 To 185
			WS.Cells(i+3,10) = 0				
		Next 
		For i = 0 To 178
			WS.Cells(i+3,10) = oRs.fields(2).Value	
			oRs.MoveNext
			
		Next
		For i = 186 To k
			If Not(oRs.EOF) Then 
				WS.Cells(i+3,10) = oRs.fields(2).Value				
				oRs.MoveNext
			Else
				Exit For
			End If	
		Next
	Else 
		For i = 0 To k
			If Not(oRs.EOF) Then 
				WS.Cells(i+3,10) = oRs.fields(2).Value				
				oRs.MoveNext
			Else
				Exit For
			End If	
		Next
	End If 
		
	' Clear objects
	Set oCom = Nothing
	oRs.Close
	Set oRs = Nothing
	conn.Close
	Set conn = Nothing

	'Making Connection String
	sProvider = "Provider=WinCCOLEDBProvider.1;"
	sDataSourceName = "Catalog=" + HMIRuntime.Tags("@DatasourceNameRT").Read + ";"
	sServer = "Data Source=" + ServerName + "\WinCC;Trusted Connection=yes;"
	sConnection = sProvider + sServer + sDataSourceName 	

sSQL = "Tag:R,'Archive_Day\Sum_P_Load_CH','2017-01-01 02:30:00.000','2017-06-08 03:40:00.000'"