Private Sub cmdImp_Click()
Dim objExcel As Excel.Application
Dim i As Integer
Dim Node As String, Data As String

On Error GoTo Error
 dlg1.Filter = "Excel Format File (*.xls)|*.xls|All Files (*.*)|*.*"
 dlg1.ShowOpen
Set objExcel = New Excel.Application
objExcel.Workbooks.OpenText ("" & dlg1.FileName & "")
For i =  1  To  10  ' ??????????????????????????????????????????????????
  objExcel.Worksheets(i).Activate
Next
Exit Sub
Error:
 objExcel.Workbooks.Close
     Application.Quit
     Set objExcel = Nothing
MsgBox ("Error: " & Err.Description)
End Sub