首先在VB中要想调用Excel,需要打开VB编程环境“工程”菜单中的“引用”项目,并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同,所以这个选项的版本号也是不同的。
Private Sub cmdExp_Click()
Dim newxls As Excel.Application
Dim newbook As Excel.Workbook
Dim newsheet As Excel.Worksheet
Dim i, j As Long
Set newxls = CreateObject("Excel.Application") '创建excel应用程序,打开excel
Set newbook = newxls.Workbooks.Add '创建工作簿
Set newsheet = newbook.Worksheets(1) '创建工作表
With newxls
.Rows(1).Font.Bold = True
End With
On Error Resume Next '如果有错误继续执行下一条
For i = 0 To grid.Rows
For j = 0 To grid.Cols
newsheet.Cells(i + 1, j + 1) = "'" & grid.TextMatrix(i, j)
Next j
Next i
newxls.Visible = True
newxls.ActiveWorkbook.SaveAs ("c:\22.xls")
On Error GoTo 0
Set newxls = Nothing
End Sub
相关推荐
很好的使用WINCC编写VBS脚本,从而可以读写EXCLE,与EXCEL进行通讯
将MSFlexGrid表格数据导出到EXCEL。 考虑到表格数据行列数较多的情况,不用FOR循环,导出速度明显快很多。
VB中如何将MSFlexGrid数据导入到Excel中.txt
VB导出EXCEL属性
VB60_导出excel_方法源代码 方法一: 用Msflexgrid的Textmatrix属性取Msflexgrid中每一个单元格的内容,然后填到Excel表中,或者写成CSV格式 方法二: 直接把查询结果导出成Excel工作表
VC++ Access导入与导出Excel,自动获取Access地址,Excel与Aceess不在同一个目录下也可以正确的导入,防止msflexgrid闪烁等。示例中附有详细说明。
vb导出到Excel,代码可以正确执行,可是导入一次后,就不行了,关闭程序,在运行则可以
快速将数据从MSFLEXGRID控件导出到EXCEL(保证比那些一格一格写数据的要快的多), 快速将数据从EXCEL导入到MSFLEXGRID控件(同上) 如何通过剪贴板将数据在程序和EXCEL中相互粘贴(这下用户可以直接和EXCEL互动了) 如何...
调用Excel的课程表程序本例是先将数据库里的数据查询出来,用MSFlexGrid表格控件显示,然后将它导出'/////先引用execl9.0(VB6.0源代码编写)Dim excelApp As Excel.Workbook
Excel导入,Excel导出,MSFlexGrid支持滚轮
利用ADO对象和SQL语言查询Access数据库,汇总数据后显示在MSFlexGrid中,再导出为Excel文件
系统登录、操作员权限设置、连接加密的Access数据库(方法一)、将硬盘文件目录转为数据库数据、将数据库文件转换为文本文件、将Access导出成多种数据格式、将数据库文件转成HTML并设置超级链接、利用Word统计字数和...
这是一款完美解决VB中MSHFlexGrid/MSFlexGrid/VSFlexGrid/DataGrid等表格组件打印输出功能的专门控件。...在不需要Excel运行库的环境下支持将数据快速导出为Excel工作簿。还有更多功能等待您的挖掘与发现
系统登录、操作员权限设置、连接加密的Access数据库(方法一)、将硬盘文件目录转为数据库数据、将数据库文件转换为文本文件、将Access导出成多种数据格式、将数据库文件转成HTML并设置超级链接、利用Word统计字数和...
02.zip 将MDB文件导出为多种格式文件,如:DBF,TXT等(3KB) 36,d021_mdbto.zip 范例-如何在 MSFlexGrid 中输入资料(3KB) 37,d020_sqlcount.zip SQL计数的例子(6KB) 38,d019_xlstomdb.zip 如何...