Доброго всем времени суток!
Помогите плиз со скриптом справиться, на данный момент есть такой скрипт:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
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
Вбска запускается ночью и замечательно работает, но только в том случае если эксель файл ни кем не занят. А вот если ктонить из босов забыл вечером его закрыть то файл не сохраняется(
Все мои знания вбс собственно в этом файле( Я так предполагаю что можно какнить использовать "Try...Catch...Finally" только не понимаю как либо как то проверять доступен ли эсель файл для записи.
В обоих случаях мне нужно попытаться сохранить текущий файл и если не получается то сохранить его с другим именем.
Буду благодарен за любые варианты!
