Проблемы распаковки с 7zip может
Создал короткий макрос для распаковки некоторых файлов и запуска часов после нажатия кнопки commandbutton. Я нахожусь в сети с некоторыми ограничениями, но у меня есть права администратора как на этот компьютер, так и на сетевую папку. Проблема в том, что он действует нормально в электронной таблице или когда он проходит через нее, но он не распаковывает мои файлы. Есть идеи?
Суб Начать()
CommandButton3_Click
Конец Подводной Лодки
Private Sub CommandButton3_Click()
Const SZP как строка = ("7z.exe")
Тусклый Свет$
Дим ПТГ Как Строку
Pth = Применение.ActiveWorkbook.Путь & "\"
Команду cmd$ = &ампер ПТГ; СЗП &ампер; " е " &ампер; ("Myfiles.zip") &ампер; параметр "-o " &амп; ПТГ
"По Ошибке Возобновите Следующее
Оболочка (Cmd$)
Диапазон ("D4"). Значение = Сейчас
Листы ("Q1").Выбрать
Диапазон ("А1").Выбрать
Конец Подводной Лодки
Sub Stp()
CommandButton4_Click
Конец Подводной Лодки
Private Sub CommandButton4_Click()
Диапазон ("D5"). Значение = Сейчас
Конец Подводной Лодки
Что я уже пробовал:
Я перепробовал почти все, что мог придумать.
Заранее спасибо
Боб Уильямс
Mohibur Rashid
вопрос в том, есть ли у вас 7z.exe в вашем приложении Активный путь к рабочей книге?
Mohibur Rashid
Кроме того, у вас есть место после -o
пример команды
"C:\Program Files\7-Zip\7z.exe" е LexAndYaccTutorial.С 7z -ок:\пользователи\жулик\рабочий стол\
а также используйте переключатель-y, чтобы убедиться, что перезапись происходит правильно.