以下是我的代码,但只能导出MSHFlexGrid1中显示的数据,但MSHFlexGrid1中显示出来的不是所有数据
Private Sub Command11_Click()
On Error Resume Next
If MSHFlexGrid1.TextMatrix(1, 2) = "" Then
MsgBox "没有数据导出", vbInformation, "提示"
Exit Sub
End If
Dim excelApp As Excel.Application
Set excelApp = New Excel.Application
Set excelApp = CreateObject("Excel.Application")
Dim exbook As Excel.Workbook
Dim exsheet As Excel.Worksheet
Set exbook = excelApp.Workbooks.Add
excelApp.SheetsInNewWorkbook = 1
excelApp.Visible = False '是否显示导出过程(true是)
excelApp.UserControl = True
Me.MousePointer = vbHourglass '控制鼠标为读取数据
With excelApp.ActiveSheet
.Range("h1:h1") = "报表日期:" & Format$(Date, "yyyy-mm-dd")
End With
With excelApp.ActiveSheet
.Range("a1:a1") = "代码"
.Range("b1:b1") = "拼音码"
.Range("c1:c1") = "人员名称"
.Range("d1:d1") = "工作类型"
.Range("e1:e1") = "部门代码"
.Range("f1:f1") = "部门名称"
End With
With excelApp.ActiveSheet
.Cells(2).ColumnWidth = 8 '第一列
.Cells(3).ColumnWidth = 8 '第二列
.Cells(4).ColumnWidth = 8 '第三列
.Cells(5).ColumnWidth = 8 '第四列
.Cells(6).ColumnWidth = 8 '第五列
.Cells(7).ColumnWidth = 16 '第六列
End With
With excelApp.ActiveSheet
For i = 1 To MSHFlexGrid1.Rows
For j = 1 To MSHFlexGrid1.Cols
.Cells(i + 1, j).Value = "" & Format$(MSHFlexGrid1.TextMatrix(i, j))
Next j
Next i
End With
With excelApp
abc = Format$(Date, "yyyymmdd") & "人员信息表"
aa = .Dialogs(xlDialogSaveAs).Show(abc) '
.Workbooks(1).Saved = True '不提示保存对话框
End With
Me.MousePointer = 0 '释放鼠标为读取数据
exbook.Close (True) '关闭EXBOOK
excelApp.Quit '退出
Set exsheet = Nothing '释放EXCEL
Set exbook = Nothing '释放EXCEL
Set excelApp = Nothing '释放EXCEL
MsgBox "导出成功!", vbOKOnly + vbInformation, "消息提示"
End Sub
'这个是增加至ListView中的.
Private Sub Command1_Click()
Dim Item As ListItem
ListView1.View = lvwReport
For i = 1 To MSHFlexGrid1.Cols - 1
ListView1.ColumnHeaders.Add , , "第" & i & "列"
Next
For i = 1 To MSHFlexGrid1.Rows - 1
Set Item = ListView1.ListItems.Add(, , MSHFlexGrid1.TextMatrix(i, 1))
For j = 2 To MSHFlexGrid1.Cols - 1
Item.SubItems(j - 1) = MSHFlexGrid1.TextMatrix(i, j)
Next
Next
End Sub
'这个是增加至List1中的,因List1中只能有一列,所以就只增加MSHFlexGrid1的第一列
Private Sub Command2_Click()
For i = 1 To MSHFlexGrid1.Rows - 1
list1.AddItem MSHFlexGrid1.TextMatrix(i, 1)
Next
End Sub