主题：[求助]Excel文档导入问题

问题一：我要把表2中的数据通过一个按钮对应填充到表1中。
比如。我先点击表1中的产品编号，再点击数据填充钮，就会把表2中的第2列第2行的4.5填充在表1中的EL3点下VF1下的1下面，依次类推。
表2中只是产品0001的数据，我还会删除表2中的内容，重新写入其他产品的数据，表2内容的更改不能影响我以前导入的产品数据。
问题二：我要导入一个xls格式的文档，类似与
If(MsgBox("将测试结果进行导入,并自动进行数据处理!确认吗?",2,3) = True ,ClearGrid("data") And DelFile("C:\data.txt") And SetVariable("%导数%",Text(GetFileName("Csv文件|*.csv","导入第一次测试数据(Csv格式)",0))) And CopyFile(Text([%导数%]),"C:\data.txt") And ImportTextFile("C:\data.txt",",", Char(13), 15) And EvalFor("data","蓝移","[WD2] - [WD1]"),"")
这个数据，但这是CSV格式的，我把其中的CSV格式都改成xls也不行，请大家教我弄一下。RAR文件下载

-=-=-=- 以下内容由 zi008 在 2009年11月02日 09:59am 时添加 -=-=-=-
还有个问题，我要设置一个按钮，命令就是删除本表中的第一行和最后一行，这句函数怎么写啊

问题一、
egd文件下载

删除第一行：Delrow(Grid, 1)
删除最末行：Delrow(Grid, Rows)

谢谢，第一个和第三个问题已经解决了。
xls文档的导入问题能再帮忙下吗，谢谢。

导入前先打开CSV文件，然后执行“另存为”命令，选择存储类型为XLS。然后再导入...

我要把表2的第3列的第2行那个数字导入到表1第5列的第7行，这句函数怎么些？

如果引入位置有规律，参考2楼附件表1中要导入数据几列的刷新公式；没有规律就用Cell命令直接固定引用....

附Cell语法：
CELL函数
Cell函数用于引用指定单元格。

Cell(Row,Col,Grid)
Row  指定行
Col  指定列，可以用列位置表示，也可以用列名称表示
Grid 可选参数，指定表，如果省略，则为当前表。

比如我要引用表2中VF1下的第2行和第3行中不为0的那个数值，用FindText函数怎么写啊？            
FindText("表2","VF1",2)和FindText("表2","VF1",3)和并，还要加不为“0”的条件进去

FindText
在指定的表、指定的列中查找指定内容，并返回符合条件的行中指定列的内容。

语法：
FindText(Grid，Col，CompareCol，CompareMode，CompareValue，......,Position)

Grid         在表中进行查找，可以用表名表示，也可以用位置表示。
Col          返回该列的内容，可以用列名称表示，也可以用位置表示。
CompareCol   进行比较的列，可以用列名称表示，也可以用位置表示。
CompareMode  比较方式，包括=、>、<、>=、<=、<>、Like、Instr共8种比较方式。
CompareValue 比较值
Position     这个参数决定返回第几个符合条件的行的数据，如果省略，则返回第一个符合条件的行，如果设为-1,则返回最后一个符合条件的行。

可以设置多个比较条件，从第三个参数开始，每三个参数组成一个比较条件。如果比较方式选择的是Instr,则进行包含查询；如果比较方式选择"Like"，则可以在比较值中使用通配符进行类似查询。

FindText的返回值类型根据列类型确定，如果找到符合条件的行，那么返回值与该列类型相同。例如对于数值列，返回的是0、2，字符列返回的是"0"、"2"，如果没有找到符合条件的行，将返回0（数值列、逻辑列、时段列）或者""（字符列或其它类型的列）。