读取Excel内容到MSHFlexgrid

最新推荐文章于 2020-06-23 18:15:57 发布

原创

最新推荐文章于 2020-06-23 18:15:57 发布 · 1.2k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#excel #integer #工作 #string

这个VBA子程序演示了如何从Excel文件中读取内容并将其直接填充到MSHFlexgrid控件中。通过创建Excel应用程序实例，打开指定的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.Sheet