Question

急 急 !!!如何用VB逐行读取Excel并复制给变量!!!

大虾们 小弟初学 我想用vb逐行读取VB的数据并和我输入的数据进行比较.不知道怎么实现.
首先Excel是事先提供好的是一个两纵行,但横行数目不定,第一竖行都是5个字符串,第2竖行只有3种情况(w,x,y)两竖行是一一对应的.
我输入一个5位的字符串,先和第一竖行的比较如果没有显示PASS,如果有相同的显示和它同一行后面的(w 或者x或者y).
请给出详细的方法
谢谢
刚写错了.我想用vb逐行读取Excel的数据并和我输入的数据进行比较.不知道怎么实现.
首先Excel是事先提供好的是一个两纵行,但横行数目不定,第一竖行都是5个字符串,第2竖行只有3种情况(w,x,y)两竖行是一一对应的.
我输入一个5位的字符串,先和第一竖行的比较如果没有相同的显示PASS,如果有相同的显示和它同一行后面的(w 或者x或者y).
请给出详细的方法
谢谢.

请给出代码
读取Excel并赋值给变量的

Answer 1

http://www.3800hk.com/Article/cxsj/vb/bcslvb/2007-04-02/Article_126096.html

看看这里吧...比较详细...

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值