急!!!!!!在VB中通过输入两个值怎么读取execl表中的值?

Question

我是新手现有想学习VB,有一个类似以上的问题,请哪个大侠帮忙给我完整的代码,学习一下!

Answer 1

不理解,什么叫通过输入两个值读取Excel的值?
楼主是不是想通过输入ROW(EXCEL行)、COL（EXCEL列），来读取对应单元格的值并显示？
如果是这样的话，以下代码可以

Answer 2

'首先在菜单：工程-引用中选中 Microsoft Office 11.0 Object Library，视你机子上装的Office版本而定
'创建一个窗体Form1，在Form1上添加一按钮Command1,文本框Text1、Text2，
'在Form1内添加如下代码Private Sub Command1_Click()
   Dim xexl As Object
   dim row as integer,col as integer
   row=text1
   col=text2
   Set xexl = CreateObject("Excel.Application")
   xexl.Workbooks.Open ("C:\test.xls")
   msgbox xexl.Worksheets("sheet1").Cells(row, col).Value
   xexl.Workbooks("test.xls").Close (True)
End Sub'点command1前在text1和text2中先输入行和列，不然会出错的，怎么防错就不用多说了吧

Answer 3

要是用两个Combo1控件来进行选择值,用Text1显示,又会怎么样做, 会不会有一个越界的问题,请指教!!!!!!!!!!!!!!!

Answer 4

大哥,救命 啊,我现在要反过来做, 知execl的值,输入后就会在text中显示 行列号,怎么做啊!关系到饭碗的问题,帮帮忙,在等!!!!!!!!!!!!!!!!!!!!!!!!1

Answer 5

dim row as integer,,col as integer
row=-1
col=-1
for each c in worksheets("sheet1").usedragne
   if c.value=text1.text then 
      row=c.row
      col=c.column
      exit for
   end if
next c
text2=row
text3=col
'如果显示-1说明没有找到值