Что заставляет клетку обновляться? Строка подключения будет зависеть от того, какую базу данных вы используете. В приведенном ниже примере используется Access и требуется ссылка на объекты данных Microsoft ActiveX 2.8
Данные помещаются в ячейку (1,1) на листе 1. Предложение where взято из textbox1 на sheet2:
Private Sub CommandButton1_Click()
Dim sqlQuery As String
sqlQuery = "SELECT * FROM myTable WHERE " & Worksheets("sheet2").TextBox1.Text
fetchData "C:\file_databases\myDatabase.accdb", Worksheets("sheet1").Cells(1, 1), sqlQuery
End Sub
Private Function fetchData(databaseName As String, targetRange As Range, sqlQuery As String)
Dim connection As New ADODB.connection
Dim records As New ADODB.Recordset
Dim connectionString As String
connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & databaseName & ";"
connection.Open connectionString
records.Open sqlQuery, connection
targetRange.CopyFromRecordset records
records.Close
connection.Close
End Function