VBA 上使用 ADO 和 SQL 的单元格引用

Question

下面的代码用于连接到共享点列表并删除“代码列”值匹配 'VALUE' 的行，我可以将下面代码中的 'VALUE' 更改为单元格引用吗？ [A1]？怎么样？

视频代码来源：https://www.youtube.com/watch?v=UWrVLdFaapQ&list=PLo0aMPtFIFDrcPiWbqJGb3qt3rkOmjDbN&index=5

Sub allTst_SharePoint()


Dim mySQL As String
Dim cnt As ADODB.Connection
Dim rst As ADODB.Recordset
Dim xuser As String
Dim xactivity As String
Dim xtimesince As Date


Set cnt = New ADODB.Connection
Set rst = New ADODB.Recordset


mySQL = "Delete * FROM [mylist] WHERE [Code] = 'VALUE' ;" 


With cnt
    .ConnectionString = _
    "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=0;RetrieveIds=Yes;DATABASE=mySPsite;LIST={myguid};"
    .Open
End With

cnt.Execute mySQL, , adCmdText
    
If CBool(rst.State And adStateOpen) = True Then rst.Close
Set rst = Nothing
If CBool(cnt.State And adStateOpen) = True Then cnt.Close
Set cnt = Nothing

End Sub

Answer 1

尝试

Dim myValue As String
myValue = Range("a1")
mySQL = "Delete * FROM [mylist] WHERE [Code] = '" & myValue & "' ;"

VBA 上使用 ADO 和 SQL 的单元格引用

Cell Reference on VBA using ADO and SQL

sql

excel

vba

ado