首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

急在VB中通过输入两个值如何读取execl表中的值

2012-01-19 
急!!!!!!在VB中通过输入两个值怎么读取execl表中的值?我是新手现有想学习VB,有一个类似以上的问题,请哪个

急!!!!!!在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中先输入行和列,不然会出错的,怎么防错就不用多说了吧

热点排行