主题:VB 连接到数据库里,怎样可以将查询的表导出来EXCEL?
lingchen
[专家分:0] 发布于 2008-03-29 17:18:00
VB 界面很简单,只要用一个COMMAND按钮就可以,我要实现的目的是,按一下这个按钮就可以将我想要查询数据库的表导出生成一个EXCEL表?请问这个VB里的代码怎样编写呢?请各位指教?谢谢!
回复列表 (共1个回复)
沙发
FieldMAX [专家分:12740] 发布于 2008-03-29 22:29:00
你没说明白你用什么表格控件,我给你个ListView导入Exl的函数,你自己研究把
Public Sub ToExl(ExlFile As String)
Dim Xl As Object ' OLE自动化对象
Dim i As Long ' 循环计数器
Dim j As Long
Dim n As Long
Dim rCount As Long ' 记录的个数
Screen.MousePointer = 11
Set Xl = CreateObject("excel.Sheet.8")
If LV.ListItems.Count > 0 Then
'表头
n = 1
j = 1
Do Until n = LV.ColumnHeaders.Count
If LV.ColumnHeaders(n).Width <> 0 Then
Xl.Worksheets(1).cells(1, j).Value = LV.ColumnHeaders(n).Text
j = j + 1
End If
n = n + 1
Loop
' 在记录中循环
For i = 1 To LV.ListItems.Count
If LV.ColumnHeaders(1).Width <> 0 Then
Xl.Worksheets(1).cells(i + 1, 1).Value = LV.ListItems(i).Text
j = 2
Else
j = 1
End If
n = 1
Do Until n = LV.ColumnHeaders.Count - 1
If LV.ColumnHeaders(n + 1).Width <> 0 Then
Xl.Worksheets(1).cells(i + 1, j).Value = LV.ListItems(i).SubItems(n)
j = j + 1
End If
n = n + 1
Loop
Next
' 保存工作表
Xl.SaveAs ExlFile
'从内存中删除Excel对象
Xl.Application.Quit
End If
Set Xl = Nothing
Screen.MousePointer = 0
MsgBox "已经将当前数据储存到[" & ExlFile & "]", vbOKOnly, "提示"
End Sub
我来回复