************************************************************************2017
WAIT CLEAR
WAIT WINDOW "Идет создание гистограммы в EXCEL..." NOWAIT
llError = .F.
TRY
	IF TYPE("objXLsheet") = "O"
		IF TYPE("loExcel.WorkBooks(1)") == "O"
			loExcel.WorkBooks(1).CLOSE(.F.)
		ENDIF
		loExcel = .NULL.
		RELEASE objXLsheet, objXLsheet_2, objChart1, loExcel
	ENDIF
	PUBLIC objXLsheet, objXLsheet_2, objChart1, loExcel
	objXLsheet = GETOBJECT(PUTG3, "Excel.Application")
	IF ISNULL(objXLsheet)
		objXLsheet = CREATEOBJECT("Excel.Application")
	ENDIF
	IF ISNULL(objXLsheet)
		llError = .T.
		WAIT CLEAR
		=MESSAGEBOX("Не могу открыть Microsoft EXCEL !", "ОШИБКА !", 16, 3500)
	ENDIF
CATCH TO oError
	llError = .T.
	lcText = 'Ошибка №: ' + ALLTRIM(STR(oError.ERRORNO)) + CHR(13) + ;
		'Содержание ошибки: ' + oError.MESSAGE
	=MESSAGEBOX(lcText, "Ошибка выполнения !", 16, 3500)
ENDTRY
IF llError
	RETURN .F.
ENDIF
************************************************************************2017
WITH objXLsheet
&&	.WorkBooks.OPEN(PUT19)
	.WorkBooks.ADD(PUTG2)
&&	.WorkBooks.ADD(GETFILE())
*!*		.WorkBooks.ADD
	.DisplayAlerts = .F.
*!*	    FOR i = 1 TO .Sheets.COUNT - 1
*!*	        .Sheets(i).DELETE
*!*	    ENDFOR
*!*		.Sheets(1).SELECT
*!*		.Sheets(1).NAME = "Гистограмма"
*!*		.Worksheets.ADD
*!*		.Sheets(2).SELECT  &&2017
*!*		.Sheets(2).NAME = "Данные"
ENDWITH
************************************************************************2017
objXLsheet.APPLICATION.VISIBLE=.F.
loExcel = objXLsheet  
objXLsheet = objXLsheet.Sheets[1]
objXLsheet_2 = objXLsheet.Sheets[2]
**********************************************2017  Isx
objXLsheet_2.Cells(1,1).VALUE = ""
objXLsheet_2.Cells(2,1).VALUE = DOGS_LOC
objXLsheet_2.Cells(3,1).VALUE = DOGS_LOC1
objXLsheet_2.Cells(4,1).VALUE = DOGS_LOC2
objXLsheet_2.Cells(5,1).VALUE = DOGS_LOC3
objXLsheet_2.Cells(6,1).VALUE = DOGS_LOC4

objXLsheet_2.Cells(1,2).VALUE = DOGS_LOC_DATA
objXLsheet_2.Cells(2,2).VALUE = ALLTRIM(STR(S1))
objXLsheet_2.Cells(3,2).VALUE = ALLTRIM(STR(S2))
objXLsheet_2.Cells(4,2).VALUE = ALLTRIM(STR(S3))
objXLsheet_2.Cells(5,2).VALUE = ALLTRIM(STR(S4))
objXLsheet_2.Cells(6,2).VALUE = ALLTRIM(STR(S5))
**********************************************2017