Sub Export_Query()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("select distinct CompanyName from QUERY")
While Not rs.EOF
On Error Resume Next
CurrentDb.Execute "DROP TABLE [" & rs("CompanyName") & "]"
CurrentDb.Execute "SELECT QUERY.* INTO [" & rs("CompanyName") & "] FROM QUERY WHERE CompanyName=""" & rs("CompanyName") & """;"
On Error GoTo 0
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
End Sub
1 回答
你确定为每家公司创建一个不同的表是一个好主意吗?我不推荐这个!
好吧,假设你有一个名为QUERY的查询,它包含字段CompanyName并包含所有记录 . 你可以从这样的事情开始:
这只是一个想法...你应该添加更多错误检查代码,你还应该逃避公司名称或确保它不包含任何特殊字符 .