VB与EXCEL报表

我在用VB与EXCEL做报表时遇到一个问题： 
    我在VB里调用已经设置好的EXCEL文档格式写的代码如下：但语句Data1.Refresh在调试时出错。出错提示是：ISAM不支持！我意思是想向EXCEL文档添加数据，但由于刚学VB与EXCEL做报表，不知怎样做了（出现错误后！）敬请高手指教！急！！！！！
    Data1.DatabaseName = "C:\excel.xls"
    Data1.RecordSource = "Sheet1$"
    Data1.Connect = True
    Data1.Refresh
    i = 1: m = 1
    Set rsfox = Data1.Recordset  
    If Not rsfox.EOF Then
        rsfox.MoveFirst
        Do While Not rsfox.EOF And Not rs.EOF
           rsfox.Edit
           rsfox(0) = i
           rsfox(1) = rs!EmpName
         For k = 1 To 18
             rsfox(k + 1) = Mid(Trim(rs!personalId), k, 1)
         Next
         If Me.Opt_Annuity Then
                If rs!InsCode <> "" Then
                    For m = 1 To 12
                        rsfox(m + 19) = Mid(CStr(rs!InsCode), m, 1)
                    Next
                End If
         End If
         rsfox(32) = "V"
         rsfox(34) = "V"
         rsfox(36) = 1
         rsfox.Update
         rsfox.MoveNext
         rs.MoveNext
         i = i + i
        Loop
        rsfox.MoveFirst
   End If

解决方案 »

  1.   

    excel可以象ＤＢＦ文檔那樣使用MoveFirst,delete,movelast 等方法嗎?
      

  2.   

    [email protected]
    给我一份吧。
      

  3.   

    我的ＥＭＡＩＬ:[email protected] 謝謝妳那!
      

  4.   

    可以给我一份吗？Email:[email protected]
      

  5.   

    to cgh1970(阿刀):
    請給我一份，好吗？我也可以另外开贴子送分给你的！谢谢！
    [email protected]
      

  6.   

    还有这个
      [email protected]
      

  7.   

    to cgh1970(阿刀):
    还有我，谢谢！[email protected]
      

  8.   

    to cgh1970(阿刀):
    还有我，谢谢！[email protected]
      

  9.   

    [email protected]给我一份好吗！先谢过了！
      

  10.   

    [email protected]
    给我一份好吗！先谢过了！
      

  11.   

    ： cgh1970(阿刀) :
    给我一份吧？
    [email protected]
      

  12.   

    me too.
    谢谢。：）
    [email protected]
      

  13.   

    我也要
    [email protected]
    谢谢！
      

  14.   

    我也要
    [email protected]
    谢谢！
      

  15.   

    安全警报：请大家注意安全，不要把自己的email公开，论坛最近出现的几次密码被盗用经查都是email被截获造成的。截获的大致原理：
    由于电子邮件的发送是要通过不同的路由器进行转发，直到到达电子邮件最终接收主机，攻击者可以在电子邮件数据包经过这些路由器的时候把它们截取下来，这些都是我们所不能发现的。我们发送完电子邮件后，我们就不知道它会通过那些路由器最终到达主机，我们也无法确定，在经过这些路由器的时候，是否有人把它截获下来，就像我们去邮局寄信，我们从无知道寄出去的信会经过那些邮局转发，那些人会接触到这封信。 我们使用电子邮件就像我们在邮局发送一封没有粘封的信一样不安全。我们无法保证email发送给你的注册密码不曾被他人截获过。而且一些黑客网站提供这样的工具。为了你的安全，请不要对任何人公开你的email。
      

  16.   

    rsfox(0),rsfox(1)......是怎么回事？
      

  17.   

    谢谢,请给我也发一份.
    [email protected]
      

  18.   

    能给我一份么？[email protected]
      

  19.   

    [email protected]
    还有 我
      

  20.   

    我的是[email protected]
    我現在要急用，希望你能幫忙，謝謝!!!
      

  21.   

    急用
    [email protected]
      

  22.   

    能给我一份么？
    [email protected]
    非常感谢！
      

  23.   

    [email protected]
    偶也想要一份，先谢了
      

  24.   

    Data1.Connect = "Excel 8.0;"
      

  25.   

    来一份吧，可以另外送分的。[email protected]
      

  26.   

    Data1.RecordSource = "Sheet1$"
    改成Data1.RecordSource = "[Sheet1$]"
      

  27.   

    或者看我的用ado方式的用法吧Private Sub Command1_Click()
    Dim xlsconn As New ADODB.Connection
    Dim xlscmd As New ADODB.Command
    xlsconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\piple\m.xls;Extended Properties=excel 8.0;Persist Security Info=False"
    xlsconn.Open
    Set xlscmd.ActiveConnection = xlsconn
    xlscmd.CommandText = "insert into [qq$] values (10,20)"
    xlscmd.Execute
    MsgBox "ok"
    End Sub如果觉得我的这个方法好,可以帮我解决一个问题吗?
    即如何用ado方式操作dbf文件?
    因为我不知道如何处理dbf文件本身及它所在的目录.
    可不可以按以上我连接excel的方法写一个完整的connectionstring?
    谢谢了.
      

  28.   

    这样可以？
    我有个问题是数据往excel中插入太慢
      

  29.   

    这位兄弟；
    　　可以给我一份吗？　E-Mail:[email protected]
    谢谢
      

  30.   

    to cgh1970(阿刀):
    还有我，谢谢！
    E-Mail:[email protected]
      

  31.   

    嫁给我吧，我就是EXCEL大全啊！
      

  32.   

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