VB6[1].0_导出excel_方法源代码-.pdf

《VB6[1].0_导出excel_方法源代码-.pdf》由会员分享，可在线阅读，更多相关《VB6[1].0_导出excel_方法源代码-.pdf（5页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、往链点点通共享资源，了解更多请登录www.WLVB6.0 导出 excel 方法源代码方法一：用 Msflexgrid的 Textmatrix 属性取 Msflexgrid 中每一个单元格的内容，然后填到Excel 表中，或者写成 CSV 格式方法二：直接把查询结果导出成Excel 工作表Public Sub Export(formname As Form,flexgridname As String)Dim xlApp As Object Excel.Application Dim xlBook As Object Excel.Workbook Dim xlSheet As Object E

2、xcel.Worksheet Screen.MousePointer =vbHourglass On Error GoTo Err_Proc Set xlApp =CreateObject(Excel.Application)Set xlBook =xlApp.Workbooks.Add Set xlSheet =xlBook.Worksheets(1)Begin to fill data to sheet Dim i As Long Dim j As Integer Dim k As Integer With formname.Controls(flexgridname)For i =0 T

3、o .rows -1 k =0 For j =0 To .Cols -1 If .colwidth(j)20 Or .colwidth(j)0 Then k =k +1 xlSheet.Cells(i +1,k).Value =&.TextMatrix(i,j)End If Next j Next i End With xlApp.Visible =True Screen.MousePointer =vbDefault Exit Sub Err_Proc:Screen.MousePointer =vbDefault MsgBox 请确认您的电脑已安装Excel！,vbExclamation,提

4、示 End Sub=Public Function ExporToExcel(strOpen As String)*名称：ExporToExcel *功能：导出数据到EXCEL *用法：ExporToExcel(sql查询字符串)*Dim Rs_Data As New ADODB.Recordset Dim Irowcount As Integer Dim Icolcount As Integer Dim cn As New ADODB.Connection Dim xlApp As New Excel.Application Dim xlBook As Excel.Workbook Dim

5、xlSheet As Excel.Worksheet Dim xlQuery As Excel.QueryTable With Rs_Data If .State =adStateOpen Then .Close End If .ActiveConnection =provider=msdasql;DRIVER=Microsoft Visual FoxPro Driver;UID=;Deleted=yes;Null=no;Collate=Machine;BackgroundFetch=no;Exclusive=No;SourceType=DBF;SourceDB=D:DBF;.CursorLo

6、cation =adUseClient .CursorType =adOpenStatic .Source =strOpen .Open End With With Rs_Data If .RecordCount 1 Then MsgBox (没有记录!)Exit Function End If 记录总数Irowcount =.RecordCount 字段总数Icolcount =.Fields.Count End With Set xlApp =CreateObject(Excel.Application)Set xlBook =Nothing Set xlSheet =Nothing Se

7、t xlBook =xlApp.Workbooks().Add Set xlSheet =xlBook.Worksheets(sheet1)xlApp.Visible =True 添加查询语句，导入EXCEL 数据Set xlQuery =xlSheet.QueryTables.Add(Rs_Data,xlSheet.Range(a1)xlQuery.FieldNames =True 显示字段名xlQuery.Refresh xlApp.Application.Visible =True Set xlApp =Nothing 交还控制给 Excel Set xlBook =Nothing Se

8、t xlSheet =Nothing End Function =*名称：OutDataToExcel *功能：将 MsFlexGrid控件中显示的内容输出到Excel 表格中进行打印*Public Sub OutDataToExcel(Flex As MSFlexGrid)导出至 Excel Dim s As String Dim i As Integer Dim j As Integer Dim k As Integer On Error GoTo Ert Me.MousePointer =11 Dim Excelapp As Excel.Application Set Excelapp

9、=New Excel.Application On Error Resume Next DoEvents Excelapp.SheetsInNewWorkbook =1 Excelapp.Workbooks.Add Excelapp.ActiveSheet.Cells(1,3)=s Excelapp.Range(C1).Select Excelapp.Selection.Font.FontStyle =Bold Excelapp.Selection.Font.Size =16 With Flex k =.Rows For i =0 To k -1 For j =0 To .Cols -1 Do

10、Events Excelapp.ActiveSheet.Cells(3 +i,j +1)=&.TextMatrix(i,j)Next j Next i End With Me.MousePointer =0 Excelapp.Visible =True Excelapp.Sheets.PrintPreview Ert:If Not (Excelapp Is Nothing)Then Excelapp.Quit End If End Sub 一个按钮，点击出现对话框（对话框控件已经有），在硬盘里面查找excel 文件（当然，后缀名是 xls 了），找到目标excel 文件后，该excel 文件里

11、面是一些数据，点击确定，就可以把 excel 里面的内容保存到MSFlexGrid控件里面了还有一个，按钮，点击后出现对话框，可以保存MSFlexGrid里面的东西到一个excel 里面谢谢大家了用 CommonDialog可以解决选定打开.xls 文件问题然后就是读取进去哈哈保存代码如下添加 command控件一个MSFlexGrid控件一个Private Sub Command1_Click()On Error Resume Next Dim fileadd As String CommonDialog1.ShowOpen CommonDialog1.Filter=xls文件(*.xls)

12、|*.xls 选择你要的文件fileadd=CommonDialog1.FileName MSHFlexGrid1.Redraw=False 关闭表格重画，加快运行速度Set xlApp=CreateObject(Excel.Application)创建 EXCEL 对象Set xlBook=xlApp.Workbooks.Open(fileadd)打开已经存在的EXCEL 工件簿文件xlApp.Visible=True 设置 EXCEL 对象可见（或不可见）Set xlsheet=xlBook.Worksheets(Sheet1)设置活动工作表For R=0 To MSHFlexGrid1.

13、Rows-1 行循环For C=0 To MSHFlexGrid1.Cols-1 列循环MSHFlexGrid1.Row=R MSHFlexGrid1.Col=C xlBook.Worksheets(Sheet1).Cells(R+1,C+1)=MSHFlexGrid1.Text 保存到 EXCEL Next C Next R MSHFlexGrid1.Redraw=True xlApp.DisplayAlerts=False 不进行安全提示Set xlsheet=Nothing Set xlBook=Nothing xlApp.Quit Set xlApp=Nothing End Sub往链

14、点点通共享资源-资料说明-该资源由往链点点通搜索于网络公开资源，仅供网友浏览阅读，请勿用于商业用途；往链点点通，是免费的新一代电脑管理、网络应用桌面软件。通过简洁清爽并可随意切换的两种窗口操作界面，构建了用户、电脑、互联网之间顺畅的入口平台。为用户管理电脑、智能办公、快捷上网、玩转应用（如游戏，），提供全方位一站式的服务。让用户只需通过往链点点通，就能便捷到达信息时代的各个角落。真正实现一键直达，点点就通。往链快搜索：无论是搜索硬盘资源、查找网络资源，还是追踪热门应用，都能享受前所未所的快速度。如本地文件搜索，千万文件，零秒呈现；如网络搜索，只需输入一次关键词，便能同步打开百度、google 等多个搜索引擎的结果页；往链优应用：与某些软件相比，往链点点通追求绿色无广告的体验，精选最优质的网络应用，为用户提供纯净实在的生活、工作、学习、娱乐、休闲应用空间。往链点点通，让您用windows 的使用习惯享受苹果的操作体验！查看和分享更多优质资源，请进入www.WL下载往链点点通，找到您的一切网络所需！往链网址导航大全往链点点通，让您无障碍畅游网络世界！