大家好，我们今天接着讲连接的方式的第二种，左外连接。在上两讲中，我们讲了内连接，并用内连接分别连接数据库和EXCEL进行了实例的应用讲解，我们今日讲解第二种连接：左外联接。

所谓左外联接，是以左表为基准，将两表的数据进行连接，然后将左表没有对应项显示为NULL；换种说法：就是根据左表的记录，在被连接的右表中找出符合条件的记录与之匹配，如果找不到与左表匹配的，用null表示。

左连接特点：左外连接是外连接的一种，将显示全部左边表中的所有项目，即使其中有些项中的数据未填写完全(在右表中没有查找到对应的值)。

为了理解上述的意义，我们还是以实例来讲解，我们今日讲解的是工作表的连接，下一讲是对数据表的讲解：

实例，同样我们仍有两页的工作表如下：

上述数据中，我们注意到在“数据”页中的型号在“数据2”中有些是没有的，有些是有的，我们要返回的是整个“数据”页中的条目，并把每行按照型号进行匹配。有的返回供应商代码，没有的即表示为空值，代码怎么去写呢？下面看我给出的代码：

Sub mynzRecords_58() '第58讲 左外联接

Dim cnADO, rsADO As Object

Dim strPath, strSQL As String

Worksheets("58").Select

Cells.ClearContents

Set cnADO = CreateObject("ADODB.Connection")

Set rsADO = CreateObject("ADODB.Recordset")

strPath = ThisWorkbook.FullName

cnADO.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties='excel 12.0;hdr=yes;imex=1';data source=" & strPath

strSQL = "Select a.型号,a.生产厂,a.数量,b.供应商 From [数据$] as a LEFT JOIN [数据2$] as b ON a.型号=b.型号"

rsADO.Open strSQL, cnADO, 1, 3

For i = 1 To rsADO.Fields.Count

Cells(1, i) = rsADO.Fields(i - 1).Name

Next

Range("a2").CopyFromRecordset rsADO

rsADO.Close

cnADO.Close

Set rsADO = Nothing

Set cnADO = Nothing

End Sub

代码截图：

代码讲解：

1 strSQL = "Select a.型号,a.生产厂,a.数量,b.供应商 From [数据$] as a LEFT JOIN [数据2$] as b ON a.型号=b.型号"

上述代码中我们应用了Left join .. on .. 标准的左外连接的语句，(有时也写作left outer join .. on .. )解释如下：

Select a.型号,a.生产厂,a.数量,b.供应商： 表示返回的字段；

[数据$] as a LEFT JOIN [数据2$] as b： 此处定义了[数据$] 为A表， 定义[数据2$]为b表

ON a.型号=b.型号" ： 是条件类型

2 Range("a2").CopyFromRecordset rsADO 这句是把数据反馈到工作表中 的固定位置。

下面我们看看代码的运行：

对于没有查找到的数值就是空值的状态了。

今日内容回向：

1 什么是左外连接？

2 左外连接的语法是什么样子的？