Private Sub Command1_Click()
 Dim InDatExcel As Excel.Application  
 Dim InDatBook As Excel.Workbook 
 Dim InDatSheet As Excel.Worksheet
  CMDialog.CancelError = True                   
  On Error GoTo ErrorLine                                   
  CMDialog.FileName = "" '
  CMDialog.Flags = 4096                                         
  CMDialog.Filter = "Data File(*.xls)|*.xls"                  
  CMDialog.FilterIndex = 1       
  CMDialog.DialogTitle = "选取要导入的数据文件(*.xls)"         
  CMDialog.Action = 1                                        
......................