Excel VBA를 VB.Net으로 변환하여 Selection.ListObject.QueryTable 그대로

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 버전은 무엇입니까는 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 파일의 이름입니다.