Мне нужен код для запуска запроса SQL Server, который хранится на локальном диске через VBA и получает данные в лист Excel

Question

У меня есть несколько запросов SQL, сохраненных на локальном диске, и каждый раз, когда мне нужно запустить SQL и скопировать данные из SQL Server в Excel.

Answer 1

Вы можете извлекать данные SQL из Excel, используя функциональные возможности Excel по умолчанию. Например, Данные / получать данные из базы данных SQL, вы можете хранить соединение и запросы, для которых на самом деле не требуется VBA

Answer 2

Вы можете сделать что-то похожее на это.

txtSQLcmd = "SELECT * FROM xxxx_Log;"
dtDateValue = DateValue(FetchAValueFromTable(txtSQLcmd))
txtSQLcmd = "UPDATE TablevVariables SET [TablevVariables].KeyValue = #" & dtDateValue & "# WHERE [TablevVariables].KeyName='xxxx_Log';"
ExecuteSQLcmd (txtSQLcmd)

Function FetchAValueFromTable(ByVal strSQL As String) As String
Dim cnn1 As ADODB.Connection
Set cnn1 = CurrentProject.Connection
Dim myRecordSet As New ADODB.Recordset
myRecordSet.ActiveConnection = cnn1
myRecordSet.CursorType = adOpenDynamic
myRecordSet.LockType = adLockOptimistic
myRecordSet.Open strSQL
FetchAValueFromTable = myRecordSet.Fields(0).Value
myRecordSet.Close
Set myRecordSet = Nothing
Set cnn1 = Nothing
End Function