急!!!!!!在VB中通过输入两个值怎么读取execl表中的值?
我是新手现有想学习VB,有一个类似以上的问题,请哪个大侠帮忙给我完整的代码,学习一下!
[解决办法]
'首先在菜单:工程-引用中选中 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中先输入行和列,不然会出错的,怎么防错就不用多说了吧