Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Как макросом закрыть файлы разных типов (VBA)
 
Как открывать макросом файлы разных типов я разобрался, а вот как после работы с ними их закрывать? Из Эксель, потому что там собирается информация об каждом файле. Типы файлов: Word, PowerPoint, PDF, Visio и разные форматы рисунков (оно открывается средством просмотра Windows).
Код
Пробовал:
Dim objWork As Object  
 On Error Resume Next
     Set objWork = GetObject(, "PowerPoint.Application")
    objWork .Quit

С Word прокатывает, а на PowerPoint уже не работает, как и на остальных типах, и по имени файла, как написано в описании -- не работает тоже.
Очистка сводной таблицы в VBA
 
Должна выгружать из сводной таблицы все компоненты, оставляя чистое поле.
Код следующий:
 For i = 1 To ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields.Count
ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields(i).Orientation = xlHidden
 Next i

Почему-то не срабатывает. Точнее -- срабатвает через раз, что-то не выгружает и тд.
Спасибо!
Страницы: 1
Наверх