格子球磨机厂家:VB高手请进

来源：百度文库编辑：杭州交通信息网时间：2024/04/29 23:17:22

我想用VB程序提取EXCEL里的数据，并不是要求提取第几行第几列的那样提取，而是要提取TEXT1里输入的数据对应的那一行和TEXT2里输入的数据对应的那一列，行和列指向的那个数据。我已经编了一个了，但是效果不好。下边是我编的程序中关于这个问题的主要代码：
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("D:\沃科报价\LHKONG")
Set xlSheet = xlBook.Worksheets("sheet1") '

Text3.Text = xlSheet.Cells(TEXT1.TEXT, TEXT2.TEXT)
编制完成后，运行发现TEXT3文本框里没有数据，原来是TEXT3的TEXT值也没有了，也不提示错误也不显示0。请问我哪里做错了？还有我这个要求有别的方法能做到的也行，举例子帮我说明，别弄一堆代码，我看不懂，最好在每一句后边加个注解。我急需，回答对了我给50分，如果讲的好我给100分，如果什么都帮我解决掉我给200分。如果帮我做出这个程序，我给300分。

这位兄弟，不知道你的EXCEL文件是不是已经存在，如果是已经存在，现在只要把值写进去。那么，你的打开EXCEL的地方有问题。
Set xlBook = xlApp.Workbooks.Open("D:\沃科报价\LHKONG")
这句要改成这样
Set xlBook = xlApp.Workbooks.Open("D:\沃科报价\LHKONG\book1.xls")

那么你的这程序写法如下：
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
xlApp .Visible = True'设置EXCEL对象可见（或不可见）
Set xlBook = xlApp.Workbooks.Open("D:\沃科报价\LHKONG\你的EXCEL文件名(包含括展名)")
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表

Text3.Text = xlSheet.Cells(TEXT1.TEXT, TEXT2.TEXT)

最后，你处理完了，别关了关掉你的这些对象
保存工作簿
xlBook .save
关闭工作簿
xlBook .Close (True)

结束 EXCEL 对象
xlapp.Quit
如果要求在退出应用程序后EXCEL不提示用户是否保存已修改的
文件,则可使用如下语句：
'objExcel.DisplayAlerts = False
'objExcel.Quit
'objExcel.DisplayAlerts = True

这样就应该行：
Text3.Text = xlSheet.Cells(Val(Text1.Text), Val(Text2.Text))

vb高手请进！！！！！！！！！！！！！！1 VB高手请进啊！ VB编程高手请进 VB高手请进 VB高手请进 VB高手请进 VB高手请进 vb高手请进来 vb高手请进 vb高手请进