首尔世宗酒店 地铁:用MSHFLEXGRID控件显示的数据导出到EXCEL

来源：百度文库 编辑：偶看新闻 时间：2024/07/04 05:44:01

用MSHFLEXGRID控件显示的数据导出到EXCEL

(2006-01-18 16:28:14) 转载▼分类： 【VisualBasic源码】 郴郴：仅供参考  Dim xlsRowCount As Integer, xlsColCount As Integer '生成的表格的行数和列数
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Dim xlsSheet As Excel.Worksheet
Dim i, j As Long
Set xlsApp = CreateObject("Excel.Application")
Set xlsBook = xlsApp.Workbooks.Add
Set xlsSheet = xlsBook.Worksheets(1)
On Error Resume Next
xlsRowCount = MSHFlexGrid1.Rows
xlsColCount = MSHFlexGrid1.Cols


With xlsSheet
'设置电子表格各列的宽度
For i = 1 To xlsColCount - 1
Columns(i).ColumnWidth = 5 '每一个汉字大概占2的宽度（在默认的12号字的情况下）

Next


'设置电子表格各行的高度
For i = 1 To xlsRowCount - 1
.Rows(i).RowHeight = 18
Next

'把MSFlexGrid1的内容写入到电子表格中
For i = 0 To xlsRowCount - 1
For j = 0 To xlsColCount - 1
.Cells(i + 1, j + 1).Value = MSHFlexGrid1.TextMatrix(i, j + 1)
Next
Next
End With

xlsApp.Visible = True '显示电子表格
'xlsBook.SaveAs App.Path & "\Test.xls" '保存，如果不指定保存路径及文件名，则默认存到“我的文档”下 Book1.xls
Set xlsApp = Nothing '交还控制给Excel
我的MSHFlexGrid已与adodc控件相连，但是如何通过他向数据库导入数据？ vb的MSHFlexGrid控件表格大小问题 VB控件mshflexgrid 关于VB MSHFlexGrid控件的使用.我头都大了. 关于修改MSHFlexGrid控件中内容的问题 VC++ 关于编辑框控件数据显示的问题,求教? 怎么用vb6.0的mscomm控件来接收单片机传送的数据。并且把数据显示出来。谢谢啊 vb中的MSHFlexGrid控件的选中一行或一列的事件是什么？ 关于VB mshflexgrid控件,查询表时0列不写入的问题 请问VB6.0中 添加的表格控件(MSHFlexgrid)在哪呀?找不到. 用vb 如何搜索数据库后能够显示搜索到数据的图片，求VB代码和控件 在PB 的标签控件中能不能加入数据窗口控件连接数据库显示数据?如果可以该在哪里写代码检索数据? 数据能查出,为什么不能写入MSHFlexGrid Dlephi7中 Demension（Decision）控件与ADO控件组合使用的问题？不能完全显示数据！ VB中mshflexgrid控件的不同行的单元格之间如何连线?希望大哥大姐们给予帮助!谢谢!急 在C#下textbox控件能显示已绑定的某列中特定条件的数据吗？ 如何将vb DataGrid 控件中每一列显示的相同数据屏蔽掉 使用mshflexgrid，如何将新添加的记录显示在第一行？ VB中MSHFlexGrid的问题 vb.net中的DataGrid控件显示不了数据了 pb数据窗口控件的问题？ vb中如何用winsock控件或是别的控件从网卡上读取图像数据并显示，请给出详细的程序 JBuilder 控件显示的问题 怎样把ACCESS表格里的数据单列显示在TEXTBOX控件里等相关问题,很急!