VB导出数据到excel
来源:互联网 发布:面试淘宝美工提问 编辑:程序博客网 时间:2024/04/28 17:17
'将查询信息导出为excel文件
'输出
'输入:param1 string database名字
' param2 string sql语句
Public Sub SaveAsExcel(database As String, strSql As String)
Dim rs As New ADODB.Recordset
Dim objExcel As New Excel.Application
Dim objBook As New Excel.Workbook
Dim objSheet As New Excel.Worksheet
Dim rowCount As Long
Dim colCount As Integer
Dim j As Integer
Dim i As Integer
Set objExcel = CreateObject("Excel.Application")
Set objBook = objExcel.Workbooks.Add
On Error GoTo Error1:
Set objSheet = objBook.Worksheets.Add
Set rs = GetData(strSql, database)
colCount = rs.Fields.Count
rowCount = rs.RecordCount
For i = 0 To colCount - 1
objSheet.Cells(1, i + 1) = rs.Fields(i).Name + Chr(13)
Next
For j = 2 To rowCount + 1
For i = 0 To colCount - 1
objSheet.Cells(j, i + 1) = CStr(rs.Fields(i))
'+ Chr(10)
Next
rs.MoveNext
Next
objBook.SaveAs (App.Path + "/data.xls")
Set rs = Nothing
objBook.Close
objExcel.Quit
Set objExcel = Nothing
MsgBox "数据已经全部导出"
Exit Sub
Error1:
MsgBox Error
objBook.Close
objExcel.Quit
Set objExcel = Nothing
End Sub
- VB导出数据到excel
- VB.NET 导出数据到EXCEL中
- 从VB将数据导出到EXCEL
- 从VB将数据导出到EXCEL
- vb.net导出数据到Excel代码
- VB.NET 快速导出数据到Excel
- VB.NET 导出数据到EXCEL中
- VB.NET 导出数据到EXCEL中
- 【VB】MSHFlexGrid表格数据导出到Excel
- VB.NET 数据快速导出到excel文件
- 使用ASPOSE导出DataGrid数据到Excel(VB)
- vb中将数据导出到excel表格中
- VB.net 将dataGridView中的数据导出到excel
- VB C# listview 中的数据导出到excel 文件
- VB 将MSHFlexGrid中数据导出到Excel
- VB将MSHFlexGrid中数据导出到Excel中
- 机房收费系统之用VB导出数据到Excel
- [VB版机房]MSGFLEXGRID控件中的数据导出到excel
- 太傻Myoffer系统
- 游戏外挂制作教材V5.5.9破解手记(原创)
- C#中二进制文件的建、写、读
- 传说中哈尔滨最牛的饭店...
- 06/01/09
- VB导出数据到excel
- 用 C# 读取二进制文件 相关讨论
- ASP.NET里的事务处理
- 在李毅说护球像亨利之后
- 怎样设置IE高版本中的样式表高级应用的支持(IE6.0)
- 怎么在html中include一个文件内容
- 莫生气
- 用概率论的方法实现理想化程序
- Linux Netlink as an IP Services Protocol