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