vb用对话框打开excel

Question

打开一个已有的excel是这个： 
Set objWorkBook = objExcel.Workbooks.Open("c:\1.xls") 
但是我想像打开文件一样打开一个文件夹，选择哪个硬盘，哪个文件，选择之后再打开，接着运行！怎么实现啊！类似用
dirvelistbox ,dirlistbox,filelistbox实现的文件访问！
高手说的详细点，包括包含的控件！谢谢，好的追加分！
安得excel2003

Answer 1

部件里面引用 MicroSoft Common Dialog Control 6.0 控件.增加控件:CommonDialog1以下是代码:  CommonDialog1.Filter = "Excel文件|*.Xls"
  CommonDialog1.FileName=""
  CommonDialog1.ShowOpen
  Set objWorkBook = objExcel.Workbooks.Open(CommonDialog1.FileName) 

Answer 2

    With CommonDialog1
        .DialogTitle = "Select Excel File To Open"
        .Flags = cdlOFNPathMustExist
        .Filter = "Excel Files (*.xls)|*.xls"
        .FileName = "*.xls"
        .InitDir = App.Path
        .ShowOpen
        txtFilePath = .FileName
    End With