DoCmd.TransferSpreadsheet 的应用问题

tmtony

可以用代码 修改xl的查询 SQL 来达到赋条件
如 dim qdf as querydef
    set qdf=currentdb.querydefs("你的查询名")
    qdf.sql= "select * from xl where 条件"
    qdf.close

再执行你的导出