VB导出EXCEL的代码.doc

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