使用VBA从没有ID的表中获取单个值

Dim conn As Object
Dim rs As Object
Dim strSQL As String
Dim result As Variant

Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

' 建立与数据库的连接
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\YourDatabase.accdb;"

' 构建SQL查询语句
strSQL = "SELECT ValueColumn FROM YourTable WHERE ConditionColumn = 'YourCondition';"

' 执行查询并将结果存储在变量中
rs.Open strSQL, conn
result = rs.Fields(0).Value
rs.Close

' 关闭连接
conn.Close

' 输出结果
MsgBox result

Dim ws As Worksheet
Dim lastRow As Long
Dim result As Variant
Dim i As Long

Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换为实际的工作表名称

lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 假设数据在A列中

result = ""

For i = 1 To lastRow
    If ws.Cells(i, "A").Value = "YourCondition" Then ' 替换为实际的筛选条件
        result = ws.Cells(i, "B").Value ' 假设要获取的值在B列中
        Exit For
    End If
Next i

If result <> "" Then
    MsgBox result
Else
    MsgBox "Value not found."
End If