您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

请问如何使用vb将excel的数据导入access数据库

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

请问如何使用vb将excel的数据导入access数据库

发表于：2007-07-15 20:37:19 楼主

如题目所说,小弟现在正在写一个关于数据导入导出的小程序,目前数据导出已经完成,但是关于将excel的数据导如access数据库却还没有头绪,请各位高手赐教.

发表于：2007-07-16 20:57:071楼得分:0

学习

发表于：2007-07-16 21:30:142楼得分:0

access有向导

发表于：2007-07-17 16:33:133楼得分:0

dim excel_app as object
dim excel_sheet as object
dim db as database
dim accesspath as string, accesstable as string
dim sql as string
dim frm as new frmmessage
dim msg as string

adosdb.begintrans

with dlgcommondialog
.dialogtitle = "打开 "
.cancelerror = false
'todo: 设置 common dialog 控件的标志和属性
.filter = "excel文件（*.xls) ¦*.xls "
.showopen
if len（.filename) = 0 then
exit sub
end if
sfile = .filename
end with

accesspath = app.path & "\db.mdb " '数据库路径
excelpath = sfile '电子表格路经
accesstable = "db " '数据库内表格

msg = trim（inputbox（ "请输入表名，如sheet1或sheet2： ", "工作表 ", "sheet1 "))
' msg = str（msg)
sheet = msg '电子表格内工作表
set db = opendatabase（excelpath, true, false, "excel 8.0 ") '打开电子表格文件
sql = （ "select * into [;database= " & accesspath & "]. " & accesstable & " from [ " & sheet & "$] ")
' sql = （ "select * into [;database= " & accesspath & "]. " & accesstable & " from [ " & sheet & "] ")

if sheet = " " then
msgbox "您选择的excel表不存在，请重新导入！ ", vbinformation, "抱歉！ "
exit sub
end if

adosdb.committrans

db.ＥＸＥＣute （sql) '将电子表格导入数据库

将上面的程序稍改下就行了.

发表于：2007-07-17 16:34:504楼得分:0

请教楼主：

如何将vb6窗体中mshflexgrid里面显示的记录另存到一个excel文档中？

谢谢！

其他资讯