VBA Excel - 从 Excel 中的一个单元格中选择一个值以更新 SQL 表

Question

我正在开展一个从计费角度跟踪损益的项目。我们有一个我用来跟踪费用的单件成本。最终用户希望能够在更新表格之前不时更改单件成本。我正在尝试使用宏从 Excel 工作表中的 sheet3 单元格 B2 中获取一个值，以便更新 SQL Server 中的表。我缺少一些东西，因为当我运行宏时它不会更新表。谁能告诉我我错过了什么。这是我第一次尝试使用 VBA，所以我暂时卡住了。

Sub UpdateSQLData()

Dim cnn As ADODB.Connection

Dim MySQL As String

Worksheets("Sheet3").Visible = True
Worksheets("Sheet3").Select

Set cnn = New ADODB.Connection



cnn.Open "Provider=SQLOLEDB.1;Initial Catalog=database;Data Source=server;UID=uid;PWD=pwd;"


Worksheets("Sheet3").Activate
For i = 2 To Range("B2").Select
MySQL = "UPDATE opi_bill_cost " & _
"SET Cost ='" & Range("B2").Value & "', Outcome = '"


cnn.Execute MySQL
Next i

cnn.Close

Set cnn = Nothing

End Sub

Answer 1

如果您只运行一个更新语句，则不需要 For 循环，只有在您想运行具有不同值的多个更新语句时才会使用它。

You For Loop 也是没有运行的原因。 for 循环需要在 2 个值之间运行，而 Range("B2").Select 是一个动作。它实际上是试图从“2”运行到“TRUE”（在成功选择一个范围之后），这绝不是真的。所以它跳过了更新的代码行。

尝试取出 For... 行和 Next 行。这可能足以让它发挥作用。至少，如果有任何其他问题，代码会运行并抛出错误。