标题:怎么将excel数据到入到ado中
只看楼主
shizhusz110
Rank: 1
等 级:新手上路
帖 子:307
专家分:0
注 册:2006-12-21
 问题点数:0 回复次数:6 
怎么将excel数据到入到ado中
我想把excel 的数据导入到vb连的access数据库中
怎么弄,万分谢谢
搜索更多相关主题的帖子: ado excel 数据 
2007-01-21 13:16
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
得分:0 
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(App.Path & "文件名.xls") '打开已经存在的EXCEL工件簿文件
Set xlSheet = xlBook.Worksheets(表名) '设置活动工作表
xlSheet.Activate '激活工作表
xlApp.Visible = True '设置EXCEL对象可见(或不可见)
xlBook.RunAutoMacros (xlAutoOpen) '运行自动开启宏,如果没有宏请这一行不要
a=xlSheet.Cells.Item(行数, 列数) '得到excel某一格的数值

[此贴子已经被作者于2007-1-22 12:35:54编辑过]


2007-01-22 12:32
shizhusz110
Rank: 1
等 级:新手上路
帖 子:307
专家分:0
注 册:2006-12-21
得分:0 
谢谢tang688
2007-01-22 13:52
shizhusz110
Rank: 1
等 级:新手上路
帖 子:307
专家分:0
注 册:2006-12-21
得分:0 

哦 还出错 说无发找到文件.路径不对
我该了还是那样

2007-01-22 14:13
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
得分:0 
晕,这么明显的错误都还要再头问我啊?

2007-01-24 16:56
shizhusz110
Rank: 1
等 级:新手上路
帖 子:307
专家分:0
注 册:2006-12-21
得分:0 
我也知道
可是该了不行才问您哦
我是垃圾我就是不懂,谢谢
2007-01-24 20:53
shizhusz110
Rank: 1
等 级:新手上路
帖 子:307
专家分:0
注 册:2006-12-21
得分:0 

谢谢
我知道了
2007-01-24 20:55



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-117287-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.223458 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved