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                                        
    Set InDatExcel = CreateObject("Excel.Application")
   Set InDatBook = InDatExcel.Workbooks.Open(CMDialog.FileName)   
   Set InDatSheet1 = InDatExcel.Worksheets(1)
   r = InDatSheet1.Rows.Count
     For i = 1 To r    
       For j = 1 To MSFlexGrid1.Cols - 1                                                    
         MSFlexGrid1.TextMatrix(i, j) = InDatSheet1.Cells(i + 1, j)          
       Next j
     Next i 
   InDatExcel.Quit:   Set InDatExcel = Nothing:   Set InDatBook = Nothing:    Set InDatSheet1 = Nothing          
   Set InDatSheet2 = Nothing:  Set InDatSheet3 = Nothing:  Set InDatSheet4 = Nothing                             
 Exit Sub
ErrorLine:                                   
   MsgBox "数据导入不成功!", 16, "消息框"
End Sub