通过DAO的OpenDatabase方法,不打开XLS文件直接引用文件中指定范围数据

时　间:2011-12-21 12:39:46
作　者:叶海峰   ID：31  城市：广州
摘　要:通过DAO的OpenDatabase方法,不打开XLS文件直接引用文件中指定范围数据
正　文:

'---------------------------------------------------------------------------------------
' Procedure : QueryDataFromXLS 不打开XLS文件直接引用文件中指定范围数据
' DateTime  : 2009-10-21 15:02
' Author    : 叶海峰
' 注意事项  : 需引用DAO3.6版本,在Access,Excel,Word等Office套件中通用
' 调用方法   :QueryDataFromXLS("c:\a.xls","sheet88$A1:G10"
Sub QueryDataFromXLS(xlsFileName As String, DataRange As String)
    Dim db     As Database
    Dim rst    As Recordset
    Dim myfield As Field
    Dim i      As Long
    Set db = OpenDatabase(xlsFileName, False, False, "excel 5.0;HDR=Yes")    'HDR=Yes显示标题
    Set rst = db.OpenRecordset(DataRange)    '"sheet88$A1:G10"如果引用命名范围:"名称",引用工作表:"工作表名$",当前工作表单元格范围:"A1:G10"
    MsgBox rst.RecordCount
    '  Range("A1").CopyFromRecordset(rst)
    rst.Close
    Set rst = Nothing
    db.Close
    Set db = Nothing
End Sub

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店