Задание: ------------------ Необходимо с помощью VBA в Excel реализовать выгрузку картинок из папки на диске в Альбом Вконтакте (используя API Вконтакте). Полученные ссылки загруженных картинок вставить в ячейку в Екселе.
Подробнее: ------------------ У меня есть книга Excel, в которую я вставляю ссылку и по этой ссылке Макрос скачивает код страницы, находит ссылки картинок и скачивает эти картинки в папку. Теперь мне необходимо закачать эти картинки в альбом личной страницы Вконтакте. Делается это через API Вконтакте - https://vk.com/dev/upload_files. После загрузки Вконтакте выдает ответ в котором есть список загруженных файлов вида: photo141118090_330360265 photo141118090_330360266 photo141118090_330360267 photo141118090_330360268 и т.д Вот этот список мне надо вставить в ячейку на листе (если быть точным сюда - Sheets("Главная").Range("C7")).
Как проверить: ------------------ 1. Скопируйте эту ссылку - http://www.livemaster.ru/topic/383051-kak-vstavit-vyshivku-v-ramu 2. На листе "Главная" справа от ячейки С5 нажмите кнопку "Вставить" 3. Когда появиться окошко "Загрузка кода завершена" просто нажмите крестик, закрывающий окошко. 4. Все! Картинки загружены на диск D: в папку "1" - эти картинки и надо загружать в личный альбом. 5. Вот как у меня в книге идет статус бар загрузки изображений, необходимо сделать так же при выгрузке картинок в VK
Задание: ------------------ Необходимо с помощью VBA в Excel реализовать выгрузку картинок из папки на диске в Альбом Вконтакте (используя API Вконтакте). Полученные ссылки загруженных картинок вставить в ячейку в Екселе.
Подробнее: ------------------ У меня есть книга Excel, в которую я вставляю ссылку и по этой ссылке Макрос скачивает код страницы, находит ссылки картинок и скачивает эти картинки в папку. Теперь мне необходимо закачать эти картинки в альбом личной страницы Вконтакте. Делается это через API Вконтакте - https://vk.com/dev/upload_files. После загрузки Вконтакте выдает ответ в котором есть список загруженных файлов вида: photo141118090_330360265 photo141118090_330360266 photo141118090_330360267 photo141118090_330360268 и т.д Вот этот список мне надо вставить в ячейку на листе (если быть точным сюда - Sheets("Главная").Range("C7")).
Как проверить: ------------------ 1. Скопируйте эту ссылку - http://www.livemaster.ru/topic/383051-kak-vstavit-vyshivku-v-ramu 2. На листе "Главная" справа от ячейки С5 нажмите кнопку "Вставить" 3. Когда появиться окошко "Загрузка кода завершена" просто нажмите крестик, закрывающий окошко. 4. Все! Картинки загружены на диск D: в папку "1" - эти картинки и надо загружать в личный альбом. 5. Вот как у меня в книге идет статус бар загрузки изображений, необходимо сделать так же при выгрузке картинок в VK