Office中国论坛/Access中国论坛

标题: 使用EXCEL获取ACCESS MDB数据的技巧 [打印本页]
作者: toolssoft    时间: 2012-6-20 09:23
标题: 使用EXCEL获取ACCESS MDB数据的技巧
增加点人气

【功能简介】
    MS ACCESS虽然提供有数据导出的功能，但是如果MDB有大量数据需要导出到EXCEL表中时，
  会遇到超过EXCEL表格的最大上限值，而无法打开。
    这时候，使用EXCEL VBA程序，通过ADODB.Connection连接，就可以把数据进行灵活分割，
  从而实现导出数据的功能。
  1. Sub MDB2XLS()
  2.     Dim dbCon As ADODB.Connection
  3.     Dim dbRes As ADODB.Recordset

  5.     '连接MDB
  6.     Set dbCon = New ADODB.Connection
  7.     On Error Resume Next
  8.     dbCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strMDBName & ";"
  9.     If Err.Number <> 0 Then
  10.         MsgBox vbCrLf & Err.Description
  11.         Err.Clear
  12.         On Error GoTo 0
  13.         Set dbCon = Nothing
  14.         Exit Sub
  15.     End If
  16.     'SQL处理
  17.     '(省略)
  18.     strSQL="SELECT * FROM test；"
  19.    
  20.     '从MDB中检索数据
  21.     Set dbRes = New ADODB.Recordset
  22.     dbRes.Open strSQL, dbCon, adOpenKeyset, adLockReadOnly
  23.     On Error GoTo 0
  24.     If dbRes.EOF Then
  25.         MsgBox "没有检索到数据。"
  26.         dbRes.Close
  27.         Set dbRes = Nothing
  28.         dbCon.Close
  29.         Set dbCon = Nothing
  30.         Exit Sub
  31.     End If

  33.     Set SH = ActiveSheet
  34.     With SH
  35.         .Cells.ClearContents
  36.         '在EXCEL表中生成字段名
  37.         For COL = 1 To dbRes.Fields.Count
  38.             .Cells(1, COL).Value = dbRes.Fields(COL - 1).Name
  39.             '根据MDB中数据属性，修改EXCEL表中的对应属性
  40.             With .Columns(COL)
  41.                 Select Case dbRes.Fields(COL - 1).Type
  42.                         'case xxx
  43.                         '省略
  44.                     Case 7                  ' 日期格式
  45.                         dteDate = dbRes.Fields(COL - 1).Value
  46.                         lngDate = CLng(dteDate)
  47.                         If lngDate <> dteDate Then
  48.                             .NumberFormatLocal = "yyyy/mm/dd hh:mm"
  49.                         Else
  50.                             .NumberFormatLocal = "yyyy/mm/dd"
  51.                         End If
  52.                         .HorizontalAlignment = xlHAlignCenter
  53.                     Case Else               ' 其他类型都当作文字串
  54.                         .NumberFormatLocal = "@"
  55.                         .HorizontalAlignment = xlHAlignLeft
  56.                 End Select
  57.             End With
  58.         Next COL
  59.         '一次性数据拷贝
  60.         .Range("A2").CopyFromRecordset dbRes
  61.     End With
  62.     dbRes.Close
  63.     Set dbRes = Nothing
  64.     dbCon.Close
  65.     Set dbCon = Nothing
  66. End Sub
复制代码
作者: YOUYOUC    时间: 2015-1-26 23:13
学习了



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3