用VB编一个程序，点一下命令按钮弹框打开excel表读取其内容在文本框中

如下是打开word文档的程序，如果改成excel，怎么改？或者大神直接给编一个
Private Sub Command1_Click()
Dim patha As String '目录名,文件名
CommonDialog1.Filter = "word文档|*.doc"
CommonDialog1.ShowOpen
patha = CommonDialog1.FileName
dq (patha) '主函数调用
End Sub
Function dq(a As String)
Dim length As Long
Dim i As Long
Dim s As String
Set oApp = CreateObject("Word.Application")
oApp.Visible = False
Set oDoc = oApp.Documents.Open(a)
length = oDoc.Content.StoryLength
Content = oDoc.Content.Text
For i = 1 To length
If Mid$(Content, i, 1) = Chr$(13) Then
s = s + vbCrLf
Else
s = s + Mid$(Content, i, 1)
End If
DoEvents '让程序响应系统指令，防止锁死
Next i
oDoc.Close True
oApp.Quit False
Text1 = s
End Function

EXCEL因为有单元格来存储数据。它的数据格式就像一张数据库的表，所以如果需要从EXCEL表中获取数据。最简便的方法是使用ADODB来连接这个EXCEL工作簿。它可以跟操作数据库一样的进行操作。不然你使用对象方式（COM）未指定要获取内容的单元格。估计好多的判断来获取你想要的内容。

同问。。。