这个导出为什么会出错啊？？？？

wx-x

A = "SELECT * FROM 工时明细 where 日期 >= '" & [o1] & "' and 日期 <= '" & [p1] & "'"
Range("a:l").ClearContents
With ActiveSheet.QueryTables.Add(Connection:="ODBC;DSN=MS Access Database;DBQ=" & ThisWorkbook.Path & "\daoru.mdb;;;UID=admin;PWD=123", Destination:=Range("A1"))
        .CommandText = A
        .Refresh BackgroundQuery:=False
    End With

运行到   .Refresh BackgroundQuery:=False
   时就报错，这是什么原因啊？！！！！！

taller

SQL命令格式不正确，在Access中日期要以#开始和结束

1. a = "SELECT * FROM 工时明细 where 日期 >= #" & [o1] & "# and 日期 <= #" & [p1] & "#"
   

复制代码

wx-x

太感谢了，就这么搞定了，再次感谢。

wx-x

access和excel录入导出实例