MSHFlexgrid控件的内容导出到Excel
发布时间:2020-12-15 04:01:23 所属栏目:百科 来源:网络整理
导读:? ? ? ?做了机房收费系统后发现有一个功能块是几乎不用动的,那就是到处excel,原谅我只是打了一遍,因为我发现每次都是不用变的,下面就把这段代码分享给大家。 Dim newXls As Excel.Application Dim newsheet As Excel.Worksheet Dim newBook As Excel.Work
? ? ? ?做了机房收费系统后发现有一个功能块是几乎不用动的,那就是到处excel,原谅我只是打了一遍,因为我发现每次都是不用变的,下面就把这段代码分享给大家。
Dim newXls As Excel.Application Dim newsheet As Excel.Worksheet Dim newBook As Excel.Workbook Dim X As Integer Dim Y As Integer Dim txtSQL As String Dim Msgtext As String Dim mrc As ADODB.Recordset txtSQL = "select * from line_info where card_id= '" & Trim(txtCardno.Text) & "'" Set mrc = ExecuteSQL(txtSQL,Msgtext) If mrc.RecordCount = 0 Then MsgBox "没有要导出的记录",vbOKOnly + vbExclamation,"警告" Else Set newXls = CreateObject("excel.Application") ' Set newsheet = newBook.Worksheets Set newBook = newXls.Workbooks.Add '创建工作簿 Set newsheet = newBook.Worksheets(1) '创建工作表 For X = 1 To MyFlexGrid.Rows For Y = 1 To MyFlexGrid.Cols newsheet.Cells(X,Y) = "'" & MyFlexGrid.TextMatrix(X - 1,Y - 1) Next Y Next X newXls.Visible = True Set newXls = Nothing End If End Sub貌似就是这样都不用改吧,方法还有很多,希望大家多多提意见啊 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |