现在的位置: 首页 > 综合 > 正文

VB开发——Access数据库数据转化到Excell表格

2013年08月29日 ⁄ 综合 ⁄ 共 2913字 ⁄ 字号 评论关闭

个人认为分为三种情况:

整个数据库转化为表格,从数据库选择部分数据转化为表格,从特定记录中选择数据转化为表格

1)整个数据库转化为表格

Private Sub Command1_Click()
     Dim acApp As Access.Application
     Dim strReportName As String
     Dim strReportPath As String
    
     Const SAMPLE_DB_PATH As String = "c:/EastRiver.mdb"
    
     strReportName = "akaoqin "
     strReportPath = "c:/"
     ' Start Access and open Northwind Traders database.
     Set acApp = GetObject(SAMPLE_DB_PATH, "Access.Application")
     acApp.DoCmd.OutputTo acOutputQuery, strReportName, _
     acFormatXLS, strReportPath & "autoxls.xls", True
    
End Sub
    

    应该是效率最高的。TransferDatabase这条命令也能完成这个功能,用法一样,大家可以试试。

2)从数据库选择部分数据转化为表格

    VB支持SQL语言的SELECT ... INTO语句,这使得你可以将一种数据库轻松地转换为另一种格式,也可以在同一种格式的数据库中进行转换。下面我们以将.MDB格式转换为Excel形式为例。
    首先,打开.MDB文件。如
    Dim dbSource As Database
    
    Set dbSource = OpenDatabase("MY.MDB")
    然后使用SELECT ... INTO语句转换文件。
    dbSource.Execute("SELECT * INTO my IN 'c:/documents/xldata.xls' 'EXCEL 5.0;' FROM table1")
    这里,IN子句后面是转换后的数据库文件名,'EXCEL 5.0;'表示Excel 5.0/95格式,也可以是其他VB支持的格式。
    SELECT ... INTO建立新的表或数据库,而如果要将数据追加到已经存在的数据库中,可以使用INSERT ... INTO语句。

3)从特定记录中选择数据转化为表格

   一个将Access数据库转换为Excel的例子:
     Dim xlApp As Excel.Application
     Dim xlBook As Excel.Workbook
     Dim xlSheet As Excel.Worksheet
     Dim oldPointer As Integer 'used to save the current
     Dim rPointer As Integer 'current saving record
     Dim xlsPointer As Integer 'used to point out the position the current record saving
    
     oldPointer = rs_com.Bookmark 'save current pointer of rs_com
     xlsPointer = 2 'the first line of Excel sheet
     Set xlApp = CreateObject("Excel.Application") 'create Excel application
     Set xlBook = xlApp.Workbooks.Add
     Set xlSheet = xlBook.Worksheets(1)
     Hide
     frmSaveProgress.Show 'show the progress status
     rs_com.MoveFirst 'rs_com is a table of your database
     Dim i As Integer
     While Not rs_com.EOF 'save ecah record to Excel file
     For i = 0 To x 'x =记录数
     xlSheet.Cells(xlsPointer, i + 1) = rs_com.Fields(i)
     Next
     frmSaveProgress.nextStep (rs_com.Bookmark / rs_com.RecordCount)
     rs_com.MoveNext
     xlsPointer = xlsPointer + 1
     Wend
     Unload frmSaveProgress 'end save to Excel file
     frmDataOper.Show
     xlBook.SaveAs (xlsFileName)
     xlBook.Close
     xlApp.Quit

另一种实现

Set xlApp = New Excel.Application

Set xlApp = CreateObject("Excel.Application")
'激活EXCEL应用程序
xlApp.Visible = False
'隐藏EXCEL应用程序窗口
Set xlBook = xlApp.Workbooks.Open(strDestination)
'打开工作簿,strDestination为一个EXCEL报表文件
Set xlsheet = xlBook.Worksheets(1)
'设定工作表

datPrimaryRS.Recordset.MoveFirst
'datPrimaryRS为Data控件
    If IsNull(datPrimaryRS.Recordset!姓名) = False Then
    xlSheet.Cells(4, 2) = datPrimaryRS.Recordset!姓名
    End If
    If IsNull(datPrimaryRS.Recordset!性别) = False Then
    xlSheet.Cells(4, 4) = datPrimaryRS.Recordset!性别
    End If
    If IsNull(datPrimaryRS.Recordset!民族) = False Then
    xlSheet.Cells(4, 6) = datPrimaryRS.Recordset!民族
    End If

 

注意事项:

  1、在VB工程中添加对Excel类型库的引用

  为了能从VB应用程序中访问Excel丰富的内部资源,使Excel应用程序运行得更快,需要在VB工程中添加对Excel类型库的引用。具体步骤如下:

  a)从VB5“工程”菜单中选择“引用”;

  b) 在“引用”对话框中选择Excel类型库:"Microsoft Excel9.0 Object Library";

  c)单击左边小方框,使之出现“√”符号;

  d)按“确定”退出。

  注:要想在VB应用程序中调用Excel,你的计算机系统中必须安装Excel。

Access也是类似的,没有这步操作,是无法编译通过的!

抱歉!评论已关闭.