主题：弄了半天！高速导入EXCEL的表的方式，也不像样！

此主题相关图片如下：ssssssss.png

Dim book As new xls.book("test1.xls")
For  ag As Integer=0 To book.sheets.count-1
dim mn as string=""

Dim sheet As xls.sheet=book.sheets(ag)
  mn=mn+sheet.name+"|"
Next

e.Form.Controls("ComboBox1").combolist=mn

下拉框好像就这样吗?

字段名也没弄好！论坛上也没有这样的例子，帮助也没有！！高手们，帮帮我？？