2012-08-10 2 views
0

열 머리글을 사용하여 mysql 테이블 데이터를 Excel 시트로 내보내고 싶습니다. vb.net을 사용하고 있습니다. Excel 시트에서 테이블 열 표제를 가져올 수 없습니다. mysql 테이블 데이터 만 가져오고있다.vb.net을 사용하여 열 머리글로 mysql 테이블 데이터 내보내기

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() 

답변

관련 문제