Переделал его под свои нужды. В макросе создаётся объект MSXML2.XMLHTTP, в строковую переменную заливается исходный код веб-страницы, а потом в строке находится нужная информация.
Но возникла одна проблема: Кириллица в этом объекте не отображается и найти в строке данные на основе кириллических символов нельзя.
Dim rs As New ADODB.Recordset rs.CursorType = adOpenStatic rs.LockType = adLockOptimistic
strSql = "With t(a1,a2,a3) " _ & "as( " _ & "SELECT b as a1, c as a2, d as a3" _ & "FROM table & ") " _ & "Select a1, count(*), (Select Count(*) from t where (t.a1 = t2.a1) and (a3=0) ) as kol " _ & "from t as t2 " _ & "where a2 = 0 "
rs.Open strSql, cn
При компиляции выдаётся ошибка: Incorrect syntax near the keyword "With"
Запрос в MS SQK Server Management Studio работает! Если в макрос поставить простой запрос select, то он замечательно работает! Конечно, можно переписать запрос без With, но будет достаточно громоздко. Как можно решить проблему?
Добрый день Решаю следующую задачу с помощью макроса в Excel 2003: необходимо составить веб адрес. Но чтобы он корректно открылся, необходимо его закодировать. Нашёл функцию, которая это делает - http://msdn.microsoft.com/en-us/library/4fkewx0t.aspx Только не пойму, как её использовать, какую библиотеку подключать в окне References.
Добрый день всем вопрос следующий: есть табличка с данными: в строках фамилии, в столбцах номера недель, в ячейках объём продаж. Пример файла прикреплён. на другом листе пользователь вводит фамилию и интервал недель. Требуется посчитать сумму по указанному человеку за указанный период.
Если неделя одна, то впр спасает, а если несколько, то нужно как-то написать сумму интервала. Никак не могу написать формулу. Заранее спасибо.