Dim FSO, file
Set FSO=CreateObject("Scripting.FileSystemObject")
Set file = FSO.OpenTextFile("c:\SCRIPTS\VBSLog.txt", 8, True)
file.WriteLine(Date & " " & Time & " Начало обработки.")
 Set objExcel = CreateObject("Excel.Application") 
 objExcel.Visible = True 
 objExcel.DisplayAlerts=0 
 Set objWorkbook = objExcel.Workbooks.Open _ 
 ("O:\00 СТАТИСТИКА\01 Продажи по контрагентам (неделя_все дни).xls") 
file.WriteLine(Date & " " & Time & " Открыли файл:" & "O:\00 СТАТИСТИКА\01 Продажи по контрагентам (неделя_все дни).xls")
 objWorkbook.Sheets("Продажи по контрагентам ($)").Select 
file.WriteLine(Date & " " & Time & " Активировали лист:" & "Продажи по контрагентам ($)")
 objWorkbook.ActiveSheet.PivotTables("СводнаяТаблица1").PivotCache.Refresh 
 objWorkbook.ActiveSheet.Cells(1,1).Value="Обновлено 14.11.13 00:14:16 01.01.11 - 13.11.13, Профиль: 01 Динамика текущ.продаж (по дням); Набор данных No:1" 
file.WriteLine(Date & " " & Time & " Обновили сводную таблицу:" & "Обновлено 14.11.13 00:14:16 01.01.11 - 13.11.13, Профиль: 01 Динамика текущ.продаж (по дням); Набор данных No:1")
 objExcel.Save 
 objExcel.DisplayAlerts=1 
 objExcel.Quit 
file.WriteLine(Date & " " & Time & " Сохранили и закрыли эксель.")
file.WriteBlankLines(1)
file.Close