Как сделать SQL-запрос с помощью VBA из Visio в книгу Excel? - PullRequest
Новая
       16

Как сделать SQL-запрос с помощью VBA из Visio в книгу Excel?

0 голосов
/ 27 июня 2019

Я пытаюсь выполнить SQL-запрос из Visio с помощью VBA. Мой код запускается и компилируется, но он не дает мне никаких результатов. Я установил соединение с книгой, в которой есть все листы, которые мне нужно запросить. Вот часть кода, которая проходит через рабочие листы. Спасибо 

Dim WS_Count As Integer
    Dim I As Integer
        WS_Count = ActiveWorkbook.Worksheets.Count
           For I = 1 To WS_Count
               Dim strSQL As String

strSQL = "select * from ActiveWorkbook.Worksheets where ActiveWorkbook.Worksheets(I).Name = VLANs and VLAN = 2"

            Debug.Print strSQL
    Next I
            ActiveWorkbook.Close SaveChanges:=False

Мне нужно иметь возможность запрашивать все листы по определенным столбцам. Мне нужно запрашивать разные столбцы на одном листе. Мне может потребоваться сделать запрос на основе столбца vlan, а на другом запрос может быть основан на столбце ip. , Мой код компилируется и не выдает ошибок.

...