VB6.0 text中的数据导入到excel表格

下面说的，是如何将放在f盘下的一个excel表格的某个格子的数据导入到VB中的text1中：

在“工程”的“引用”中选择“microsoft excel 11.0”,"microsoft excel 11.0"看版本而定
Dim xlApp As New Excel.Application
Dim xlBook As New Excel.Workbook
Dim xlSheet As New Excel.Worksheet

Private Sub Command1_Click()
On Error Resume Next
'后台进程运行excel程序，并得到该工作簿
Set xlBook = xlApp.Workbooks.Open("f:\1.xls")
xlApp.Visible = False
'获得该工作簿的“sheet1”表
Set xlSheet = xlBook.Sheets("sheet1")

xlSheet.Select
'抽取b2格子的数据并赋值给text1.text
text1.Text = xlSheet.Range("b2")
'释放资源，顺序到过来的，表》》簿》》应用程序
Set xlSheet = Nothing
Set xlBook = Nothing
xlApp.Quit
Set xlApp = Nothing
End Sub

但是，我想反过来，现在VB中的text1有个数据，例如“0.05”，我想单击command1
按钮，将该数据导入到上面("f:\1.xls")中的指定格子中，该怎么做？请高手提供个完整的command1单击事件代码~

1，打开access，点击工具栏的外部数据，点击excel。
2，点击浏览，选择要导入的excel表格，选好后点击确定，在获取外部数据中点击确定。
3，点击确定后会弹出导入数据包向导框，点击下一步，然后到另一个步骤。
4，点击下一步后，再点击下一步，然后在框里输入要导入的数据表的名称，最后点击完成就可以了。

' text1.Text = xlSheet.Range("b2") 改成下面三行。 xlsheet.cells(2,2)=text1.text xlsheet.save xlstheet.close

代码跟你上面的一样，就是把 text1.Text = xlSheet.Range("b2") 改为 xlSheet.Range("b2") = text1.Text 然后，加上 xlBook.Save 保存一下就可以了。