九乡新闻网霸气的游戏广告词:ADO recordset保存为excel文件 (转)
来源：百度文库 编辑：九乡新闻网 时间：2024/04/28 16:14:18
怎样把ADO产生的recordset保存为excel文件
楼主qhzxcz（真想练练降龙十八掌）2001-11-23 15:12:38 在 VB / 基础类 提问问题点数：20、回复次数：1Top
1 楼foolishtiger（冬蛩）回复于 2001-11-23 15:46:56 得分 20
'要试用此例,请在窗体上加一个FlexGrid和一个按钮
'然后在代码窗体中粘贴如下代码
'在"应用"中请选择Microsoft Excel 8.0 Objects Library
Private Sub Command1_Click()
Dim lngRow As Long
Dim lngCol As Long
Dim lngN As Long
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
xlApp.WindowState = xlMaximized
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
For lngRow = 1 To MSFlexGrid1.Rows - 1
For lngCol = 1 To MSFlexGrid1.Cols - 1
xlSheet.Cells(lngRow, lngCol) = MSFlexGrid1.TextMatrix(lngRow, lngCol)
Next
Next
xlApp.Visible = True
Set xlApp = Nothing
End Sub
Private Sub Form_Load()
Me.MSFlexGrid1.TextMatrix(1, 1) = "adsf"
Me.MSFlexGrid1.TextMatrix(1, 2) = "4343"
Me.MSFlexGrid1.TextMatrix(1, 3) = "bvchy"
Me.MSFlexGrid1.TextMatrix(1, 4) = "2552525"
End SubTop