我想把excel 的数据导入到vb连的access数据库中
怎么弄,万分谢谢

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编辑过]

谢谢tang688

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

晕,这么明显的错误都还要再头问我啊?

我也知道
可是该了不行才问您哦
我是垃圾我就是不懂,谢谢

哦
谢谢
我知道了