Excel VBA将参数传递给OLEDBConnection

在Excel工作簿中,我与SQL Server数据库有多个连接。我以为我可以运行一个像下面的脚本那样的小脚本,但是它没有满足我的要求。我想刷新OLEDBConnection,并传入StartDate和EndDate,但实际上并没有与连接通信。

Sub RefreshWithDates()

Dim StartDate As Date
Dim EndDate As Date

StartDate = Sheets("Pivot_Summary").Range("B1").Value
EndDate = Sheets("Pivot_Summary").Range("B2").Value

    With ActiveWorkbook.Connections("FMDDATA_HIST_SPLIT").OLEDBConnection
        .CommandText = "SELECT * FROM RECONCILIATION.dbo.TBL_FMDDATA_HIST_SPLIT Where AsOfDate between '" & StartDate & "' & " And " & '" & EndDate & "'"
        ActiveWorkbook.Connections("FMDDATA_HIST_SPLIT").Refresh
    End With

End Sub
约翰·F

您的.CommandText字符串在周围有错误AND(请注意,它的颜色是蓝色...正在解析为VBA关键字And)。

它应显示为:

"EXEC SELECT * FROM RECONCILIATION.dbo.TBL_FMDDATA_HIST_SPLIT 
WHERE AsOfDate between '" & StartDate & "'" & " AND " & "'" & EndDate & "'"

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章

将参数传递给VBA中的Constructor

Excel VBA:将计算结果数组作为参数传递给函数

Excel VBA运行时错误“ 13”:将变量数组传递给Application.Index方法时,类型不匹配

如何将变量传递给pd.read_excel的'use_cols'参数

如何将参数从Excel / VBA传递到Rstudio中的脚本

Excel VBA-将工作表传递给公共功能

Excel VBA将范围传递给函数会产生424:必需的对象

Delphi-将ALT键码传递给Excel

将Excel数组常量传递给VBA函数

将Excel工作表作为参数传递给另一个脚本

Excel VBA将数组数组传递给函数

将键传递给函数作为字符串参数时,VBA Excel错误“按参考参数类型不匹配”

在Excel中将矩阵(?)传递给VBA

在Excel VBA中将变量传递给外接程序函数

将参数从Excel传递到Access查询

VBA将参数传递给userform

Excel VBA-将参数传递给属性

如何将动态范围字符串文本传递给EXCEL VBA中的SQL查询IN子句

Excel-将数组传递给函数

XSLT:将Excel文本颜色参数传递给模板

无法将C#int数组传递给VBA Excel宏

Excel:从工作表中调用vba函数时,将当前单元格作为参数传递

Excel VBA:如何将类型结构的一个元素传递给vba中的函数

Laravel excel 将变量传递给出口商

如何将参数值从 sub 传递给 excel VBA shell 命令以进行远程执行?

将参数从 VbScript 传递给 vba 函数

将 Excel 命名范围存储为 VBA 中的变量,然后传递给函数

如何将空的可选参数从 Python 传递到 Excel VBA 宏

将“Range(...) As Range)传递给Sub时的excel/vba语法错误?