Что я пытаюсь сделать?
У меня есть список URL-адресов, которые я хочу очистить с помощью функции веб-запросов Excel. Я пытаюсь полностью автоматизировать процесс, поэтому я разрабатываю пакет SSIS, который вызывает задачу сценария для каждого URL-адреса. Задача сценария создает новую рабочую книгу Excel с рабочим листом, активирует рабочий лист, добавляет соединение QueryTable, обновляет QueryTable для получения данных с помощью XlWebSelectionType.xlAllTables
. Затем он сохраняет книгу и закрывает книгу и приложение Excel.
Какие технологии я использую?
- VS 2015 (предприятие)
- SQL Server 2016
- Библиотека объектов Microsoft Excel 16.0
- Локальная установка Excel из Office 365 профессиональный плюс
В чем проблема?
Хотя задача сценария сохраняет все данные из таблиц на веб-странице, она помещает их все на один рабочий лист и не сохраняет имена таблиц. Поэтому, хотя мои данные правильно сгруппированы на листе, я не могу узнать, какая «группа» данных соответствует какой таблице.
Что мне с этим делать?
В идеале я хотел бы, чтобы каждая таблица QueryTable сохранялась на своем собственном рабочем листе с именем таблицы, установленным в качестве имени рабочего листа. За исключением этого, мне нужен способ сохранить имя таблицы с соответствующими данными. В этом сценарии лучше всего добавить его в качестве нового столбца в QueryTable.
Что у меня есть на данный момент?
Вот основная часть скрипта:
Public Sub Main()
Dim URL As String = Dts.Variables("User::URL").Value.ToString()
Dim FileName As String = Dts.Variables("User::FileName").Value.ToString()
Dim xlNone As XlWebFormatting = XlWebFormatting.xlWebFormattingNone
Dim Format As XlFileFormat = XlFileFormat.xlCSVWindows
Dim ScrapeStatus As Integer = 1
Dim excel As New Microsoft.Office.Interop.Excel.ApplicationClass
With excel
.SheetsInNewWorkbook = 1
.DisplayAlerts = False
End With
Dim wb As Microsoft.Office.Interop.Excel.Workbook = excel.Workbooks.Add()
With wb
.Activate()
.Worksheets.Select(1)
End With
Try
Dim rnStart As Range = wb.ActiveSheet.Range("A1:Z100")
Dim qtQtrResults As QueryTable = wb.ActiveSheet.QueryTables.Add(Connection:="URL;" + URL, Destination:=rnStart)
With qtQtrResults
.BackgroundQuery = False
.WebFormatting = xlNone
.WebSelectionType = XlWebSelectionType.xlAllTables
.Refresh()
End With
excel.CalculateUntilAsyncQueriesDone()
wb.SaveAs(FileName)
wb.Close()
excel.Quit()
System.Runtime.InteropServices.Marshal.ReleaseComObject(excel)
GC.Collect()
GC.WaitForPendingFinalizers()
Dts.TaskResult = ScriptResults.Success
Catch ex As Exception
Dts.Variables("User::Error").Value = ex.Message.ToString()
wb.Saved = True
wb.Close()
excel.Quit()
System.Runtime.InteropServices.Marshal.ReleaseComObject(excel)
GC.Collect()
GC.WaitForPendingFinalizers()
Dts.TaskResult = ScriptResults.Failure
End Try
End Sub
Какие результаты я получаю?
Для URL-адреса http://athletics.chabotcollege.edu/information/directory/home#directory
, если я использую функцию веб-запроса в Excel, я получаю следующее для выбора: Отображаются все имена таблиц
Однако, когда я извлекаю все таблицы с помощью задачи сценария, я получаю рабочий лист, который выглядит примерно так:
Другая информация
Я также должен отметить, что хотя большинство веб-страниц имеют схожую структуру, не все они одинаковы. Поэтому я не могу предположить, что каждая страница будет иметь одинаковые имена таблиц или структурировать таблицы одинаково. Мое решение должно быть динамичным и гибким.