VPF::Сертификат безопасности при доступе к web-узлу

ss@sh

Дата 1.10.2008, 14:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 22.4.2007
Где: Тверь

Репутация: нет
Всего: нет

Существует web-страничка, на которой три таблицы
Данные из третьей таблицы необходимо поместить на лист MS Excel, причём делать это нужно несколько раз в день.

Записал макрос в MS Excel который получает данные с web-странички, переделал его в процедуру.
Проблема в том, что web-узел постоянно запрашивает проверку подлинности и предлагает выбрать нужный цифровой сертификат из списка.

Код


Private Sub ImportWebData() 

  ' создаём таблицу
  Dim importTable As QueryTable
  Set importTable = ActiveSheet.QueryTables.Add(Connection:="URL;https://web_адрес", Destination:=ActiveSheet.Range("a1"))

  ' параметры таблицы
  importTable.Name = "ImportData"
  importTable.FieldsName = True
  importTable.RowNumbers = False
  importTable.FillAdjacentFormulas = False
  importTable.PreserveFormatting = True
  importTable.RefreshOnFileOpen = False
  importTable.BackgroudQuery = True
  importTable.RefreshStyle = xlInsertDeleteCells
  importTable.SavePassword = False
  importTable.SaveData = True
  importTable.AdjustColumnWidth = True
  importTable.RefreshPeriod = 0

  importTable.WebSelectionType = xlSpecifiedTables
  importTable.WebTables = "3"  ' номер таблицы на web-страничке
  importTable.WebFormating = xlWebFormattingNone
  importTable.WebPreFormattedTextToColumns = True
  importTable.WebConcecutiveDelimitersAsOne = True
  importTable.WebSingleBlockTextImport = False
  importTable.WebDisableDateRecognition = False
  importTable.WebDisableRedirections = True

  '
  ' вот тут хорошо бы добавить код, который подсовывает нужный сертификат web-узлу
  '

  ' получение данных
  importTable.Refresh BackgroundQuery:=False

  ' удаляем ссылку на источник данных
  importTable.QueryTables(importTable.Name).Delete
End Sub

Подскажите, как это можно сделать программно?

Lothar

Дата 25.3.2011, 11:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 25.3.2011

Репутация: нет
Всего: нет

Извините, что поднимаю столь давнюю тему. Но мне это тоже стало актуально. Ответа я так и не нашел на этот вопрос. Может кто-то подскажет, как в подобный скрипт (можно именно в этот) вставить сертификат. Буду крайне благодарен.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »