access中的行数据大于Excel表的最大行数.如何自动将其导入多个表
时 间:2010-12-20 00:00:00
作 者:MichaelSunny ID:7031 城市:重庆
摘 要:为管理数据超大,自动化处理,提供一种思路。得各位朋友指点,今汇于此。若有更好的方法,请朋友赐教。欢迎大家加入ACCESS论坛。
正 文:
假如有一个数据库DATABASE.MDB,其中有一张表DATE1,在VBA中建立数据通道,然后用命令”Select * FROM DATE1“返回全体记录,利用循环一条一条拷贝到EXCEL表中,每复制65536条记录则换一张表
运行前把此文件复制到MDB所在目录下,然后修改代码中的数据库名称和表格名称,具体位置在代码中有注释
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Private Sub CommandButton8_Click()
Unload Me
End Sub
Private Sub CommandButton9_Click()
Dim RecordCount, SheetNO, Line
Application.ScreenUpdating = False
RecordCount = 1
SheetNO = 1
Line = 1
While Not rs.EOF
Application.StatusBar = RecordCount
RecordCount = RecordCount + 1
If Line <= 65536 Then
For J = 0 To rs.Fields.Count - 1
ActiveSheet.Cells(Line, J + 1) = rs.Fields(J)
Next
rs.MoveNext
Line = Line + 1
Else
Sheets.Add AFTER:=Sheets(SheetNO)
SheetNO = SheetNO + 1
Sheets(SheetNO).Select
Line = 1
End If
Wend
Application.ScreenUpdating = True
MsgBox "导入结束"
End Sub
Private Sub UserForm_Activate()
Dim DataPath As String
'数据库(*.MDB)必须在当前目录下,且文件名为:DATABASE.MDB,待导入的表名必须是:DATA,否则请修改下面的连接字符串
DataPath = ActiveWorkbook.Path & "\"
Set conn = New ADODB.Connection
conn.C + DataPath + "database.mdb;Persist Security Info=False"
conn.ConnectionTimeout = 5
conn.Open
sql = "select * from data" '表名为:DATA
Set rs = New ADODB.Recordset
rs.Open sql, conn, adOpenDynamic
End Sub
Private Sub UserForm_Terminate()
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub
Access软件网QQ交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)