Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Макрос, который упаковывает в RAR
 
#1
21.09.2009 18:14:50
Люди, помогите с решением задачи:  
Дано:  
-----  
Dim iPath As String  
' путь, например, "D:\Temp\"  
Dim ARR_FILES As Variant  
' массив имен файлов, например "file01.xls", "file02.xls", "file03.xls"  
 
Нужно:  
------  
код, который запакует все, перечисленные в массиве файлы, размещенные в iPath, используя программу-архиватор WinRar, в 1 файл под именем "MyARJ.rar"
 
 
 
#2
21.09.2009 22:32:14
Зеткин Александр, а зачем Вы дубликат этой темы разместили в разделе "Чего вам не хватает в Excel?" Вы полагаете, что во всех следующих версиях Excel для Вас должен быть уже готовый макрос?  
P.S. Тему из указанного раздела удалил.
 
 
 
#3
29.09.2009 10:55:08
Может у кого-то уже есть решение по архивации рабочей книги?
 
 
 
#4
29.09.2009 11:09:22
{quote}{login=The_Prist}{date=29.09.2009 11:04}{thema=Re: }{post}{quote}{login=}{date=29.09.2009 10:55}{thema=}{post}Может у кого-то уже есть решение по архивации рабочей книги?{/post}{/quote}А макрос выше что по-Вашему делает? Подкорректируйте чуть-чуть, и будет упаковывать рабочую книгу.  
Не можете сами - пишите конкретней.    
Рабочая - это активная? Что с ней делать после добавления её в архив?{/post}{/quote}  
Да, именно активная.  
Хочу кнопочку с архивацией ВинРАРом текущей книги и отправкой архива по мылу.  
Отправлять книгу по мылу научился, еще бы заархивировать ее перед отправкой.  
Заранее спасибо.
 
 
 
#5
29.09.2009 11:14:07
Я тут делал что-то подобное (см. вложение)  
 
Там есть макросы типа этих:  
 
Sub SaveWorkbookAs_XLS()  
Sub SaveWorkbookAs_ZIP()  
Sub SaveWorkbookAs_ZIP_by_Windows()  
Sub SaveWorkbookAs_RAR()  
Sub SaveWorkbookAs_EXE()  
 
 
Private Sub testWinRAR()  
   Create_Archieve "C:\WINDOWS\Temp\Excel\Workbooks\Sample.xls", RAR  
   Create_Archieve "C:\WINDOWS\Temp\Excel\Workbooks\Sample.xls", ZIP  
   Create_Archieve "C:\WINDOWS\Temp\Excel\Workbooks\Sample.xls", EXE  
End Sub  
 
Private Sub testWinRAR_2()  
   Debug.Print Create_Folder_Archieve("C:\Documents and Settings\Игорь\Рабочий стол\Новая папка\*.*", EXE)  
End Sub  
 
Одно ограничение - на компе должен быть установлен WinRAR.  
Макрос SaveWorkbookAs_ZIP_by_Windows() работает и без WinRAR-а.
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#6
29.09.2009 11:15:03
Забыл, что надстройки не прикрепляются...  
 
Вот надстройка в архиве:
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#7
29.09.2009 11:33:04
Спасибо всем
 
 
 
#8
21.09.2010 07:35:56
Приветствую. А нельзя в открытой книге сделать такую кнопку, чтобы при ее нажатии текущий архивировался и отправлялся по почте. Заранее благодарю
 
 
 
#9
21.09.2010 09:19:05
Мой вариант, сохраняет и пакует активную книгу.  
 
11828
Я сам - дурнее всякого примера! ...
 
 
 
#10
21.09.2010 19:11:12
В прошлом посте косяк. Вот файл с рабоим кодом.
Я сам - дурнее всякого примера! ...
 
 
 
#11
23.09.2010 09:07:22
Привет!  
!   C:\Documents.rar: Невозможно открыть and  
   Не удается найти указанный файл.  
!   C:\Documents.rar: Невозможно открыть Settings\user20459\Рабочий  
   Системе не удается найти указанный путь.  
!   C:\Documents.rar: Невозможно открыть стол\post_157273.rar  
   Системе не удается найти указанный путь.  
!   Невозможно создать C:\Documents.rar  
   Отказано в доступе.  
При попытке вот такая ошибка. Подскажите что я неправильно сделал.
 
 
 
#12
23.09.2010 09:28:30
Джони, свяжитесь с модератором Юрий М.
Я сам - дурнее всякого примера! ...
 
 
 
#13
23.09.2010 10:19:08
для чего? что-то я не догоняю кажется
 
 
 
#14
24.09.2010 13:52:03
Люди. Помогите пожалуйста разобраться. Очень нужно.
 
 
 
Страницы: 1
Читают тему
Наверх