Как вернуть результаты запроса SQL на лист Excel с функцией VBA

499
Matt

Я пытаюсь создать функцию VBA в Excel, чтобы повлиять на динамическое значение из листа Access to Excel. Это мой код

Public Function SQL(DB As String, Query As String) Dim conn As ADODB.Connection Set conn = New ADODB.Connection conn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & DB SQL = conn.Execute Query End Function

Тогда я должен написать на мою камеру

=SQL("file.accdb", "SELECT Count(*) FROM Table")

Возвращаемое значение есть #VALUE!, но если я изменю код на SQL = 1 + 2, то значение будет 3. Я считаю, что это означает, что проблема сconn.Execute Query.

2

0 ответов на вопрос

Похожие вопросы