安達利機車行

在vb.net裏面，要將資料庫裏面SELECT出來的資料output到Excel檔的方法很多
小弟在這裏找到一個又快又好寫的方法…更多的內容在這裏…


Private Sub SaveAsExcelFile(ByVal file_path As String)
        Dim oExcel As Object
        Dim oBook As Object
        Dim oSheet As Object
        '開啟一個新的Excel檔
        oExcel = CreateObject("Excel.Application")
        oBook = oExcel.Workbooks.Add
        '宣告我們要在Excel裏面的欄位
        oSheet = oBook.Worksheets(1)
        oSheet.Range("A1").Value = "姓名"
        oSheet.Range("B1").Value = "單位"
        oSheet.Range("C1").Value = "專長"

        ' 如果要從資料庫中寫入Excel檔，記得把數字2和3改成變數
        '  然後用您習慣的方式，取得欄位資料並將資料填入…
        oSheet.Range("A" & 2).Value = "mr.a"
        oSheet.Range("B" & 2).Value = "小單位"
        oSheet.Range("C" & 2).Value = "吃喝"

        oSheet.Range("A" & 3).Value = "mr.b"
        oSheet.Range("B" & 3).Value = "大單位"
        oSheet.Range("C" & 3).Value = "吃吃喝喝"

        ' 存檔(file_path 就是您指定存檔的路徑...)
        oBook.SaveAs(file_path )
        oSheet = Nothing
        oBook = Nothing
        oExcel.Quit()
        oExcel = Nothing
        GC.Collect()
End Sub