Question

在access里面用vb执行已建立的查询，并产生一个新表

就在access里面用vb执行已建立的查询，并产生一个新表，（查询十分复杂，直接VB里面不能执行），下图是一个示例，我是要用这种方法用很多查询产生很多表的，不适合直接在查询里面加into。

Answer 1

以下请参考：

Dim sqlstr$
    sqlstr = CurrentDb.QueryDefs("汇总表").SQL
    sqlstr = Replace(sqlstr, "from", "into " & 新表名称 & " from", 1, 1)
    CurrentDb.Execute sqlstr

先提取查询的sql，然后对sql加工（加入into，假设sql中只有一个from），然后再执行新的sql语句。

祝你成功！

追问

我的不止一个from

追答

把你查询的sql贴出来看看

追问

那个太长了，就算只用一个“SELECT * FROM Sheet1;”也有那个提示啊

追答

debug.print sqlstr
看看你那边新的sqlstr是什么样子？

祝你成功！