vb中导成excel报表问题，请教高手.

Question

小弟帮客户用在vb中将查询得到的RS导成excel报表，调试中碰到几个问题
1.有些客户的机上由于未装excel, 因而在导出的时候弹出automation出错的对话框，问题是有的客户机上并不一定安装excel，请问在这种情况下有没有办法导出excel.
2.导的过程中，如果数据超过500条，程序就会象死机一样，是不是程序有问题，有没有什么优化的方法？

Answer 1

安装 mdac 2.7 以上版本

Answer 2

1。用Excel做报表，一定要安装Excel或将Excel的类库打包，否则就会出现上述错误。
2。导数据的方法是可以优化的：a.没有导完数据以前不要显示Excel界面。b.使用past方法将数据贴到excel上。c.使用VBA建立Excel模板和巨集。

Answer 3

2。导数据的方法是可以优化的：a.没有导完数据以前不要显示Excel界面。b.使用past方法将数据贴到excel上。c.使用VBA建立Excel模板和巨集请sqfeiyu能否解释一下，新手不是很了解～～

Answer 4

2。导数据的方法是可以优化的：a.没有导完数据以前不要显示Excel界面。b.使用past方法将数据贴到excel上。c.使用VBA建立Excel模板和巨集请sqfeiyu能否解释一下，新手不是很了解～～

Answer 5

'*************************************************************************
'**
'** VB将数据导出到EXCEL,没有安装EXCEL的一样也可以导出.
'**
'** 调用方式: s_Export2Excel(Ado.Recordset) 或 s_Export2Excel(Rds.RecordSet)
'** 支持 Rds 与 Ado 的记录导出
'**
'*************************************************************************
'得到所有数据类型,有些数据类型EXCEL不支持,已经替换掉
Public Function f_FieldType$(ByVal sType&)
    Dim iRe$
    Select Case sType
        Case 2, 3, 20
            iRe = "int"
        Case 5
            iRe = "float"
        Case 6
            iRe = "money"
        Case 131
            iRe = "numeric"
        Case 4
            iRe = "real"
        Case 128
            iRe = "binary"
        Case 204
           iRe = "varbinary"
        Case 11
            iRe = "bit"
        Case 129, 130
            iRe = "char"
        Case 17, 72, 131, 200, 202, 204
            iRe = "varchar"
        Case 201, 203
            iRe = "text"
        Case 7, 135
            iRe = "datetime"
        Case 205
            iRe = "image"
        Case 128
            iRe = "timestamp"
    End Select
    f_FieldType = iRe
End Function

Answer 6

'导出ADO记录集到EXCEL
Public Function f_Export2Excel(ByVal sRecordSet As ADODB.Recordset, ByVal sExcelFileName$ _
        , Optional ByVal sTableName$, Optional ByVal sOverExist As Boolean = False) As Boolean
    
    'On Error GoTo lbErr
    
    Dim iConcStr, iSql$, iFdlist$, iDB As ADODB.Connection
    Dim iI&, iFdType$, j, TmpField, FileName
    Dim iRe As Boolean    
    '检查文件名
    If Dir(sExcelFileName) <> "" Then
        If sOverExist Then
            Kill sExcelFileName
        Else
            iRe = False
            GoTo lbexit
        End If
    End If
    
    '生成创建表的SQL语句
    With sRecordSet
        For iI = 0 To .Fields.Count - 1
            iFdType = f_FieldType(.Fields(iI).Type)
            Select Case iFdType
                Case "char", "varchar", "nchar", "nvarchar", "varbinary"
                    If .Fields(iI).DefinedSize > 255 Then
                        iSql = iSql & ",[" & .Fields(iI).Name & "] text"
                    Else
                        iSql = iSql & ",[" & .Fields(iI).Name & "] " & iFdType & _
                            "(" & .Fields(iI).DefinedSize & ")"
                    End If
                Case "image"
                Case Else
                    iSql = iSql & ",[" & .Fields(iI).Name & "] " & iFdType
            End Select
        Next
        
        If sTableName = "" Then sTableName = .Source
        iSql = "create table [" & sTableName & "](" & Mid(iSql, 2) & ")"
    End With
    
    '数据库连接字符串
    iConcStr = "DRIVER={Microsoft Excel Driver (*.xls)};DSN='';FIRSTROWHASNAMES=1;READONLY=FALSE;" & _
            "CREATE_DB=""" & sExcelFileName & """;DBQ=" & sExcelFileName
    
    '创建Excel文件,并创建表
    Set iDB = New ADODB.Connection
    iDB.Open iConcStr
    iDB.Execute iSql
    
    '插入数据
    With sRecordSet
        .MoveFirst
        While .EOF = False
            iSql = ""
            iFdlist = ""
            For iI = 0 To .Fields.Count - 1
                iFdType = f_FieldType(.Fields(iI).Type)
                If iFdType <> "image" And IsNull(.Fields(iI).Value) = False Then
                    iFdlist = iFdlist & ",[" & .Fields(iI).Name & "]"
                    Select Case iFdType
                        Case "char", "varchar", "nchar", "nvarchar", "text"
                            iSql = iSql & ",'" & .Fields(iI).Value & "'"
                        Case "datetime"
                            iSql = iSql & ",#" & .Fields(iI).Value & "#"
                        Case "image"
                        Case Else
                            iSql = iSql & "," & .Fields(iI).Value
                    End Select
                End If
            Next
            iSql = "insert into [" & sTableName & "](" & _
                Mid(iFdlist, 2) & ") values(" & Mid(iSql, 2) & ")"
            iDB.Execute iSql
            .MoveNext
        Wend
    End With    '处理完毕,关闭数据库
    iDB.Close
    Set iDB = Nothing
    
    MsgBox "已经将数据保存到 [ " & sExcelFileName & " ]", 64
    iRe = True
    GoTo lbexitlbErr:
    MsgBox "发生错误:" & Err.Description & vbCrLf & _
        "错误代码:" & Err.Number, 64, "错误"
lbexit:
    f_Export2Excel = iRe
End Function

Answer 7

'调用示例
Sub test()
    Dim iRe As ADODB.Recordset
    Dim iConc As String
    
    iConc = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
        ";Data Source=F:\My Documents\客户资料.mdb"
        
    Set iRe = New ADODB.Recordset
    iRe.Open "维护员", iConc, adOpenKeyset, adLockOptimistic
    f_Export2Excel iRe, "c:\b.xls", , True
    iRe.Close
End Sub

Answer 8

1.设置excel的visible属性为false,导完后再设为true.
2.clipboard.clear
  '===此处可以先将纪录集读到一个字符串中，用vbcrlf换行
  clipboard.settext rs.fields(0) & vbtab & rs.fields(1)
  excelapp.cells(1,1).select
  excelapp.activesheet.paste
  clipboard.clear
3.建立excel模板，然后再打开。
  dim excelapp as new excel.application
  excelapp.workbooks.open ""
  另一种方法是动态建立巨集，麻烦一点，这里我就不讲了。