怀疑在VBA ADO和Sql查询中…

我有2张纸，即adodc1，adodc2（在一本工作簿中）

在adodc1中具有“名称”，“部门”列，有时其具有“ Sect”列

在adodc2中具有“名称”，“部门”，“宗派”列

我想要的是当我运行Query..Vba时需要检查adodc1是否具有Sect列。

要返回为空值..

下面的代码取自“”，根据我的需要进行了更改

它将执行的工作是来自两张表的联合名称和部门列。现在我要查询以检查adodc1是否具有列“ sect”。如果具有

像往常一样联合“ Sect”，否则..联合为空值

Sub connecttoexcel()

Dim cn As Object
Dim rs As Object
Dim strFile As String
Dim strCon As String
Dim strSQL As String
Dim s As String
Dim i As Integer, j As Integer

strFile = ActiveWorkbook.FullName
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile & ";Extended Properties=""Excel 12.0 XML;HDR=Yes;IMEX=1"";"
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.Open strCon
'here i want some stuff
strSQL = "Select Name, Dept from [Adodc1$] Union Select Name, Dept from [Adodc2$];"
rs.Open strSQL, cn
Worksheets("Sheet3").Cells(2, 1).CopyFromRecordset rs
Set rs = Nothing
End Sub