Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.81/32: Рейтинг темы: голосов - 32, средняя оценка - 4.81
3 / 3 / 0
Регистрация: 29.10.2010
Сообщений: 54
1

Internet Explorer, автоматизация

24.11.2010, 13:29. Просмотров 6096. Ответов 8
Метки нет (Все метки)

Камрады,

Есть web-сервис, который по определенной ссылке выдает excel-файл. Подскажите, как из excel на vba сохранить сохранить excel-файл, выдаваемый web-сервисом. Подскажите какие медоты/свойста класса InternetExplorer.Application использовать? Где можно найти помощь по классу InternetExplorer.Application? Спасибо.

BR, Павел
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.11.2010, 13:29
Ответы с готовыми решениями:

Автоматизация Internet Explorer
Форумчане, Передо мной стоит задача автоматизировать загрузку данных с intranet сервера в excel,...

Работа с Internet Explorer через Excel
Здравствуйте! Подскажите, пожалуйста, простой макрос, который делал бы refresh страницы в IE и...

Internet Explorer, отключение запроса на загрузку файла
Камрады, При помощи excel перехожу по link ссылке, в ответ на которую получаю excel-файл: ...

Работа с Checkbox в Internet Explorer через VBA
Добрый день. Подскажите пожалуйста: Есть интернет страница, там есть элемент Checkbox с отмеченным...

8
203 / 42 / 6
Регистрация: 15.10.2010
Сообщений: 125
24.11.2010, 15:06 2
Добавлено через 10 минут
Питер Эйткен разработка приложений на VBA в среде Office XP Гл. 24 там о web-приложениях
http://www.twirpx.com/file/100165/
2
3 / 3 / 0
Регистрация: 29.10.2010
Сообщений: 54
24.11.2010, 16:48  [ТС] 3
Цитата Сообщение от Helen_fire Посмотреть сообщение
Добавлено через 10 минут
Питер Эйткен разработка приложений на VBA в среде Office XP Гл. 24 там о web-приложениях
http://www.twirpx.com/file/100165/
Глава 24 - это про защиту книг, про web приложения ничего не нашел в книге. Не внимательно смотрел? Можно попросить ткнуть меня носом в номер страницы? Спасибо.

BR, Павел
0
203 / 42 / 6
Регистрация: 15.10.2010
Сообщений: 125
25.11.2010, 00:19 4
Не совсем понятно, что именно Вы хотите. Если проблема в том, чтобы сохранить уже открытый по ссылке файл, просто переведя его в формат xls, то все примитивно:

Visual Basic
1
  ActiveWorkbook.SaveAs Filename:="Диск:\Папка\Имя_файла.xls", FileFormat:=xlNormal
если же наоборот надо сохранить книгу для web, то тогда:

Visual Basic
1
2
3
4
With ActiveWorkbook.PublishObjects.Add(xlSourceWorkbook, "Диск:\Папка\Имя_файла.htm", , , xlHtmlCalc)
        .Publish (True)
        .AutoRepublish = True
    End With
а лучше так:

Visual Basic
1
  ActiveWorkbook.SaveAs Filename:="Диск:\Папка\Имя_файла.htm", FileFormat:=xlHtml
если же надо просто обращение к explorer, то попробуте обратиться на этот сайт

http://prjsoft.ru/rus/vba/controlie.php
1
3 / 3 / 0
Регистрация: 29.10.2010
Сообщений: 54
25.11.2010, 09:39  [ТС] 5
Helen Fire,

Есть веб-сервис, который выдает производственную статистику в формате excel. Чтобы получить статистику необходимо заполнить web-форму или пройти по определенной ссылке в ответ на которую web-сервис выдаст excel файл, т.е. последовательность действий:

1. Запуск Internet Explorer из Excel
2. Переход по ссылке
3. Сохранение excel-файла, выдаваемого Explorer

Первая трудность - при попытке сохранения excel файла IE выдает стандартное предупреждение "Вы действительно хотите сохранить ....?", можно ли обойти это диалоговое окно? Спасибо.

BR
0
203 / 42 / 6
Регистрация: 15.10.2010
Сообщений: 125
25.11.2010, 14:44 6
п 1 и 2 - одной строкой

Visual Basic
1
Cells(строка, столбец).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Имеется в виду ячейка, в котрой у Вас содержится ссылка. п 3 -попозже:как разберусь с текучкой. А чтобы окно предупреждения не выдавалось при сохранении

Visual Basic
1
Application.DisplayAlerts = False
Добавлено через 4 часа 24 минуты
вот решение целиком. если хотите проверить: в ячейку (1,1) вставьте следующую ссылку http://www.tt-parts.ru/pricelist/triada.xls. Откроется файл .xls и файл сохранится в корень диска C.

Visual Basic
1
2
3
    Cells(1,1).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    ChDir "C:\"
    ActiveWorkbook.SaveAs Filename:="C:\Triada.xls", FileFormat:=xlNormal
и одна полезная ссылочка http://www.excely.com/excel-vba/ie-automation.shtml -это для работы напрямую
1
3 / 3 / 0
Регистрация: 29.10.2010
Сообщений: 54
25.11.2010, 16:43  [ТС] 7
Helen Fire,

А если ссылка указана неявно, например вот так:

http://webserver/RPT/rptSerialNoEven...n=EXCEL+REPORT

Будет ли при этом нормально исполняться код? Спасибо.

BR
0
203 / 42 / 6
Регистрация: 15.10.2010
Сообщений: 125
25.11.2010, 16:54 8
у меня эта ссылка даже вручную не открывается (
0
3 / 3 / 0
Регистрация: 29.10.2010
Сообщений: 54
26.11.2010, 16:18  [ТС] 9
Helen Fire,

Ссылку я привел для примера. Она на локальный сервер [-: Подскажите, пожалуйста, годный метод обработки событий InternetExplorer из Excel. Я знаю, что нужно создать класс с ключевым словом withevents, создать объект этого класса и связать с приложением. На практике - все делаю по книжке и не работает. Буду благодарен за любой рабочий пример обработки любого события IE из Excel. Спасибо.

BR
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.11.2010, 16:18

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Как обратится к диалоговому окну Internet Explorer (нажатие кнопок в сообщении)
Добрый день. У меня такая проблема. С помощью VBA работаю с одним веб-интерфесом через Internet...

TWebbrowser видит "internet explorer 7" вместо "internet explorer 11"
Delphi 2010 При попытке использования компонента TWebbrowser выяснилось, что Webbrowser работает...

Internet Explorer
Здравствуйте! Возникла проблема:не могу установить IE. Вообще никакой. Система считает что у меня...

Internet Explorer
Здраствуйте как программно изменить настройки сети в Internet Explorer ну т.е. либо включить прокси...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.