Public Function daadfa()
'必须引用 ado   ---------     Microsoft ActiveX Date Objects X.X Library

Dim conn As New ADODB.Connection, connstr As String, db As String, rs As New ADODB.Recordset, i As Long, rows As Long
db = "C:\adb2.mdb"
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
conn.Open connstr
rs.Open "select * from 表1", conn, 1, 3

If rs.EOF And rs.BOF Then
    MsgBox "无记录"
Else
    rows = 1
    For i = 0 To rs.Fields.Count - 1
        Worksheets("Sheet2").Cells(1, rows).Value = rs.Fields(i).Name
    Next i
    Do Until rs.EOF
        For i = 0 To rs.Fields.Count - 1
            Worksheets("Sheet2").Cells(i + 2, rows).Value = rs(i)
        Next i
    rows = rows + 1
    rs.MoveNext
    Loop
End If

End Function

(责任编辑：admin)

• ·Excel VBA编辑语句集300条
• ·【技巧】excel文件破解密码
• ·【Excel VBA】FileDialog 用法之 打开
• ·VBA修改ACCESS及EXCEL安全设置(源码)
• ·实用的GET函数
• ·日期改为显示星期几的自定义涵数
• ·VBA在Excel 2000中的应用一例
• ·ActiveX在Excel中的运用
• ·检查重复字段值的方法
• ·Excel中 BASIC 程序的运行
• ·Excel XP中图片的智能刷新
• ·Excel成绩分析处理程序
• ·创建自己的EXCEL函数
• ·用Excel制作公交向导
• ·使用ADO获取外部数据
• ·Excel中如何编程判断字符颜色