2012-08-10 35 views
0

我想出口MySQL表格數據列標題爲Excel表。我正在使用vb.net。但我無法在Excel表格中獲得表格列標題。我只獲取mysql表數據。導出mysql列表數據與列標題使用vb.net

my code 
------- 
Dim i, j As Integer 


    Dim xlApp As Excel.Application 
    Dim xlWorkBook As Excel.Workbook 
    Dim xlWorkSheet As Excel.Worksheet 
    Dim misValue As Object = System.Reflection.Missing.Value 

    xlApp = New Excel.ApplicationClass 
    xlWorkBook = xlApp.Workbooks.Add(misValue) 
    xlWorkSheet = xlWorkBook.Sheets("sheet1") 


    For i = 0 To ds.Tables(0).Rows.Count - 1 
     For j = 0 To ds.Tables(0).Columns.Count - 1 
      xlWorkSheet.Cells(i + 1, j + 1) = _ 
      ds.Tables(0).Rows(i).Item(j) 
     Next 
    Next 

    xlWorkSheet.SaveAs("D:\vbexcel.xlsx") 
    xlWorkBook.Close() 
    xlApp.Quit() 

回答