Зараз обговорюють

"Тобто є ряд завдань, які взагалі без рекурсії не наважуються."  - це як розуміти? Перефразуй, будь ласка. 

виправив, йшлося про те що деякі завдання можна вирішити лише при використанні рекурсії

Спасибі дуже корисна стаття

А ще щось планується подібного найближчим часом?


Дякую за підтримку, радий що Вам сподобалось!

Так маю вже майже дороблений проект по управлінні Audio файлом, на заміну стандартним клавішам управління HTML5, але ще не встиг відтестувати програвання файлів з інтернету, поки лише локально працює

Надіюсь найближчим часом дороблю й закину

Рахунки

webmoneyeur - E385818210641
usd - Z304643423050
uah - U354026817492
rub - R301704373231easypay80002677bitcoin1F5HRGroUtEQW9HBNbeew8iKh5KQ8vJxzw

Зворотній зв'язок

Для покращення роботи сайту надсилайте свої зауваження:
mailЗауваження
mailПропозиція

Статистика

UkrNET - поисково-информационный ресурс

VBA : Функція Shell для запуску сторонніх програм на комп'ютері. Архівування файлів за допомогою WinRar

Shell

Функція Shell служить для запуску іншої програми з VB-програми. Функція Shell запускає інші програми в асинхронному режимі. Це означає, що для продовження виконання інструкцій, наступних за Shell, не потрібно завершення програми, запущеної за допомогою функції Shell

Синтаксис:

Shell (PathName, [WindowStyle])

PathName - Обов'язковий аргумент типу Variant (String). Ім'я виконуваної програми і будь-які необхідні аргументи або ключі командного рядка, допускає включення каталогу або теки і диска

[WindowStyle] - Необов'язковий аргумент типу Variant (Integer), що відповідає типу вікна, в якому виконується програма. Якщо аргумент опущений, програма запускається і отримує фокус

WindowStyle приймає наступні значення:

Стрічкове значенняЧислове значенняОпис
vbHide0Вікно приховано, і фокус передається прихованого вікна
vbNormalFocus1Вікно має фокус і відновлює свої стандартні розмір і положення
vbMinimizedFocus2Вікно відображається у вигляді значка з фокусом
vbMaximizedFocus3Вікно розгортається на повний екран з фокусом
vbNormalNoFocus4Відновлюються попередні розмір і положення вікна. Активним залишається поточне вікно
vbMinimizedNoFocus6Вікно відображається у вигляді значка. Активним залишається поточне вікно

При успішному запуску програми повертає значення типу Variant (Double), що представляє ідентифікатор програми (ID). Ідентіфікатор завдання ID є унікальним номером, що вказує на виконувану програму. Якщо функція Shell не може запустити вказану програму, виникає помилка.

Як ми вже розглянули в попередній статті на прикладі каркулятора функція Shell записується:
Sub Test()
'оголошуємо змінні'
Dim ReturnValue As Variant
    ReturnValue = Shell("CALC.EXE", 1)      'запускає команду для запуску каркулятора'
End Sub 

WinRar

В даному прикладі я покажу як за допомогою VBA, та встановленого на компютері WinRar, можна заархівувати чи розархівувати файли

Заархівувати

Sub Rar()
Dim sPath As String, pass As String, sWinRarApp As String, sPathbook As String, sArhiveName As String
Dim GetArhive As Variant
    sPath = ThisWorkbook.Path                        'Визначаємо шлях до папки де знаходиться робочий файл з якого запущено макрос'
    pass = "date" & Format(Now, "ddmmyyyy")          'генеруємо пароль'
    sWinRarApp = "D:instWINRARWINRAR.EXE a -ep "     'шлях до застосунку WinRar та параметри для потрібних дій (в даному випадку архівації)'
    sPathbook = sPath & "Книга1" & ".xlsm"           'шлях до файлу який потрібно заархівувати'
    sArhiveName = sPath & "Книга1" & ".rar"          'шлях де потрібно зберегти заархівований файл та його назва'
    If Len(Dir$(sPathbook)) Then                     'перевіряємо чи існує вказаний файл'
        GetArhive = Shell(sWinRarApp & " """ & sArhiveName & """ """ & sPathbook & """ -p" & pass, vbHide)    'запускаємо команду на виконання архівації в прихованому режимі'
    End If
End Sub 

Розархівувати

Sub UnRar()
Dim sPath As String, pass As String, sWinRarApp As String, sArhiveName As String
Dim GetArhive As Variant
    sPath = ThisWorkbook.Path                        'Визначаємо шлях до папки де знаходиться робочий файл з якого запущено макрос'
    pass = "date" & Format(Now, "ddmmyyyy")          'генеруємо пароль (замінити на потрібний, встановлений в архіві)'
    sWinRarApp = "D:instWINRARWINRAR.EXE E -o+ "     'шлях до застосунку WinRar та параметри для потрібних дій (в даному випадку розархівації)'
    sArhiveName = sPath & "Книга1" & ".rar"          'шлях до файлу який потрібно розархівувати'
    If Len(Dir$(sArhiveName )) Then                  'перевіряємо чи існує вказаний файл'
        GetArhive = Shell(sWinRarApp & " """ & sArhiveName & """ """ & sPath & """ -p" & pass, vbHide)    'запускаємо команду на виконання розархівації в прихованому режимі'
    End If
End Sub 

view398like0dislike0 avatard_l4w clock 2016-05-17 02:23

Коментарі:



Для даної статті відсутні коментарі

Про нас

"Programmers World" розроблено з метою полегшення в освоєнні навичок програмування, та поширення матеріалів з сфери ІТ Українською мовою.

Кожен бажаючий може безкоштовно користуватися ресурсами сайту, щоб:

- Вивчати теоретичні аспекти мов програмування

- Переглядати практичне застосування теорії при виконанні різних міні проектів з відкритим кодом

- Розміщати свої завдання на форумі для допомоги в їх реалізації, або готового коду який може бути корисний іншим користувачам

- Спілкуватись з іншими користувачами та обмінюватись досвідом

Сайт функціонує на безопланій основі та ентузіазмі розробника, якщо Ви бажаєте долучитись до розвитку даного проекту то можете пожертвувати кошти на рахунки розміщені в блоці "Допомога сайту".

Сайт

Зареєстровані користувачі можуть скористатися системою діалогів, в профілі користувача, для отримання потрібної інформації. Написати!

Також Ви можете використати форми відправки Зауважень та Пропозицій.


Електронна пошта

Ви можете звертатись на нашу поштову скриньку site.programmersworld@gmail.com

www.000webhost.com