Преобразование Excel VBA в VB.Net с помощью Selection.ListObject.QueryTable Intact

Question

Мне нужен доступ к объекту Selection.ListObject.QueryTable, чтобы сохранить ширину столбца.

Код выглядит следующим образом:

Range("B9").Select()
With Selection.ListObject.QueryTable
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = False
    .RefreshPeriod = 0
    .PreserveColumnInfo = True
End With

Что такое VB.Net-версия этого сгенерированного в Excel кода VBA?

Answer 1

Как насчет этого?

Dim excelApp AS Object = CreateObject("Excel.Application")
excelApp.Workbooks.Open(Filename:=_file)

With excelApp.ActiveWorkbook.Worksheets(0).Cells(9, 2).QueryTable
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = 1
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = False
    .RefreshPeriod = 0
    .PreserveColumnInfo = True
End With

где _file - имя вашего файла Excel.