我做的项目是用一个COMMONDIALOG控件。代码如下
ScreenItems("CommonDialog1").FileName=""
ScreenItems("CommonDialog1").Filter="Microsoft Excel(*.xls)*.xls" ScreenItems("CommonDialog1").ShowOpen
If ScreenItems("CommonDialog1").FileName="" Then Exit Sub

Dim objExcel
Dim objWorkbook
Dim objWorksheet
Dim intcount
Set objExcel=CreateObject("Excel.Application")
If objExcel Is Nothing Then
MsgBox "Excel file can't create",vbCritical,"Error"
Exit Sub
End If
objExcel.visible=False
Set objWorkbook = objExcel.Workbooks.Add
objWorkbook.Saveas ScreenItems("CommonDialog1").FileName
Set objWorkbook=objExcel.Workbooks.Open(ScreenItems("CommonDialog1").FileName)
Set objWorksheet=objWorkbook.ActiveSheet

下面可以操作了