读取Excel内容到MSHFlexgrid

Public Sub ExcelToMshfgrd(FileName As String, ByRef RowCount As Integer, ByRef ColCount As Integer, mshg As MSHFlexGrid)                      '直接导入Excel内容到MshFlexGrid

        
         If InStr(FileName, ".xls") = 0 Then
            MsgBox "请选择 Excel 文件", vbInformation, "请选择正确文件格式"
            Exit Sub
         End If
        
          Dim oExcel     As Excel.Application         '用前期绑定
          Set oExcel = New Excel.Application
   
          Dim wsBook     As Workbook         '定义工作簿
          Dim wsSheet     As Worksheet     '定义工作表
          With oExcel
                  .Visible = False
                  Set wsBook = .ActiveWorkbook
                  Set wsBook = .Workbooks.Open(FileName)
                  Set wsSheet = .ActiveWorkbook.Sheets(1)    '读取 Sheet1的数据
          End With