vb记录写到Excel中

Question

我写了一个以记录集填写excel的ActiveX的dll文件，是用VB写的，在98/2000/xp上用了后还可以（只有40KB）！

Answer 1

能给我发一份吗？我的E_mail:[email protected]

Answer 2

xiongying860421(文盲)，你好，可以也给我一分吗？我现在也正好需要一个这样的控件，我正在做学生成绩管理的一些报表，需要导入导出。
谢谢

Answer 3

给我发一份吗？非常需要这样一个东西：（
[email protected]—————————————————————————————————
┏━★━━◆━━★━┓ 
♂欢|◢ＣＳＤＮ◣|使♂ 　　　　　　　▲自由保存帖子，浏览，关注检测
┃迎|◥论坛助手◤|用┃ 　　　　　　　▲完善的ＣＳＤＮ客户端工具
┗━☆━━◇━━━☆┛　　　　　　　▲自动添加签名......让你更快，更爽，更方便地上CSDN...
http://www.csdn.net/expert/topic/573/573604.xml
http://www.chinaok.net/csdn/csdn.zip

Answer 4

请lee_boo(烧不开的水)留下 e_mail !

Answer 5

我也要一份，谢谢[email protected]

Answer 6

chenyu5188(蓝色情调)，你就别开玩笑了吧，星级人物还玩这些小东东？！

Answer 7

看来你们和我一样，都是初学者吧？
1、注册组件：regsvr32 usdc.dll
2、实例化对象: dim ex as new usdc.ExcelOperate
3、调用方法:ex.fill xls,recordsets,row,column,true
   xls:excel实例。
   recordsets:记录集。
   row:从excel的第几行开始填充。
　 column:从excel的第几列开始填充。
　 rowtorow:true以记录集中的行填excel的行，false以记录集中的行填excel的列。
　　如果你是使用的MS系列的设计工具的话，可以用对象浏览器查看（如VB）其中有中文说明，在你写下对象ex.时，会出现方法名，选用方法名后，打空格键，自然会出现参数列表。本来是我自己使用的东东，就没有写说明文档，请谅解！

Answer 8

不用控件啊！参考这个小例子
Public Function ExportToExcel() As Boolean
On Error GoTo ExportToExcel_ErrorHandler    Dim objExcelApp As Object
    Dim objExcelBook As Object
    Dim objExcelSheet As Object    'Whether Excel exists, if not, try to create
    On Error Resume Next
    Set objExcelApp = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then
         Set objExcelApp = CreateObject("Excel.Application")
    End If
    On Error GoTo ExportToExcel_ErrorHandler    Set objExcelBook = objExcelApp.Workbooks.Add
    Set objExcelSheet = objExcelBook.Worksheets(1)
    
    If Val(objExcelApp.Application.Version) >= 8 Then
        Set objExcelSheet = objExcelApp.ActiveSheet
    Else
        Set objExcelSheet = objExcelApp
    End If
    
  '........
  
    For lngRow = 1 To lngRowsCount
        For lngColumn = 1 To lngColumnsCount
            'Assign value
                objExcelSheet.Cells(lngRow, lngColumn) = strText
        Next
    Next
    
    objExcelApp.Visible = True
    
    Set objExcelSheet = Nothing
    Set objExcelBook = Nothing
    Set objExcelApp = Nothing
    
    
    ExportToExcel = True
    
ErrorHandler:
    Exit Function
ExportToExcel_ErrorHandler:
    mdlShowErrorMessage ("ExportToExcel")
    Resume ErrorHandler
    
End Function