dim g_objFS 
Set objFS = WScript.CreateObject("Scripting.FileSystemObject")
dim FileName
dim g_sHomeDisk 
g_sHomeDisk = "c:\zmaganna\"  
    dim ExcelAppMain
    set ExcelAppMain = CreateObject("Excel.Application")
	dim ExcelWorkBookMain 
     ExcelAppMain.Visible = true
FileName = g_sHomeDisk + "lll.xls" 
set ExcelWorkBookMain = ExcelAppMain.WorkBooks.Open(FileName) 
'--- Установка наименования листов ---
dim  ExcelWorkSheetMain
set  ExcelWorkSheetMain=ExcelWorkBookMain.Worksheets( 1 )
ExcelWorkBookMain.Worksheets( 2 ).Name="q1111"
ExcelAppMain.DisplayAlerts = true
ExcelWorkSheetMain.Range("A2").Value = "I - Бойков Є.В."
ExcelWorkSheetMain.Range("A3").Value = "II - Род?н С.О."
ExcelWorkSheetMain.Range("A4").Value = "III - Лешневський Р.Г."
ExcelWorkSheetMain.Range("A5").Value = "IV - Рущак В.В."
ExcelWorkSheetMain.Range("B1").Value = "Результат змагання"
ExcelWorkSheetMain.Range("B2").Value =  5 
ExcelWorkSheetMain.Range("B3").Value =  4 
ExcelWorkSheetMain.Range("B4").Value =  5 
ExcelWorkSheetMain.Range("B5").Value =  4 

dim ExcelWorkSheetMainChart
set ExcelWorkSheetMainChart=ExcelWorkBookMain.Charts.Add(,ExcelWorkBookMain.Worksheets( 2 ))

dim xlCylinderColClustered
xlCylinderColClustered=  92 
ExcelWorkSheetMainChart.ChartType = xlCylinderColClustered
dim xlRows
xlRows =  1 
ExcelWorkSheetMainChart.SetSourceData ExcelWorkBookMain.Worksheets( 1 ).Range("A1:B5"), xlRows
dim xlLocationAsObject
xlLocationAsObject =  2 
ExcelWorkBookMain.activechart.Location xlLocationAsObject , "q1111"