VB调用excel 如何在text输入一个数字x 显示单元格Bx的内容

Question

小弟新手，比如输入3 显示B3内容，我的办法绕圈了，先找A3在显示右侧的B3计算很慢，有没有简单点的办法

Private Sub Command1_Click()
Dim xlsapp As Excel.Application
Set xlsapp = Excel.Application
xlsapp.Visible = False
xlsapp.Workbooks.Open ("D:\1.xls")
Dim i As Long
i = 1
Do While xlsapp.ActiveWorkbook.Sheets("sheet1").Cells(i, 1) <> ""
If xlsapp.ActiveWorkbook.Sheets("sheet1").Cells(i, 1).Value = Text1.Text Then
Label1.Caption = xlsapp.ActiveWorkbook.Sheets("sheet1").Cells(i, 2).Value
Exit Do
End If
i = i + 1
Loop
xlsapp.ActiveWorkbook.Close (False)
xlsapp.Quit
Set xlsapp = Nothing
End Sub

Answer 1

如果你只是想在text输入一个数字3 就显示单元格B3的内容

Dim xlsapp As Excel.Application
Set xlsapp = Excel.Application
xlsapp.Visible = False
xlsapp.Workbooks.Open ("D:\1.xls")
Label1.Caption = xlsapp.ActiveWorkbook.Sheets("sheet1").Cells(val(text1), 2).Value

xlsapp.ActiveWorkbook.Close (False)

xlsapp.Quit
Set xlsapp = Nothing