您的位置：程序门 -> vb -> 基础类

怎么導入一个excel表到access，请教大家了。谢谢

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

怎么導入一个excel表到access，请教大家了。谢谢[已结贴,结贴人:zouhuai]

发表于：2007-01-29 12:02:19 楼主

我想做一个小软件，添加一个excel的表到vb的数据库里面，用的access数据库。需要什么控件，能不能仔细点告诉一下啊。谢谢了。

发表于：2007-01-29 13:08:331楼得分:30

一个access到excel的例子，楼主可以参考下，改改代码就可以了

========================================================
'excel对象的使用（将access中的数据导入到一个新建的excel文件中)
'========================================================
private sub form_load（)
dim i, j as long
dim conn as adodb.connection
dim rst as adodb.recordset

set conn = new adodb.connection
set rst = new adodb.recordset
conn.connectionstring = "provider=microsoft.jet.oledb.4.0;data source=c:\db1.mdb;persist security info=false "
conn.open

rst.cursorlocation = aduseclient
rst.open "select * from tableabc ", conn, adopendynamic, adlockoptimistic

dim myapp as excel.application
dim mybook as excel.workbook
dim mysheet as excel.worksheet
set myapp = createobject（ "excel.application ")
myapp.visible = false
set mybook = myapp.workbooks.add（)
set mysheet = mybook.worksheets（1)

j = 1
do until rst.eof
for i = 1 to rst.fields.count
mysheet.cells（j, i) = rst.fields（i - 1)
next
rst.movenext
j = j + 1
loop

mybook.saveas "c:\11.xls "

myapp.quit

set myapp = nothing

rst.close

set rst = nothing
set conn = nothing
end sub

发表于：2007-01-29 13:11:222楼得分:0

我做过这样的小程序，你要，可以和我联系！zzyong00@sina.com

*****************************************************************************
欢迎使用csdn论坛阅读器 : csdn reader（附全部源代码)
http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html

发表于：2007-01-29 15:53:133楼得分:0

`刚接触vb啊真的不懂，能不能给一段源代码啊。非常感谢！

发表于：2007-01-29 16:39:484楼得分:0

``我是想单击一个按钮然后弹出查找文件的窗口，找到一个excel表导入到vb里的access表。请各位帮帮忙啊。

其他资讯