高难问题,关于VB中MSHFlexGrid直接导到Excel里面.

[cold519]

各位好,我用的是SQL200数据库,MSHFLEXGrid的数据是用了数据库一个存储过读直接取得的,请问各位怎样才能把MSHFLEXGrid的中数据原来导到Excel表里呢

[sektor]

引用excel
给你个函数

Public Function ExportToExcel3() As Long
Dim uExcel As Excel.Application
Dim uExcelBook As Excel.Workbook
Dim intList, intI, intJ As Integer 'intRow 行，intList 列
Dim intRow As Long
On Error GoTo ErrorHandler
Dim connstr As String
Dim sqlstr As String
Dim conn As ADODB.Connection
Dim rsxx As ADODB.Recordset
Set conn = New ADODB.Connection
Set rsxx = New ADODB.Recordset
Dim s As String
s = "Provider=MSDAORA.1;Password=XXXX;User ID=XXXX;Data Source=ORCL;Persist Security Info=True"
conn.ConnectionString = s
conn.CommandTimeout = 30
conn.CursorLocation = adUseClient
conn.Open
sqlstr = "select * from MAX_CLASS_SERIAL where SUBSTR(CLS_NO,length(CLS_NO),1)=' 'or MAX_SERIAL='0'"

rsxx.Open sqlstr, conn, adOpenStatic, adLockOptimistic

If Not rsxx.BOF And Not rsxx.EOF Then intRow = rsxx.RecordCount
intList = 3 '列数固定为5列
If intRow > 0 Then
Set uExcel = New Excel.Application
uExcel.Visible = True
uExcel.SheetsInNewWorkbook = 1
Set uExcelBook = uExcel.Workbooks.Add '打开Excel
'边框设置
With uExcel.ActiveSheet.Range("A1:K" & (intRow + 1) & "").Borders
.LineStyle = 1
.Weight = xlThin
.ColorIndex = 1
End With
uExcel.ActiveSheet.Rows.HorizontalAlignment = xlVAlignCenter '水平居中
uExcel.ActiveSheet.Rows.VerticalAlignment = xlVAlignCenter '垂直居中
'设置第一行标题
With uExcel.ActiveSheet
.Cells(1, 1).Value = "种次号"
.Cells(1, 2).Value = "最大号"
End With
End If
'填充数据行
intI = 2
rsxx.MoveFirst
Do While Not (rsxx.EOF)
With uExcel.ActiveSheet
.Cells(intI, 1).Value = rsxx(2)
.Cells(intI, 2).Value = rsxx(4)
End With
intI = intI + 1
rsxx.MoveNext
Loop
rsxx.Close
Set rsxx = Nothing
conn.Close
Set uExcel = Nothing
Set uExcelBook = Nothing
ExportToExcel3 = 1
Exit Function
ErrorHandler:
ExportToExcel3 = 0
End Function

[cold519]

我用的是存储过程，但谢谢你的