如何将VB中提取数据库的数据生成EXCEL电子表格的形式

Question

本人目前正在做一个银行的软件遇到一个困难,如何将VB中提取数据库的数据生成EXCEL电子表格的形式!!!

Answer 1

很简单，创建EXCEL对象，用这个对象来操作。技术支持：[email protected]

Answer 2

引用excel
Dim objExcel As Object
Dim objRange As Excel.RangeOn Error Resume Next
    Set objExcel = GetObject(, "Excel.Application")
    If objExcel Is Nothing Then
        Set objExcel = CreateObject("Excel.Application")
    End If
    objExcel.Workbooks.AddSet objRange = objExcel.Range(objExcel.Cells(intRow, 1), objExcel.Cells(intRow, 2))
    objRange.Merge
    objRange.Font.Size = 10
    objRange.FormulaR1C1 = "制表人：" & strMaker    Set objRange = objExcel.Range(objExcel.Cells(intRow, 3), objExcel.Cells(intRow, 4))
    objRange.Merge
    objRange.Font.Size = 10
    objRange.FormulaR1C1 = "制表时间：" & strMakeTime
    intRow = intRow + 1。
Set objRange = objExcel.Range(objExcel.Cells(intRow, 1), objExcel.Cells(mf.FixedRows + intRow - 1, mf.Cols))
    '=================End================
    objRange.Font.Name = "宋体"
    objRange.Font.Size = 12
    objRange.Font.Bold = True
    objRange.RowHeight = 24
    objRange.VerticalAlignment = 2
    objRange.HorizontalAlignment = 3    'Set objRange = objExcel.Range(objExcel.Cells(mf.FixedRows + 1, 1), objExcel.Cells(mf.Rows, mf.Cols))'old
    '===============Begin==========
    Set objRange = objExcel.Range(objExcel.Cells(mf.FixedRows + intRow, 1), objExcel.Cells(mf.Rows + intRow - 1, mf.Cols))
    '================End==========
    objRange.NumberFormat = "#"
    objRange.Font.Name = "宋体"
    objRange.Font.Size = 10    'objRange.Borders.LineStyle = owcLineStyleSolid
    objRange.Borders.LineStyle = 7
    objRange.Borders.Weight = 2
    objRange.BorderAround 7, xlThick
'    objRange.Borders(xlEdgeBottom).LineStyle = owcLineStyleSolid
'    objRange.Borders(xlEdgeRight).LineStyle = owcLineStyleSolid
'    objRange.Borders(xlDiagonalDown).LineStyle = owcLineStyleSolid
'    objRange.Borders(xlEdgeBottom).Weight = owcLineWeightThick
'    objRange.BorderAround = 9
    objExcel.Visible = True