如何用VB实现读取excel某一工作表的字段，请给出主要代码！ 谢谢~!

Question

先用EXCEL 的宏试一下，然后在vb中写你的需要代码，你会学会的!我在EXELL中的读写是点问题都没有。

Answer 1

一个Excel是一个workbook对象，里面的一张表是sheet对象，表中的单元格是cells对象如果你想引用“测试.xls”工作表里的第二张工作表的第3个单元格dim sGet as stringsGet = workbooks("测试.xls").sheets(2).cells(1,3)就ok了如果你要工作表中的某个字段
dim sBook as string
dim sSheet as string
dim I as integer
dim sField as stringsBook="测试.xls"
sSheet = "test"for I = 2 to workbooks(sBook).sheets(sSheet).usedrange.rows.count
'假设第一行是字段名。usedrange表示在某张工作表中的已使用空间，此处确定你的sheets中有多少条记录
    sField = workbooks(sbook).sheets(ssheet).cells(i,4)
    '假设所需字段在第4列
next I

Answer 2

‘方法一
可以用OLE
dim ExcelApp as object
dim ExcelWorkbook as object
  Set ExcelApp=CreateObject("Excel.Application")
  set ExcelWorkBook=ExcelApp.WorkBooks.Open(".........",[,n])
也可以在"引用"(reference)中引用Excel对象。调用方法一样。
'方法二
也可以将Excel的workbook当做一个数据库打开，具体详情请参考有关数据库方面的书藉。