ADO+SQL问题求助

wk747

工作中使用的，各种拼凑写出了一段代码，但是需要动态的引用其他的数据表， 其中sql语句中[D:\数据源文件\191007  4S店铺BD数据明细.xlsx]的部分会每天变化，今天是1007，明天就是1008，请问各位该怎么编写才能实现
Sql = "SELECT 门店 FROM [D:\数据源文件\191007  4S店铺BD数据明细.xlsx].[月$] WHERE BD_ID = " & Sheet3.Range("A6") & " and 日期 = '2019-10' and 门店 NOT LIKE '%关闭%'and 门店 NOT LIKE '%作废%'"

xuemei0216

Sub 宏1()
Dim cnn As Object, rst As Object
Dim sql$, s$, s1$, i&
Set cnn = CreateObject("adodb.connection")      '后期绑定ADO
'请选择你需要的文件
s = Application.GetOpenFilename("excel文件,*.xls*", , "请选择：一个excel文件", , False)
If s = "False" Then Exit Sub
If Application.Version < 12 Then
    s1 = "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=""Excel 8.0;HDR=YES"";Data Source=" & s
Else
    s1 = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=""Excel 12.0;HDR=YES"";Data Source=" & s
End If
cnn.Open s1      '建立链接

'语句，自己添加
sql = "SELECT 门店 FROM [月$] WHERE BD_ID = " & Sheet3.Range("A6") & " and 日期 = '2019-10' and 门店 NOT LIKE '%关闭%'and 门店 NOT LIKE '%作废%'"

ActiveSheet.UsedRange.ClearContents             '清除内容
'粘贴标题行
Set rst = cnn.Execute(sql)
For i = 0 To rst.Fields.Count - 1           '利用fields属性获取所有字段名（下标从0开始）
    Cells(1, i + 1) = rst.Fields(i).Name
Next
[a2].CopyFromRecordset rst           '粘贴内容
cnn.Close                       '关闭链接
Set cnn = Nothing       '释放内存
End Sub

liulang0808

看见星光版主分享了一个sql+ado的帖子，楼主参考下

EXCELLMY

1.提取数据源文件文件夹下的最大值文件，2.把已使用过的数据源移动到已提取数据的文件夹中，只保留最大值的工作薄

999110022

我没理解错的话应该是说如果今天是10月8日，那么应该会有一个以191008***命名的worksheet吧？你想叫SQl语句自动变为这个worksheet的名字而不用每天手工输入是吗？
如果是这样的话可以试试用format
Sql = "SELECT 门店 FROM [D:\数据源文件\" & format(data,"yymmdd") & "  4S店铺BD数据明细.xlsx].[月$] WHERE BD_ID = " & Sheet3.Range("A6") & " and 日期 = '2019-10' and 门店 NOT LIKE '%关闭%'and 门店 NOT LIKE '%作废%'"
前提条件是第一你得确实有添加这张工作表；第二工作表名称确实是按照这个规则命名的。所以，建议你在这个sql语句前面添加一个判断是否有这张工作表，然后再执行这个sql语句。

wk747

liulang0808 发表于 2019-10-8 18:53
看见星光版主分享了一个sql+ado的帖子，楼主参考下

星光大大的我一直在看的

wk747

999110022 发表于 2019-10-9 00:18
我没理解错的话应该是说如果今天是10月8日，那么应该会有一个以191008***命名的worksheet吧？你想叫SQl语句 ...

是这个意思，但是好像不行啊

wk747

xuemei0216 发表于 2019-10-8 18:41
Sub 宏1()
Dim cnn As Object, rst As Object
Dim sql$, s$, s1$, i&

很强，感谢！！

999110022

不好意思哈，大半夜的打字没看清楚把变量名给打错了。format里面应该是date不是data。date是日期函数返回当日日期，data是我另一个文件里面的变量名，打得多了手指肌肉记住了就顺手打出来了。
注意看下面本地窗口里面SQL的值。