求助：引用其他工作簿数据制做下拉菜单

wallyjin

通过以下程序，引用“客户信息表.xlsx”中的“公司信息”， 在“产品销售表”的单元格C4位置实现下拉菜单：

Private Sub Workbook_Open()
    Dim cnn As Object, rs As Object, SQL$, s$, i&
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "provider=Microsoft.Ace.OLEDB.12.0;extended properties=excel 12.0;data source=" & "D:\客户信息资料\客户信息表.xlsx"
    SQL = "Select 公司名称 From [客户信息表$]"
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open SQL, cnn, 1, 3
    For i = 1 To rs.RecordCount
        s = s & rs.Fields(0).Value & ","
        rs.MoveNext
    Next
    With Sheets("产品销售表").Range("c4").Validation
        .Delete
       End With
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
End Sub

那么现在问题来了，“产品销售表”关闭在重新打开后，出现下列情况：



这里应该是由于我使用了Vlookup函数，引用“客户信息表”中其他单元格的值导致的：


这里应该是由于前一次VBA的执行留下的后遗症：



这时候工作簿可以打开了，但是原有的表格格式完全被破坏了。
应该和这段程序有很大关系，有没有高手能指点迷津？
感激。

wallyjin

看来没人能帮上忙了