关于打开excel文件，将数据放到MSFlexGrid控件里的问题

Question

用Drive、Dir、File三个控件找到一个excel文件
选中这个文件
点击按钮
能在form里显示出来
然后双击某行数据
提取本行全部数据怎么做啊？
谢谢！我以前没做过
向大家请教！[email protected]我现在可以把excel文件里的数据读出来了
这样读的：
    Dim VBExcel As Excel.Application
    Dim xlbook As Excel.Workbook '定义Excel工作簿对象
    Dim xlsheet As Excel.Worksheet '定义Excel工作表对象
    Set VBExcel = CreateObject("excel.application")
    VBExcel.Visible = False '根据操作人员是否需要见到Excel此处可设为TRUE或FALSE
    Set xlbook = VBExcel.Workbooks.Open(xlsPath.Text) 'ExcelFile为事先设计好的Excel模板文件，包括路径
    Set xlsheet = xlbook.Worksheets(1) '1为Excel模板工作表的index，或者用表名称，如：Sheet1
    xlsheet.Activate
'    MsgBox CStr(xlsheet.Cells(1, 1).Value)我用了MSFlexGrid控件，我想把数据显示到这个控件里
就不知道怎么写了
^_^，呵呵，再帮帮我吧
如果想多要分，另外再加。

Answer 1

MSFlexGrid.TextMatrix(1,1)=CStr(xlsheet.Cells(1, 1).Value)

Answer 2

MSFlexGrid控件绑定到data控件：Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(xlsPath.Text, True, False, "Excel 8.0")
Set rs ＝ db.OpenRecordset("Select * FROM [" & sSheetName & "$]")
Set Data1.Recordset ＝ rs

Answer 3

Dim VBExcel As Excel.Application
    Dim xlbook As Excel.Workbook '定义Excel工作簿对象
    Dim xlsheet As Excel.Worksheet '定义Excel工作表对象
    Set VBExcel = CreateObject("excel.application")
    VBExcel.Visible = False '根据操作人员是否需要见到Excel此处可设为TRUE或FALSE
    Set xlbook = VBExcel.Workbooks.Open(xlsPath.Text) 'ExcelFile为事先设计好的Excel模板文件，包括路径
    Set xlsheet = xlbook.Worksheets(1) '1为Excel模板工作表的index，或者用表名称，如：Sheet1
    xlsheet.Activate我每次执行完成后，怎么把他的进程关闭啊？
运行几次以后，系统进程里有一大堆的excel.exe死在里面??

Answer 4

Dim i, j As Integer
Dim iRows As Integer
Dim iCols As Integer
Dim jOut As Integer
Dim kOut As Integer
Dim objExcel As Excel.Application
Dim objWorkBook As Excel.Workbook
Dim objSheet As Excel.Worksheet
Dim objRange As Excel.Range
On Error GoTo err
    '将EXCEL表中的数据导入到网格控件中
    Set objExcel = New Excel.Application
    Set objWorkBook = objExcel.Workbooks.Open(txt_FileName.Text)
    Set objSheet = objWorkBook.ActiveSheet
    Set objRange = objSheet.UsedRange
    iRows = objRange.Rows.Count
    iCols = objRange.Columns.Count
    For jOut = 1 To iRows - 1
         For kOut = 1 To iCols
                With MSHFlexGrid1
                       .TextMatrix(jOut - 1, kOut - 1) = objSheet.Cells(jOut + 1, kOut)
                End With
         Next
                MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1
    Next
    objWorkBook.Close
    Set objSheet = Nothing
    Set objWorkBook = Nothing
    Set objExcel = Nothing
    '将网格控件中的内容存入数据库
    sql = "select* from Y_YSDWBH "
    Set rs = ExecuteSQL(sql)
    If rs.EOF Then
         For i = 0 To MSHFlexGrid1.Rows - 2
             rs.AddNew
             For j = 0 To 6
                  rs.Fields(j) = MSHFlexGrid1.TextMatrix(i, j)
                  Next j
                  rs.Update
         Next i
         MsgBox "报表数据已导入至数据库中！                 ", vbInformation + vbOKOnly, "提示"
         txt_FileName.Text = ""
         cmd_datain.Enabled = False
         Else
         MsgBox "导入过程中出现错误，请重新操作！                 ", vbCritical + vbOKOnly, "错误"
         sql = "delete from Y_YSDWBH "
         Set rs = ExecuteSQL(sql)
         txt_FileName.Text = ""
         cmd_datain.Enabled = False
         
    End If
    
err:
    
    txt_FileName.Text = ""
    cmd_datain.Enabled = False
    Exit Sub
    
我是这样做的，紧供参考