回 帖 发 新 帖 刷新版面

主题:VB 连接到数据库里,怎样可以将查询的表导出来EXCEL?


VB 界面很简单,只要用一个COMMAND按钮就可以,我要实现的目的是,按一下这个按钮就可以将我想要查询数据库的表导出生成一个EXCEL表?请问这个VB里的代码怎样编写呢?请各位指教?谢谢!

回复列表 (共1个回复)

沙发

你没说明白你用什么表格控件,我给你个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

我来回复

您尚未登录,请登录后再回复。点此登录或注册