请教vb6.0

一下代码是调出文件浏览器窗口，选择D:\temp\bb.xls，然后把第一行内容显示在listview上。
如何把程序改成打开任意的excel表。感谢！
Option Explicit
Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
Dim Tex As String
Dim ln As String

Private Sub Command4_Click()
Dim x As Integer
CD.ShowOpen
List2.MousePointer = 11
Open CD.Filename For Input As 1
Do Until EOF(1)
Line Input #1, ln
Tex = Tex & ln & vbCrLf
Loop
'判断EXCEL是否打开
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = False '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("D:\temp\bb.xls") '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表
xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏
For x = 1 To 10
List2.AddItem xlsheet.Cells(1, x) '给单元格1行驶列赋值
Next x