有关vba中复制表结构到新表

网上查找到复制表结构到新表的方法有

1、Create Table 新表 select * from 旧表 where 1=2

（此处where 1=2 ，是为让查找到的记录为空，从而只获得表结构，以下同解）

2、Create Table 新表 as select * from 旧表 where 1=2

3、Create Table 新表 like 旧表

在Excel2016（32位）VBA中实测，均会报错

经多次尝试，在Excel2016（32位）VBA中，可通过以下方法实现复制表结构到新表

Select * into 新表  from 旧表 where 1=2

实例代码如下：

Sub 只复制表结构到新表()

Dim conn As New ADODB.Connection

Dim connstring As String

Dim sql As String

connstring = "provider=microsoft.ace.oledb.12.0;data source=E:\学习\vba\数据库\Database1.accdb"

conn.Open connstring

sql = " select * into 表7  from 表1 where 1=2"

conn.Execute sql

conn.Close

Set conn = Nothing

End Sub