Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Распаковать архив
 
#1
09.11.2016 14:13:21
Добрий день!
Код
Sub unzip()
    iPath = "D:\Temp\08.11.2016\"
    MyName = Dir(iPath, vbNormal)
    MyName = iPath & MyName
'Do While MyName <> ""
If MyName Like "*.rar" Or MyName Like "*.zip" Or MyName Like "*.7z" Then
    zipApp$ = "D:\Program Files\7-Zip\7z.exe e"
        iArhivName$ = MyName
    adr$ = zipApp$ & " """ & iPath & iArhivName$ & """ """ & iPath & """ "
    RetVal = Shell(adr$, vbHide)
End If
   ' MyName = Dir()
'Loop
End Sub

есть макрос которий должен распаковивать архиви, но ничего не происходит
Нужно распаковать zip-архив, после распаковки удалить архив из папки
Изменено: sergey2303 - 09.11.2016 14:14:55
 
 
 
#2
09.11.2016 14:37:00
загуглить решение пробовали?

http://excelvba.ru/code/UNZIP
http://excelvba.ru/code/CreateBackup
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#3
09.11.2016 14:50:50
здесь
http://excelvba.ru/code/CreateBackup
есть Функция для разархивирования (извлечения файлов из архива ZIP)
с удалением архива, но не нахожу макроса
 
 
 
#4
09.11.2016 14:51:50
удалить архив (или любой другой файл)
KILL "полный путь к удаляемому файлу"
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#5
09.11.2016 15:22:13
может кто-то подправить мой макрос?
 
 
 
#6
10.11.2016 12:57:09
немного переделал макрос,  первий архив распаковывается нормально,
а вот а второй архив(он затирает первий архив так как он с таким же именем,
т.е в папке новий архив и файли с первого архива)
 не распаковывает,скрипт перебирает все файли после распаковке первого,
 а архив не находит
прошу подправить скрипт
Код
Sub unzip()
    iPath = "D:\Temp\08.11.2016\"
    MyName = Dir(iPath, vbNormal)
    MyName = iPath & MyName
Do While MyName <> ""
If MyName Like "*.rar" Or MyName Like "*.zip" Or MyName Like "*.7z" Then
    WinRarApp$ = "D:\Program Files\winRAR\winRAR.exe e"
        iArhivName$ = MyName
    adr$ = WinRarApp$ & " """ & iArhivName$ & """ """ & iPath & """ "
    RetVal = Shell(adr$, vbHide)
End If
    MyName = Dir()
Loop
End Sub
Изменено: sergey2303 - 10.11.2016 16:05:02
 
 
 
#7
11.11.2016 10:38:37
Сам задал вопрос сам и отвечаю
окончательний код
Код
Sub unzip()
Dim iPath, strMaskSearch, MyName As String
iPath = "D:\Temp\08.11.2016\"
strMaskSearch = "*.zip"
 
 If Len(Dir(iPath)) = 0 Then
               MkDir iPath
        End If

MyName = Dir(iPath & strMaskSearch)
 
Do While MyName <> ""
    If MyName Like "*.rar" Or MyName Like "*.zip" Or MyName Like "*.7z" Then
    WinRarApp$ = "D:\Program Files\winRAR\winRAR.exe e"
        iArhivName$ = iPath & MyName
    adr$ = WinRarApp$ & " """ & iArhivName$ & """ """ & iPath & """ "
    RetVal = Shell(adr$, vbHide)
    End If
    
    MyName = Dir
Loop
End Sub
 
 
 
Страницы: 1
Читают тему
Наверх