Имеем wiki страницу Вконтакте ()
и n-ое количество картинок в папке "D:\1\"
Задание.
-------------------------------------
Необходимо создать макрос для Excel 2010 на VBA, чтобы выполнялись следующие действия:
1. Необходимо посчитать к-во файлов в папке "D:\1\"
2. Заходим на вышеуказанную страницу
3. Нажимаем на иконку "добавления фотографий" (выглядит как фотоаппарат)
4. передаюм список файлов из папки и загружаем их
5. Дожидаемся загрузки файлов.
5. поскольку ВК не позволяет загружать более 10 фотографий за раз, то: если к-во файлов в папке > 10, то делаем цикл и передаем по 10 фотографий за раз, пока не загрузятся все.
6. Желательно производить загрузку без вызова диалогового окна выбора фотографий (у меня так получилось с помощью плагина для Firefox - Selenium который при передаче команды (selenium.type "id=choose_photo_upload", "D:1\1.jpg") прекрасно загружает фотографию без вывода лишних окон.
7. Полученный результат из текстового поля записать в ячейку Range("A1") - собственно эту команду я знаю - Range("A1") = IE.Document.getElementById("wke_textarea").innertext)
и n-ое количество картинок в папке "D:\1\"
Задание.
-------------------------------------
Необходимо создать макрос для Excel 2010 на VBA, чтобы выполнялись следующие действия:
1. Необходимо посчитать к-во файлов в папке "D:\1\"
2. Заходим на вышеуказанную страницу
3. Нажимаем на иконку "добавления фотографий" (выглядит как фотоаппарат)
4. передаюм список файлов из папки и загружаем их
5. Дожидаемся загрузки файлов.
5. поскольку ВК не позволяет загружать более 10 фотографий за раз, то: если к-во файлов в папке > 10, то делаем цикл и передаем по 10 фотографий за раз, пока не загрузятся все.
6. Желательно производить загрузку без вызова диалогового окна выбора фотографий (у меня так получилось с помощью плагина для Firefox - Selenium который при передаче команды (selenium.type "id=choose_photo_upload", "D:1\1.jpg") прекрасно загружает фотографию без вывода лишних окон.
7. Полученный результат из текстового поля записать в ячейку Range("A1") - собственно эту команду я знаю - Range("A1") = IE.Document.getElementById("wke_textarea").innertext)
Изменено: - 06.06.2014 14:09:37