Страницы: 1
RSS
Как вставить ZIP-файл как объект
 
Добрый вечер.

С помощью Вставка => Объект => Package я вставляю zip-файл на лист (при этом записываю макрос)
Код
        ActiveSheet.OLEObjects.Add(ClassType:="Package2", Link:=False, _
        DisplayAsIcon:=True, IconFileName:="C:\WINDOWS\system32\packager.dll", _
        IconIndex:=0, IconLabel:="Package").Activate

Если я пересылаю по почте этот файл и открываю его, то могу просмотреть содержимое этого zip-файла (а там три файла с разными расширениями).

Но стоит запустить этот записанный макрос на своем компьютер, то ничего не вставляется. Содержимое записи выше.

Прежде чем задать вопрос здесь, я ищу ответ на него на просторах инета))
 
Доброе время суток.
А если бы вы ещё и справку прочитали помимо записи, то обнаружили бы, что не указали путь и имя файла.
 
Спасибо. Но вылетает ошибка: невозможно получить свойство add класса oleobject

Код
        ActiveSheet.OLEObjects.Add(ClassType:="Package2", Filename:="C:\Users\User\Desktop\Fold\Demo.rar", Link:=False, _
        DisplayAsIcon:=True, IconFileName:="C:\WINDOWS\system32\packager.dll", _
        IconIndex:=0, IconLabel:="Package").Activate
Прежде чем задать вопрос здесь, я ищу ответ на него на просторах инета))
 
Код
ActiveSheet.OLEObjects.Add Filename:="C:\Users\User\Desktop\Fold\Demo.rar", Link:=False, _
  DisplayAsIcon:=True, IconFileName:="C:\WINDOWS\system32\packager.dll", _
  IconIndex:=0, IconLabel:="Package"
 
Я благодарю ZVI и Андрея VG за помощь. Код выше по умолчанию вставляет объект в активную ячейку листа.
Прежде чем задать вопрос здесь, я ищу ответ на него на просторах инета))
Страницы: 1
Наверх