EXCEL表中VBA中的字段表达方式

Question

Private Sub CM_addtable_Click()
Dim DBK3 As DAO.Database
Dim RS As DAO.Recordset
Set DBK3 = CurrentDb
Set RS = DBK3.OpenRecordset("SELECT   *   FROM   [EXCEL 8.0;DATABASE=D:\桌面\k3.xls].[代码$] INNER JOIN  部门 ON 部门.代码 =[EXCEL 8.0;DATABASE=D:\桌面\k3.xls].[代码$].[代码] ", dbOpenDynaset)
End Sub
运行时错误'2126':无效的括号名称'[EXCEL 8.0;DATABASE=D:\桌面\k3.xls].[代码$].[代码] '。是什么原因?

Answer 1

SELECT * 
FROM [EXCEL 8.0;DATABASE=D:\桌面\k3.xls].[代码$] X
INNER JOIN 部门 ON 部门.代码 X.[代码]

Answer 2

SELECT * 
FROM [EXCEL 8.0;DATABASE=D:\桌面\k3.xls].[代码$] X
INNER JOIN 部门 ON 部门.代码 X.[代码]这里面的X是什么?

Answer 3

X 是表的别名，省略了关键字 AS，完整样式如下
SELECT * 
 FROM [EXCEL 8.0;DATABASE=D:\桌面\k3.xls].[代码$] AS X
INNER JOIN 部门 ON 部门.代码 X.[代码]