VB中，f1 f2 f3的数字我都是手动输入的，现在想f1 f2 f3 分别获取表格的数字，使f1=2 f2=1 f3=9

'　VB 对 Excel 表格单元格的描述
Dim Oexcel, Oworkbooks, Newbook, Newsheet
Dim Wjm As String, i As Integer, j As Integer
Wjm = App.Path & "Excel_表格文件名.XLS"
Set Oexcel = CreateObject("Excel.application")
Set Oworkbooks = Oexcel.workbooks
Set Newbook = Oworkbooks.open(Wjm)
Set Newsheet = Newbook.worksheets(1) '　第1张表
'　……
'　单元格描述；i 表示行号，j 表示列号
Newsheet.cells(i, j) = …… '　向单元格里面写入
变量名 = Newsheet.cells(i, j) '　读出单元格的数据
'　……
Newbook.Close '　关闭表
Oexcel.quit '　退出 Excel 文件打开状态