excel vba access sql语句创建表

可以使用以下代码在Excel VBA中使用Access SQL语句创建表：

Sub CreateTable()
    Dim conn As Object
    Dim strSQL As String
    
    '连接Access数据库
    Set conn = CreateObject("ADODB.Connection")
    conn.Provider = "Microsoft.ACE.OLEDB.12.0"
    conn.Open "C:\example.accdb"
    
    '创建表
    strSQL = "CREATE TABLE Customers (ID INT PRIMARY KEY, FirstName TEXT, LastName TEXT, Email TEXT);"
    conn.Execute strSQL
    
    '关闭连接
    conn.Close
    Set conn = Nothing
End Sub

在上面的代码中，我们首先使用ADODB.Connection对象连接到Access数据库，然后使用SQL语句创建名为"Customers"的表，该表包含ID、FirstName、LastName和Email四个字段。最后，我们关闭连接并将连接对象设置为Nothing。

注意，在执行此代码之前，需要将"Microsoft.ACE.OLEDB.12.0"提供程序添加到引用中。可以通过在VBA编辑器中选择“工具”>“引用”>“Microsoft ActiveX数据对象库”来完成此操作。同时，需要将连接字符串中的文件路径更改为您的Access数据库文件路径。