導入查詢通過VB.NET

Question

成果轉化的工具，我正在寫一個工具導入數據庫查詢結果到Excel中VB.NET

我嘗試下面的代碼。它不工作。

With objApp.ActiveSheet.QueryTables.Add(Connection:="ODBC;DSN=Build_statistics;", _ 
    Destination:=objApp.Range("G15")) 
     .CommandText = "SELECT * from mytable" 

     .Name = "Query" 
     .FieldNames = True 
     .RowNumbers = False 
     .FillAdjacentFormulas = False 
     .PreserveFormatting = True 
     .RefreshOnFileOpen = False 
     .BackgroundQuery = True 
     .RefreshStyle = Microsoft.Office.Interop.Excel.XlCellInsertionMode.xlInsertDeleteCells 
     .SavePassword = False 
     .SaveData = True 
     .AdjustColumnWidth = True 
     .RefreshPeriod = 0 
     .PreserveColumnInfo = True 
     **.Refresh(BackgroundQuery:=False)** 'I am getting error here 
    End With 

它在VBA中工作正常，但在VB.NET中沒有問題。

Answer 1

爲什麼不將查詢結果加載到DataSet中，然後將DataSet表的內容導入到Excel中？

Answer 2

線

**.Refresh(BackgroundQuery:=False)** 'I am getting error here 

是不正確的，應該由

.Refresh BackgroundQuery:=False 

所取代。