怎样将数据库导出到Excel
想将一个数据库的数据导出到Excel文件中
由于数据表是DataTable的,他的列会变
所以在导出至Excel中需要循环确定某一个列位置
Dim m_objExcel As New Excel.Application()
m_objExcel.Visible = False
Dim m_objBooks As Excel.Workbooks = CType(m_objExcel.Workbooks, Excel.Workbooks)
Dim m_objOpt As Object = System.Reflection.Missing.Value
Dim m_objBook As Excel._Workbook = CType(m_objBooks.Add(m_objOpt), Excel._Workbook)
Dim m_objSheets As Excel.Sheets = CType(m_objBook.Worksheets, Excel.Sheets)
Dim m_objSheet As Excel._Worksheet = CType(m_objSheets.Item(1), Excel._Worksheet)
Dim m_objRange As Excel.Range
Dim range1 As String = "A1 "
m_objRange = m_objSheet.Range(range1)
m_objRange.Value = "车次 "
m_objRange.BorderAround()
m_objRange.HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter
m_objRange.VerticalAlignment = Excel.XlVAlign.xlVAlignCenter
m_objRange.Merge()
m_objBook.SaveAs(path, m_objOpt, m_objOpt, m_objOpt, m_objOpt, m_objOpt, Excel.XlSaveAsAccessMode.xlNoChange, m_objOpt, m_objOpt, m_objOpt, m_objOpt)
m_objBook.Close(False, m_objOpt, m_objOpt)
m_objExcel.Quit()
m_objSheet = Nothing
m_objSheets = Nothing
m_objBook = Nothing
m_objExcel = Nothing
GC.Collect()
使用这种方法可以导出,关键在于range1这个变量,他是 "A1 "A是列,1是行,可是字母是无流循环的,请问什么办法解决,另外m_objExcel.Cell(0,0) = value,可循环,但是为什么我在导出的时候这样老会出错,说的不是很清楚,请达人指教
[解决办法]
http://topic.csdn.net/t/20020803/18/921471.html
http://dev.hardiy.info/5105/5256386.htm
http://www.it130.cn/Article/FAQ/bianchengyuyan/VB/2007-3-6/2007030623440210.html
http://dev.csdn.net/Develop/article/28/57786.shtm
[解决办法]
调用OFFICE组件
------解决方案--------------------
我的博客里的一篇文章是關於這的
