Public Sub Export(frmName As Form, FlexGridName As String)
Dim xlApp As Object 'Excel.Application
Dim xlBook As Object 'Excel.Workbook
Dim xlSheet As Object 'Excel.Worksheet
Screen.MousePointer = vbHourglass
On Error GoTo Err_Proc
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
'向表中添加数据
Dim intRowIndex As Integer
Dim intColIndex As Integer
With frmName.Controls(FlexGridName) '查找控件
'填充数据到Sheet1
For intRowIndex = 0 To .Rows - 1
For intColIndex = 0 To .Cols - 1
xlSheet.Cells(intRowIndex + 1, intColIndex + 1).Value = "'" & .TextMatrix(intRowIndex, intColIndex)
Next intColIndex
Next intRowIndex
End With
xlApp.Visible =
【代码】VB导出Excel
最新推荐文章于 2016-11-15 14:39:16 发布
这段VB代码展示了如何从表单中的控件MSHFlexGrid导出数据到新的Excel工作簿。通过创建Excel应用程序对象,添加工作簿和工作表,然后遍历网格中的单元格填充数据,最后使Excel可见。
摘要由CSDN通过智能技术生成