Question

vb 读取excel 包括如何引用。谢谢。

Answer 1

Private Sub Command1_Click()
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open("C:\2.xls") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = False '设置EXCEL对象可见（或不可见）
xlApp.Worksheets("Sheet1").Range("A1").Cells(3, 2) = "我在第3行、第2列添加了数据"
On Error Resume Next
xlBook.Save
ActiveWorkbook.Close
xlBook.Close '关闭工作簿
xlApp.Quit '结束EXCEL对象.
Set xlApp = Nothing '释放xlApp对象
End Sub
更多VB代码可参阅我的博客：http://hi.baidu.com/zgmg/blog/item/6ad8ea118fb09b1cb9127ba6.html

追问

谢谢，我是你这么写的 但是报异常。 xlApp.Workbooks.Open 我在写一句的时候根本没有open这个函数，不知道为什么。 本人没学过VB，自己刚做一个项目，希望你能告诉我详细点 包括引用之类的 谢谢！！！！

追答

1、你引用Excel控件了吗？
2、你用的是否VB6.0？

Answer 2

用excel说明数据不大，可以直接用open语句，如果数据大了用access，要用vb 提供的工具。
其实excel也能用vb的excel连接器。数据少就没必要

追问

谢谢啊 这个必须用excel。 需求