Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » virus555
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 След.
Сохранение картинок внутри файла xls
 
#
29.06.2016 19:01:58
В общем вопрос решился путем сохранения в книгу Excel95 (http://prntscr.com/bmnao2), а потом обратно. И картинки сохранились.
Всем спасибо за помощь и участие.
 
Перейти    
Сохранение картинок внутри файла xls
 
#
29.06.2016 18:13:02
Цитата
Hugo написал: В настройках книги-листа зашёл в WEB, убрал галку "загружать картинки" или наоборот, сохраниЛК
У меня Office 2010 - в упор не могу найти данные настройки книги-листа

Цитата
Tyson78 написал: Как вариант - копируешь картинку, вставляешь в PowerPoint...
Вообще не вариант - картинок бывает и 100 и 200
 
Перейти    
Сохранение картинок внутри файла xls
 
#
29.06.2016 17:18:02
Удалил на всех - http://prntscr.com/bmltdg - не помогает, все-равно грузятся
Изменено: virus555 - 30.06.2016 09:18:59
 
Перейти    
Сохранение картинок внутри файла xls
 
#
29.06.2016 16:58:44
Собственно САБЖ.
Прислали китайцы файл, где при открытии файла картинки подгружаются с их сайта. Поскольку их сайт оочень тормознутый, то файл открывается порядка 5-10 минут. Возможно ли как-то пересохранить этот файл, чтобы картинки остались внутри файла?

Пример файла с 5-ю такмим картинками в прикрепленных.
(если Excel подвиснет на секунд 10 - не переживайте - это загружаются картинки :) )
 
Перейти    
Как запустить vba макрос в corel из excel
 
#
15.06.2014 23:47:48
The_Prist, объект точно так называется, по другому матюкается
B.Key, мне надо для уже открытого приложения, и нет в PhotoPaint`e у Application`a команды Run - матюкается - Object doesn`t support this property or method

В самом PhotoPaint`e макрос вызывается очень просто - по названию:
Код
Sub Macros1() 
testtt 
End Sub
А как это сделать из Excel`я ума не приложу.
Изменено: virus555 - 15.06.2014 23:50:26
 
Перейти    
Как запустить vba макрос в corel из excel
 
#
15.06.2014 18:58:11
Сегодня все знатоки видимо на выходных :)
 
Перейти    
Как запустить vba макрос в corel из excel
 
#
15.06.2014 13:59:11
Имеется макрос в Corel Photo-Paint (с названием testtt) - как его программно запустить из Excel`а?

Из Корела запустить макрос в Excel получилось так:
Код
Sub ВызываемМакросИзExcel()
Dim EXCELAPP As Object
Set EXCELAPP = GetObject(, "excel.application")
AppActivate "Microsoft Excel"
EXCELAPP.Application.run "testtt"
End Sub
А вот как сделать наоборот? Следующий код не работает:
Код
Sub testtt()
Dim PHOTOPP As Object
Set PHOTOPP = GetObject("", "CorelPHOTOPAINT.Application")
→ PHOTOPP.Application.Run "testtt"   
End Sub
Матюкается, что Object doesn`t support this property or method  :(  (на строке со стрелочкой)
P.S. - естественно оба приложения должны быть открыты.
 
Перейти    
Диалоговые окна в Internet Explorer
 
#
09.06.2014 13:54:23
Игорь, ну тут точно дело не в ожидании готовности браузера и не в разности браузеров, потому что код
Код
Range("A1") = IE.Document.getElementById("wke_b_image").outerhtml
возвращает полный код кнопки (текст кода приводил выше)
но click для этого ID почему-то не срабатывает
Изменено: virus555 - 09.06.2014 13:54:41
 
Перейти    
Диалоговые окна в Internet Explorer
 
#
09.06.2014 12:27:14
pharmaprofi, с этого и начал, там этого нет
 
Перейти    
Диалоговые окна в Internet Explorer
 
#
09.06.2014 08:23:03
Игорь, потому что Вконтакте необходимая кнопка (по которой клацаю наведением курсора) на странице видна, но при просмотре кода ее нет (видимо она появляется при просмотре страницы с помощью скрипта).

Вот код той кнопки при исследование элемента в chrome:
Код
<a id="wke_b_image" class="fl_l wke_b" wiki="image" tooltip="Добавить фотографию" onmousedown="cur._wke[1].button(this, event);"  onmouseup="cur._wke[1].buttonUp(this);" onmouseover="cur._wke[1].ttOver(this);" onmouseout="cur._wke[1].ttOut(this);" style="background-position: 0px -240px;"></a>
и код IE.Document.getElementById("wke_b_image" ;) .Click не работает, т.к. при просмотре кода страницы этого кода нет
Изменено: virus555 - 09.06.2014 08:23:20
 
Перейти    
Диалоговые окна в Internet Explorer
 
#
07.06.2014 14:13:05
Неужели никто не работал с диалоговыми окнами в vba?
 
Перейти    
Загрузка фото на wiki страницу Вконтакте
 
#
06.06.2014 17:37:17
Нет этой суммой не ограничен.
 
Перейти    
Загрузка фото на wiki страницу Вконтакте
 
#
06.06.2014 14:08:31
Имеем wiki страницу Вконтакте (https://vk.com/page-28774435_47321332?act=edit)
и 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)
Изменено: virus555 - 06.06.2014 14:09:37
 
Перейти    
Диалоговые окна в Internet Explorer
 
#
06.06.2014 13:26:46
Стопорнулся на таком моменте: на странице в IE с помощью vba открывается форма для загрузки файлов (при перетескивании на нее файлов начинается загрузка их на сервер, при нажатии ЛКМ по форме открывается диалоговое окно выбора файлов)
1) собственно вопрос первый - как программно через VBA отправить на форму файл, чтобы произошло Drag&Drop
2) либо объясните, пожалуйста, как работать с диалоговыми окнами? ведь если даже программно нажать чтобы открылось диалоговое окно, то код VBA какбы ставится на паузу, пока я "ручками" не закрою это диалоговое окно.

Страница на которой это надо реализовать - https://vk.com/page-28774435_47321332?act=edit (тут надо нажать на иконку фотографии для вызова вышеописанной формы)
Выкладываю файл для примера, но у вас может не сработать часть кода, которая нажимает иконку фотографии:
SetCursorPos 600, 190 'x and y position (чуть что подкорректируйте координаты)
 
Перейти    
Как программно нажать на ссылку/кнопку
 
#
05.06.2014 13:51:31
Здравствуйте форумчане, никак не получается нажать на ссылку (выглядит она как кнопка) на этой странице:
http://vk.com/page-28774435_47321332?act=edit (чтобы просмотреть надо быть авторизованным Вконтакте)

на странице эта ссылка имеет код:
Код
<a id="wke_b_image" class="fl_l wke_b" wiki="image" tooltip="Добавить фотографию" onmousedown="cur._wke[1].button(this, event);"  
onmouseup="cur._wke[1].buttonUp(this);" onmouseover="cur._wke[1].ttOver(this);" onmouseout="cur._wke[1].ttOut(this);"  
style="background-position: 0px -240px;"></a>
если попытаться нажать так
Код
ie.Document.getElementById("wke_b_image").Click
то ничего не происходит  :(  
а вообще необходимо программно сделать три действия:
1) на открытой странице необходимо нажать на кнопку добавления фотографий
2) В появившемся окошке нажать на "Загрузить фотографию"
3) Выбрать все фотки из папки D:\1\ и нажать Открыть

Буду благодарен за любую помощь.
Изменено: virus555 - 05.06.2014 13:53:32
 
Перейти    
Как определить последнюю ячейку с текстом
 
#
01.06.2014 08:54:44
Юрий М, Ок пасибо
 
Перейти    
Как определить последнюю ячейку с текстом
 
#
31.05.2014 20:19:44
Здравствуйте уважаемые форумчане.
У меня есть код, который скачивает картинки из интернета по ссылкам из определенного столбца. Для этого он вычисляет последнюю пустую строку с помощью формул Rows.Count и Cells.Count и исходя из этого считает кол-во ячеек с ссылками. Но проблема в том, что ссылки у меня формируются с помощью формул и даже если формула возвращает "" эта строка естественно считается не пустой (т.к. там есть формула).
Вопрос - как посчитать к-во строк содержащих например "http" ?
Изменено: virus555 - 31.05.2014 20:51:58
 
Перейти    
Удаляем содержимое текста по маске
 
#
29.05.2014 17:19:13
Всем добрый день. У меня есть функция скачивающая содержимое web страницы. Перед тем как записать текст в ячейку я хочу удалить все ненужное до определенного слова, но проблема в том, что при изменении этого определенного слова код может обрабатываться и 2 сек. и до бесконечности.

Например если искать до слова "Анастасия" как в коде, то обработка занимает порядка 2-3 секунд:
Код
Sub ТекстВебСтраницы()
    URL$ = "http://www.livemaster.ru/topic/755955-dekoriruem-korob-loskutnoe-chaepitie-dekupazh"
    Webtext = GetHTTPResponse(URL$, "windows-1251")
    With CreateObject("vbscript.regexp")
    .ignorecase = True: .Global = True
    .Pattern = "[\s\S]*Анастасия": CleanText = .Replace(Webtext, "")
    End With
    Sheets("Замена").Range("C7").Value = Webtext
End Sub
А если в коде поменять "Анастасия" например на "blogmessage", то код как-будто виснет. С чем это связано?

И еще вопрос: как написать код, чтобы оставить определенный текст по маске, т.е. найти текст, его оставить, а все остальное удалить? Может так будет быстрее работать?
Изменено: virus555 - 29.05.2014 18:53:49
 
Перейти    
Загрузка текста web страницы в правильной кодировке
 
#
29.05.2014 13:45:23
Игорь, в принципе согласен, хоть сайтов и будет около 30, но и для 30 можно ручками прописать. Еще раз спасибо за помощь.
 
Перейти    
Загрузка текста web страницы в правильной кодировке
 
#
29.05.2014 11:57:23
Игорь, большое спасибо за подсказку. Но вот бы еще код сам угадывал кодировку скачиваемой страницы, без явного указания ее (кодировки).
 
Перейти    
Загрузка текста web страницы в правильной кодировке
 
#
28.05.2014 18:09:31
Здравствуйте форумчане. У меня такая проблема:
Пытаюсь загрузить текст с web страницы, и если сайт в кодировке UTF-8, то все загружается правильно, но если сайт в кодировке Windows-1251, то все русские символы загружаются абракадаброй.

На просторах инета нашел 2 разных кода загружающих текст с инета, но оба неправильно загружают кодировку Windows-1251.
Может кто сможет что-то подправить в коде? Буду очень благодарен.
 
Перейти    
Как задать маску из значения ячеек?
 
#
28.05.2014 15:53:30
Казанский, а можно кодом? А то я такой "программист", пишу код исключительно по подсказкам?
И чем это лучше если не секрет?  
 
Перейти    
Как задать маску из значения ячеек?
 
#
28.05.2014 15:43:07
JayBhagavan, Спасибо, я в первый раз немного неправильно вставил, теперь все работает  :)
 
Перейти    
Как задать маску из значения ячеек?
 
#
28.05.2014 15:20:43
JayBhagavan, чето не работает так
 
Перейти    
Как задать маску из значения ячеек?
 
#
28.05.2014 15:01:44
Всем добрый день. У меня Office 2010 и такая проблема:

Как в условия маски добавить значение из ячейки?
Имеем УДФ:
Код
Function Delete$(s$)
  With CreateObject("vbscript.regexp")
    .ignorecase = True: .Global = True
    .Pattern = ".*2|3.*": Delete = .Replace(s, "")
  End With
End Function
Как вместо "2" в патерне вставить значение например ячейки С4?
 
Перейти    
Разобрать html код на ячейки
 
#
21.05.2014 17:05:10
В общем доковырял я код, получилось громоздко, зато работает в виде формул и без лишних телодвижений.
 
Перейти    
Разобрать html код на ячейки
 
#
21.05.2014 14:44:18
Владимир, нужны
Изменено: virus555 - 21.05.2014 14:45:27
 
Перейти    
Разобрать html код на ячейки
 
#
21.05.2014 14:20:21
JayBhagavan, да не вопрос, просто в моем примере легче разобраться что мне надо (а в исходном коде черт ногу сломит)
 
Перейти    
Разобрать html код на ячейки
 
#
21.05.2014 14:13:14
JayBhagavan, Я ж не ругаю :) на этом сайте мне очень часто подсказывают толковые идеи.
 
Перейти    
Разобрать html код на ячейки
 
#
21.05.2014 14:09:40
JayBhagavan, Даже если подберу правильные условия для разделения, то мне необходимо в виде формулы, куча html кода будет постоянно меняться и каждый раз делать перенос строк будет утомительно.
 
Перейти    
Страницы: 1 2 След.
Наверх