Convertir Excel VBA en VB.Net avec Selection.ListObject.QueryTable Intact

Question

J'ai besoin d'accéder à l'objet Selection.ListObject.QueryTable afin de préserver la largeur de la colonne.

Le code est le suivant:

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 

Quelle est la version VB.Net de ce code VBA Excel généré?

Answer 1

Qu'en est-il de quelque chose comme ça?

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 

où _file est le nom de votre fichier Excel.