来来回回折腾半天;
Sub get_exporesure()
Dim Cnn As Object, Sql As String, S(1) As String
Dim seprate_line
Dim Context As String '声明一个String类型变量context,用于保存对话框将要显示的内容
Dim title As String '声明一个String变量title,同于保存窗口标题内容
Rem 将内容存入Conetext 变量
seprate_line = "------------------"
Context = "TO get exploresure!"
title = "get exploresure"
key_word = "25mm eyelashes"
Set Cnn = CreateObject("ADODB.Connection")
Cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
S(0) = "[" & ActiveSheet.name & "$B1:B" & Range("B65536").End(xlUp).Row & "]a"
'S(1) = "[" & ActiveSheet.Name & "$J1:L" & Range("J65536").End(xlUp).Row & "]b"
Rem Sql = "SELECT b.商品价格,b.商品单位 FROM " & Join(S, " LEFT JOIN ")