拉取值行/值范围的 SQL 数据-解网

问：

如果我仅将范围设置为 D5，此代码将对我有用。但是，我想对整行 D 值连续运行它。每当我使该数字超过单个单元格时，它就不再起作用。有什么建议吗？

Dim orderNo As Variant

orderNo = Sheet1.Range("D5:D7").Value
With ActiveWorkbook.Connections("Select BOM").OLEDBConnection
 .CommandText = "EXEC dbo.XXX '" & orderNo & "'"
 ActiveWorkbook.Connections("Select BOM").Refresh
End With

结束副

SQL Excel VBA

评论

0赞 BigBen 9/28/2023

我不太确定你想做什么，但目前是一个无法连接的 2D 数组。你想要一个循环吗？orderNo&

0赞 Kel 9/28/2023

是的，我想为整个 D 列循环它

2赞 BigBen 9/28/2023

Dim cell As Range, , ?For Each cell in Sheet1.Range("D5:D7")orderNo = cell.Value

答：

0赞 vbakim 10/3/2023 #1

因为您的代码适用于一个单元格值。将 with 部分放入循环内，如下所示。

Dim orderNo as Range
For each orderNo in Sheet1.Range("D5:D7")
    With ActiveWorkbook.Connections("Select BOM").OLEDBConnection
         .CommandText = "EXEC dbo.XXX '" & orderNo & "'"
         ActiveWorkbook.Connections("Select BOM").Refresh
    End With
Next orderNo

上一个：VBA mailmerge 无法使用访问数据源。OpenDataSource 和 SQLStatement 参数

下一个：如何在 PHP 中编辑日期范围？