使用vb6如何把Access的数据导入到Excel中

Question

关于VB操作Excel的问题，我在这里提问过。非常感谢大家无私的帮助，这个问题我已经解决，我会尽快结贴。
现在我的问题是：假设我有一个Access的表，比如有4个字段，分别是姓名，学号，性别，身高。里面有一堆记录，比如有5000条。我现在的想法是，用VB把这些记录导入到Excel中，该如何操作呢？

Answer 1

    
    dim i as long
    i=1
    Dim ex1 As Object
    Dim exwbook As Object
    Dim exsheet As Object
    Set ex1 = CreateObject("excel.application")
    Set exwbook = Nothing
    Set exsheet = Nothing
    Set exwbook = ex1.Workbooks().Add
    Set exsheet = exwbook.Worksheets("sheet1")
    ex1.Visible = True
    Adodc1.Refresh
    Do While Adodc1.Recordset.EOF = False
        ex1.Range("a" & i).Value = Adodc1.Recordset("姓名")        
        ex1.Range("b" & i).Value = Adodc1.Recordset("学号")       
        ex1.Range("c" & i).Value = Adodc1.Recordset("性别")       
        ex1.Range("d" & i).Value = Adodc1.Recordset("身高")
        i=i+1
       Adodc1.Recordset.MoveNext
    Loop