Question

怎么用vb程序引用text的指定某列数据？

比如记事本bl中数据如下：
380 0.0033120
385 0.0023742
390 0.0016030
395 0.0012402
400 0.0021091
405 0.0057987
410 0.0041876
415 0.0092403
420 0.0217239
425 0.0386495
430 0.0567366
435 0.1570031
440 0.1052954
445 0.0887649
450 0.0899477
455 0.0869379
460 0.0807338
465 0.0729435
470 0.0637632
475 0.0544425
我只要饮用第二列数据，怎么办？
谢谢~

Answer 1

excel才可以直接指定。 txt只能按顺序一个一个读。

以下是如何用vb操作excel。

工程中添加对microsoft excel 8.0对象库的引用
为应用程序工作簿工作表对象声明对象变量
dim xlApp as excel.application
dim xlbook as excel.workbook
dim xlsheet as excel.worksheet

将对象引用赋值给变量，用ADD方法创建新的工作簿和工作表对象
set xlapp=new excel.application
set xlbook=slapp.workbooks.add
set xlsheet=xlbook.worksheets.add

将文本框中的值赋给microsoft excel单元
xlsheet.cells(1,1).value=text1.text
xlsheet.cells(2,1).value=text2.text

用formula方法将microsoft excel中的值相加
xlsheet.cells(3,1).formula="=r1c1+r2c1"
text3.text=xlsheet.cells(3,1)

保存工作表
xlsheet.saveas "c:\temp.xls"
关闭工作表
xlbook.close

关闭microsoft excel
xlapp.quit
释放对象
set xlapp=nothing
set xlbook=nothing
set xlsheet=onthing