读取Excel内容到MSHFlexgrid
来源:互联网 发布:sql基础语言 编辑:程序博客网 时间:2024/06/04 22:35
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
'读取的Excel,基本格式为 第一行: 主标题 ,第二行 列标题 ,第三行开始正式内容
With wsSheet
' If .Cells(1, 1) = "" Then '对第一行内容进行检测,也可忽略
' MsgBox "请从第一个单元格开始填写数据", vbOKOnly
' Exit Sub
' End If
.Cells(1, 1).Select
'可对列数进行限定,防止取回列数与所需不符
' If ColCount = .Cells.CurrentRegion.Columns.count Then
'
' End If
RowCount = .Cells.CurrentRegion.Rows.count
ColCount = .Cells.CurrentRegion.Columns.count
With mshg
.MergeCells = flexMergeRestrictRows '
.MergeRow(0) = True '合并主标题
.Rows = RowCount '+ 1
.Cols = ColCount + 1
For i = 1 To ColCount
.TextMatrix(0, i) = wsSheet.Cells(1, 1) '读取主标题
.TextMatrix(1, i) = wsSheet.Cells(2, i) '读取列标题
Next
For i = 3 To RowCount '读取选择的内容
.TextMatrix(i - 1, 0) = i - 2 '读取行数
For j = 1 To ColCount
.TextMatrix(i - 1, j) = wsSheet.Cells(i, j)
Next
Next
End With
End With
wsBook.Close False
oExcel.Quit '退出
'释放内存
If Not (wsBook Is Nothing) Then
Set wsBook = Nothing
End If
If Not (wsSheet Is Nothing) Then
Set wsSheet = Nothing
End If
If Not (oExcel Is Nothing) Then
Set oExcel = Nothing
End If
End Sub
- 读取Excel内容到MSHFlexgrid
- MSHFlexgrid控件的内容导出到Excel
- 读取excel内容到数据库
- VB的MSHFlexGrid控件内容导入Excel
- vb中MSHFlexGrid控件导出到Excel
- 【VB】MSHFlexGrid表格数据导出到Excel
- 读取Excel文件内容到DataSet
- 从Excel中读取内容到java
- 如何将MSHFlexGrid控件中的内容导出为Excel
- vb6如何将MSHFlexGrid控件中的内容导出为Excel
- 用MSHFLEXGRID控件显示的数据导出到EXCEL
- 将MSHFlexGrid控件表格的数据导入到Excel
- VB 将MSHFlexGrid中数据导出到Excel
- 将MSHFlexGrid中的查询结果导出到excel
- 将VB中MSHFlexGrid控件中的数据导入到Excel
- 将MSHFlexGrid控件中的数据导入到Excel中
- VB将MSHFlexGrid中数据导出到Excel中
- 将MSHFlexGrid中的数据保存到Excel表
- Perl 判斷輸入是否為數字,是奇數還是偶數
- System.String.Format
- 开始学习c语言
- 性别(0,1)转为(男,女)的方法总结
- 中国大学生泪别“精英时代”
- 读取Excel内容到MSHFlexgrid
- 再次增强反射类库,可读取调试信息
- 什么是VPN
- .net中URL路径的基本使用
- Div+CSS布局入门教程(一)
- 开始Python -- String处理(1)
- JAVA文件操作
- bzImage的概要生成过程
- 在linux中定时调用Java程序