vb 读取excel数据

来源：百度知道 编辑：UC知道 时间：2024/05/31 01:11:18
我写了个小程序，是在制定的excel里填入一些记录，我希望实现查询的功能，就是我在程序中能制定条件来显示我的填写记录，比如查询一定时间段内的填写记录，显示在我的程序界面里。是在不打开excel的情况下查看。谢谢！
我不想导入1个A1格的内容，我希望能在text中导入excel里指定整行的内容。就是能在text中能显示成象excel的列表的样子。谢谢 我想知道，我想输入特定几行的内容到1个表格控件中，如何实现？能具体点吗？谢谢

说不打开Excel那是假的，只是对象在后台运行了！
就跟你开着Excel操作一样的，只是你要想像着，现在打开了哪张表，哪张表里的那个地方才是你要的。
比如，你要把一个存在“C:\Test.xls"文件里面sheet1中的A1格读入到你的窗体的Textbox1中，那么程序如下
下面的程序是假设你添加了对excel程序集的引用

sub ReadExcel()
dim excelapp as excel.application
dim exceldoc as excel.workbook
exceldoc=excelapp.workbooks.open("C:\Test.xls")
if err then
msgbox "couldn't open the specify file!"
end sub
end if
textbox1.text=exceldoc.worksheets(1).range("A1")
end sub

程序中虽然运行了Excel，并打开了一个文档，但是表面上是看不到Excel界面的，我想这就是你说的不打开Excel吧。

=======================
我上面说的导入A1格只是个例子。。。
如果你想导入整行，那么就编写一个导入整行的程序啊？textbox也只适合接受几个格子的内容，如果你真要在窗体上看上去也像Excel的那样的话，那么你就的添加相关的表格控件了。具体的东西说起来很多，不是这里2句能说的。因为你不是问的一个具体的问题。而是一种方法，我提供的也只是个思路。不是具体实行方式。