怎样把DATAGRID的控件显示的内容导入EXCEL里,谢谢

CriedSky 2003-08-20 04:23:46

如题~~

...全文

27 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

lihonggen0 2003-08-20

打赏
举报

将RS记录集的数据导出Excel
http://www.csdn.net/develop/read_article.asp?id=14952

CriedSky 2003-08-20

打赏
举报

datagrid没有ROWS，TextMatrix的属性啊，：（

饮水需思源 2003-08-20

打赏
举报

'建立一模块
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 'Excel.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 To .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, Ts

End Sub

'要导出时引用：
call export(me,"datagrid")