至少一个参数没有被指定值

function2046

工作簿1.7z (267.69 KB, 下载次数: 1)

2017-8-16 01:40 上传

点击文件名下载附件

报错说  至少一个参数没有被指定值，求解

Sub record3筛选()

    Dim strconn As String
    Dim strsql As String
    Dim today$, endday$

    today = Format(Sheets("data").[m1], "yyyy-mm-dd")
    endday = Format(Sheets("data").[m1].Offset(0, -9).Value, "yyyy-mm-dd")
    Set adoconn = CreateObject("ADODB.Connection") '后期绑定
    strconn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
    ThisWorkbook.Path & "\" & ActiveWorkbook.Name & ";Extended Properties=""Excel 12.0;HDR=YES"";"
    strsql = "select * from data where ([" & today & " ]- [" & endday & "])/[" & endday & "] >0.3"
    adoconn.Open strconn
    Sheets("record3").Range("a1").CopyFromRecordset adoconn.Execute(strsql)
    adoconn.Close
End Sub

chxw68

(日期-日期)/日期 的结果表示什么意思？

chxw68

把Strsql语句修改成下面语句能运行了，但由于不满足条件语句，所以什么数据也提取不到。

1.     strsql = "select * from data where (#" & today1 & " #- #" & endday & "#)/#" & endday & "# > 0.3"
   

复制代码

chxw68

详见附件。

chxw68

楼主的代码为什么出错，是因为：
(字符串-字符串)/字符串

function2046

chxw68 发表于 2017-8-16 08:16
楼主的代码为什么出错，是因为：
(字符串-字符串)/字符串

每一个日期下面是股票的收盘价，我正常用sql的时候  那样写能返回我所需要的股票名称和数据  但是用vba就不行了  感觉很奇怪  字段里面如果有"-"的时候不是应该加"[]"符号么？如果用“#”不是就变成日期了么？

function2046

chxw68 发表于 2017-8-16 08:16
楼主的代码为什么出错，是因为：
(字符串-字符串)/字符串

加井号不就变成日期了么，但是我的日期是字段，所以我当时用的是中括号

function2046

chxw68 发表于 2017-8-16 08:16
楼主的代码为什么出错，是因为：
(字符串-字符串)/字符串

字段名为日期也需要用井号么

chxw68

修改好了。

function2046

chxw68 发表于 2017-8-16 10:02
修改好了。

请问为什么加CLng就好了呢？如果正常些sql直接加中括号就可以了  为什么vba需要加CLng？