使用EXCEL获取ACCESS MDB数据的技巧

toolssoft

增加点人气

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

1. Sub MDB2XLS()
   
2.     Dim dbCon As ADODB.Connection
   
3.     Dim dbRes As ADODB.Recordset
   
4. 
   
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
    
32. 
    
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

学习了