- 1、本文档共10页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB导出EXCEL的代码
准备工作,引用EXCEL11.0,与一个grid1控件和一个adodc1控件。以下为导出EXCEL以下放到form中去。Adodc1.connectionstring = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= + App.Path + \pmdb.mdb;Persist Security Info=False 设置数据库路径Adodc1.CommandType = adCmdText 设置记录源Adodc1.RecordSource = select * from new ORDER BY 好友姓名Set Grid1.DataSource = Adodc1以下放到代码框的最前面。Private Sub toexcel()On Error GoTo aa:Dim i, j As IntegerDim ex As ObjectDim exwbook As ObjectDim exsheet As ObjectSet ex = CreateObject(Excel.Application) 创建EXCEL对象Set exwbook = ex.Workbooks.Add 打开文件ex.Visible = TrueSet exsheet = exwbook.Worksheets(sheet1) 设定工作表For i = 1 To Grid1.RowsFor j = 1 To Grid1.Cols - 1exsheet.Cells(i, j) = Grid1.TextMatrix(i - 1, j)Next jNext iaa:Exit SubEnd Sub以下放到一个导出按钮上去就行了。Call toexcel
?? 14 .0 Object Library,然后选择确定。表示在工程中要引用EXCEL类型库。
??? 然后就是实现从MSHFlexGrid控件中将数据导出到EXCEL表中(注意:MSHFlexGrid控件是从第0行,第0列开始的,而EXCEL却是从第1行,第1列开始的)。代码如下:?
[vb] view plaincopyprint?
Dim?i?As?Long????Dim?j?As?Long??
????If?myFlexGrid.TextMatrix(1,?0)?=??Then??
????????MsgBox?没有数据导出,?vbInformation,?提示??
????????Exit?Sub??
????End?If??
创建一个Application对象 ??
????Dim?excelApp?As?Excel.Application??
????Set?excelApp?=?New?Excel.Application??
绑定 ??
????Set?excelApp?=?CreateObject(Excel.Application)??
向Excel中写入数据 ??
????Dim?exbook??As?Excel.Workbook??
????Dim?exsheet??As?Excel.Worksheet??
????Set?exbook?=?excelApp.Workbooks.Add??
????excelApp.SheetsInNewWorkbook?=?1??
设置为可见 ??
????excelApp.Visible?=?True??
将控件MSHFlexGrid显示的内容写入Excel中 ??
????With?excelApp.ActiveSheet??
????????For?i?=?1?To?myFlexGrid.Rows??
????????????For?j?=?1?To?myFlexGrid.Cols??
????????????????.Cells(i,?j).Value?=???Format$(myFlexGrid.TextMatrix(i?-?1,?j?-?1))??
????????????Next?j??
????????Next?i??
????End?With??
????清空并关闭 ??
????Set?exsheet?=?Nothing??
????Set?exbook?=?Nothing??
????Set?excelApp?=?Nothing??
Dim i As Long Dim j As Long
If myFlexGrid.TextMatrix(1, 0) = Then
MsgBox 没有数据导出, vbInformation, 提示
Exit Sub
End If
您可能关注的文档
- NET中异常处理最佳实践.doc
- nurbiya小数的初步认识说课稿.doc
- OOAD课程设计试验报告.docx
- Objective-C与Runtime为什么是这样.docx
- Oracle_DBA面试题1.doc
- OpenLDAP使用疑惑解答及使用Java完成LDAP身份认证.doc
- Oracle数据库备份与恢复doc.doc
- Oracle经验分享-备份.doc
- LTE质差小区处理指导书.docx
- PIMCO英国脱欧雷声大雨点小,不会酿成全球性风险.docx
- [吉林]2023年吉林省直中小学“强师”招聘34人笔试历年高频考点(难、易错点)附带答案详解.docx
- [台州]浙江台州市黄岩区市场监督管理局招聘编外工作人员笔试历年高频考点(难、易错点)附带答案详解.docx
- [台州]浙江台州市建设工程质量检测中心招聘编制外用工4人笔试历年高频考点(难、易错点)附带答案详解.docx
- [台州]浙江台州椒江区大陈镇综合执法队招聘笔试历年高频考点(难、易错点)附带答案详解.docx
- [合肥]2023年安徽合肥市公安局第二批招聘警务辅助人员543人笔试历年高频考点(难、易错点)附带答案详解.docx
- [吉安]2023年江西吉安市大学生乡村医生专项招聘笔试历年高频考点(难、易错点)附带答案详解.docx
- [吉安]2024年江西吉安市中心人民医院招聘卫生专业技术人才73人笔试历年高频考点(难、易错点)附带答案详解.docx
- [合肥]2023年安徽医科大学管理岗和专业技术辅助岗招聘46人笔试历年高频考点(难、易错点)附带答案详解.docx
- [吉安]江西吉安市青原区人民医院人才引进笔试历年高频考点(难、易错点)附带答案详解.docx
- [台州]浙江台州温岭市交通运输局招聘编外人员笔试历年高频考点(难、易错点)附带答案详解.docx
文档评论(0)