2024年4月5日发(作者：)
往链点点通共享资源，了解更多请登录
VB6.0 导出excel 方法源代码
方法一：
用Msflexgrid的Textmatrix属性取Msflexgrid中每一个单元格的内容，然后填到Excel表中，或者
写成CSV格式
方法二：
直接把查询结果导出成Excel工作表
Public Sub Export(formname As Form, flexgridname As String)
Dim xlApp As Object 'ation
Dim xlBook As Object 'ok
Dim xlSheet As Object 'eet
ointer = vbHourglass
On Error GoTo Err_Proc
Set xlApp = CreateObject("ation")
Set xlBook =
Set xlSheet = eets(1)
'Begin to fill data to sheet
Dim i As Long
Dim j As Integer
Dim k As Integer
With ls(flexgridname)
For i = 0 To .rows - 1
k = 0
For j = 0 To .Cols - 1
If .colwidth(j) > 20 Or .colwidth(j) < 0 Then
k = k + 1
(i + 1, k).Value = "'" & .TextMatrix(i, j)
End If
Next j
Next i
End With
e = True
ointer = vbDefault
Exit Sub
Err_Proc:
ointer = vbDefault
MsgBox "请确认您的电脑已安装Excel！", vbExclamation,"提示"
End Sub
===================================
Public Function ExporToExcel(strOpen As String)
'*********************************************************
'* 名称：ExporToExcel
'* 功能：导出数据到EXCEL
'* 用法：ExporToExcel(sql查询字符串)
'*********************************************************
Dim Rs_Data As New set
Dim Irowcount As Integer
Dim Icolcount As Integer
Dim cn As New tion
Dim xlApp As New ation
Dim xlBook As ok
Dim xlSheet As eet
Dim xlQuery As able
With Rs_Data
If .State = adStateOpen Then
.Close
End If
.ActiveConnection = "provider=msdasql;DRIVER=Microsoft Visual FoxPro Dri
ver;UID=;Deleted=yes;Null=no;Collate=Machine;BackgroundFetch=no;Exclusive=No;SourceType=DBF;
SourceDB=D:DBF;"
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.Source = strOpen
.Open
End With
With Rs_Data
If .RecordCount < 1 Then
MsgBox ("没有记录!")
Exit Function
End If
'记录总数
Irowcount = .RecordCount
'字段总数
Icolcount = .
End With
Set xlApp = CreateObject("ation")
Set xlBook = Nothing
Set xlSheet = Nothing
Set xlBook = oks().Add
Set xlSheet = eets("sheet1")
e = True
'添加查询语句，导入EXCEL数据
Set xlQuery = (Rs_Data, ("a1"))
ames = True '显示字段名
h
e = True
Set xlApp = Nothing '"交还控制给Excel
Set xlBook = Nothing
Set 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
ointer = 11
Dim Excelapp As ation
Set Excelapp = New ation
On Error Resume Next
DoEvents
InNewWorkbook = 1
(1, 3) = s
("C1").Select
yle = "Bold"
= 16
With Flex
k = .Rows
For i = 0 To k - 1
For j = 0 To .Cols - 1
DoEvents
(3 + i, j + 1) = "'" & .TextMatrix(i,
j)
Next j
Next i
End With
ointer = 0
e = True
review
Ert:
If Not (Excelapp Is Nothing) Then
End If
End Sub
一个按钮，点击出现对话框（对话框控件已经有），在硬盘里面查找excel文件（当然，后
缀名是xls了），找到目标excel文件后，该excel文件里面是一些数据，点击确定，就可
以把excel里面的内容保存到MSFlexGrid控件里面了
还有一个，按钮，点击后出现对话框，可以保存MSFlexGrid里面的东西到一个excel里面
谢谢大家了
用CommonDialog可以解决选定打开.xls文件问题 然后就是读取进去 哈哈 保存代码如下
'添加command控件一个 MSFlexGrid控件一个
Private Sub Command1_Click()
On Error Resume Next
Dim fileadd As String
en
= "xls文件(*.xls)|*.xls" '选择你要的文件
fileadd = me
= False '关闭表格重画，加快运行速度
Set xlApp = CreateObject("ation") '创建EXCEL对象
Set xlBook = (fileadd) '打开已经存在的EXCEL工件簿文件
e = True '设置EXCEL对象可见（或不可见）
Set xlsheet = eets("Sheet1") '设置活动工作表
For R = 0 To - 1 '行循环
For C = 0 To - 1 '列循环
= R
= C
eets("Sheet1").Cells(R + 1, C + 1) = '保存到EXCEL
Next C
Next R
= True
yAlerts = False '不进行安全提示
'Set xlsheet = Nothing
'Set xlBook = Nothing
'
'Set xlApp = Nothing
End Sub
往链点点通共享资源
-----------------------------
资料说明
-----------------------------
该资源由往链点点通搜索于网络公开资源，仅供网友浏览阅读，请勿用于商业用途；
往链点点通，是免费的新一代电脑管理、网络应用桌面软件。
通过简洁清爽并可随意切换的两种窗口操作界面，构建了用户、电脑、互联网之间顺畅
的入口平台。为用户管理电脑、智能办公、快捷上网、玩转应用（如 游戏，），提供全方位
一站式的服务。让用户只需通过往链点点通，就能便捷到达信息时代的各个角落。真正实现
一键直达，点点就通。
往链快搜索：无论是搜索硬盘资源、查找网络资源，还是追踪热门应用，都能享受前所
未所的快速度。如本地文件搜索，千万文件，零秒呈现；如网络搜索，只需输入一次关键词，
便能同步打开百度、google等多个搜索引擎的结果页；
往链优应用：与某些软件相比，往链点点通追求绿色无广告的体验，精选最优质的网络
应用，为用户提供纯净实在的生活、工作、学习、娱乐、休闲应用空间。
往链点点通，让您用windows的使用习惯享受苹果的操作体验！
查看和分享更多优质资源，请进入 下载往链点点通，找到您的一切网
络所需！
往链网址导航大全
往链点点通，让您无障碍畅游网络世界！
发布评论