以下请参考：
Dim sqlstr$ sqlstr = CurrentDb.QueryDefs("汇总表").SQL sqlstr = Replace(sqlstr, "from", "into " & 新表名称 & " from", 1, 1) CurrentDb.Execute sqlstr
先提取查询的sql，然后对sql加工（加入into，假设sql中只有一个from），然后再执行新的sql语句。
祝你成功！
