向大家请教个小问题？在线等候，一回答就感谢你！

Question

在vb上怎样能打开excel文件？顺便取出某个单元格的函数！帮个忙吧。

Answer 1

set excel_app=CreatObject("excel.application")
excel_app.workbooks.open [filename]
'判断版本
if val(excel_app.application.version)>=8 then
  set excel_sheet=excel_app.activesheet
else
  set excel_sheet=excel_app
end if
'得到表中的值
strValue=trim$(excel_sheet.cells(row,1))
'其中的1我也不知道什么意思。可能是列。
'手工输入，可能有不对的地方。

Answer 2

1代表列号.相当于EXCEL中的A.下面是我引用DAO3.51是一段程序,你可以修改一下,让其用于ADO.
在窗体上加一个COMBO1控件.调用下面这个函数.EXCEL的表即在COMBO1中列出.Sub OpenExcel(ExcelFile As String) 
  Dim a As Long
  Dim B As Long
  Dim C As Long
  Dim Db As Database
  Dim DbTal As String
  
  On Error Resume Next  Set Db = OpenDatabase(ExcelFile, True, False, "Excel 5.0")
  B = Db.TableDefs.Count
  Combo1.Clear
  If B > 0 Then
     For a = 1 To B
         DbTal = ""
         DbTal = Db.TableDefs(a - 1).Name
         DbTal = Left$(DbTal, Len(DbTal) - 1)
         Combo1.AddItem DbTal
     Next a
  End If
  Err.Clear
End Sub