Код у меня такой же, как и в примере:  
Set oHttp = CreateObject("MSXML2.XMLHTTP.6.0")  
   If Err.Number <> 0 Then  
       Set oHttp = CreateObject("MSXML2.XMLHTTPRequest")  
   End If  
   On Error GoTo 0  
   If oHttp Is Nothing Then  
       Exit Function  
   End If  
     
   oHttp.Open "GET", sURI, False  
   oHttp.Send  
   htmlcode = oHttp.responseText  
 
В строковой переменнной htmlcode сохраняется исходный код веб страницы, но кириллицу он не отображает, хотя если смотреть исходный код через браузер, то там всё ок и кодировка win-1251.    
Функция oHttp.getResponseHeader("Content-Type") выдаёт "text/html" без указания кодировки.  
Вот я и не знаю в какую сторону копать:  
1) то ли нужно послать заголовок с явным указанием кодировки (нашёл на форумах, что в php это делает функция header, а в vba не знаю)  
2) то ли менять кодировку строки htmlcode. Правда тоже с этим не преуспел (((  
 
P.S. Мне нужны не курсы валют, а другие данные не с сайта ЦБ, а с иного, где нет XML.

Добрый день, уважаемые форумчане  
 
Воспользовался указанным на сайте приёмом по нахождению курса доллара  
http://planetaexcel.ru/tip.php?aid=91  
 
Переделал его под свои нужды.  
В макросе создаётся объект MSXML2.XMLHTTP, в строковую переменную заливается исходный код веб-страницы, а потом в строке находится нужная информация.  
 
Но возникла одна проблема: Кириллица в этом объекте не отображается и найти в строке данные на основе кириллических символов нельзя.  
 
Что можно сделать?

Тема закрыта.  
Ответ нашёл в другом форуме.  
Перед with надо поставить точку с запятой.  
Т.е.  
 
;With t(a1,a2,a3)  
as(  
SELECT и т.д.

Добрый день  
 
Ситуация такая:  
Нужно создать запрос к SQL Server и вывести данные в Excel.  
Написал макрос:  
 
Set cn = CreateObject("ADODB.Connection")  
 
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Test;Data Source=TEST2"  
On Error GoTo CnErrorHandler  
 
cn.Open  
 
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 в меню "Данные - Импорт внешних данных - Создать (веб) запрос" и указать путь.  
Если это необходимо использовать в макросе, то создать объект, соответствующий типу файла, указать путь и открыть его.  
Опишите ситуацию подробнее.

{quote}{login=Alex_ST}{date=08.02.2011 08:52}{thema=}{post}{quote}{login=Ниkита}{date=08.02.2011 08:18}{thema=}{post}http://www.softportal.com/get-12512-wordfinder.h{/post}{/quote}  
а прикольная прога. Анаграммы строит на ура.  
Придумать бы ещё, для чего дельного её можно юзать...{/post}{/quote}  
Можно играть и выигрывать в Scrabble! =)))

Спасибо.  
Теперь работает.  
Но это пользовательская функция.  
А как использовать встроенные функции (на случай, если найду какую-нибудь интересную функцию в мсдн)?  
Нужно создать объект класса, но непонятно, как его определять и какую библиотеку подключать?

функция UrlenCode  
http://msdn.microsoft.com/ru-ru/library/4fkewx0t.aspx  
 
Dim Url, CodedUrl as String  
 
CodedUrl = ???.UrlenCode(Url)  
 
Как правильно написать?

Добрый день  
Решаю следующую задачу с помощью макроса в Excel 2003:  
необходимо составить веб адрес.  
Но чтобы он корректно открылся, необходимо его закодировать.  
Нашёл функцию, которая это делает  - http://msdn.microsoft.com/en-us/library/4fkewx0t.aspx  
Только не пойму, как её использовать, какую библиотеку подключать в окне References.

Добрый день всем  
вопрос следующий: есть табличка с данными: в строках фамилии, в столбцах номера недель,  
в ячейках объём продаж. Пример файла прикреплён.  
на другом листе пользователь вводит фамилию и интервал недель. Требуется посчитать сумму по указанному человеку за указанный период.  
 
Если неделя одна, то впр спасает, а если несколько, то нужно как-то написать сумму интервала. Никак не могу написать формулу.  
Заранее спасибо.

Вопрос в дополнение к теме:  
если сделать ячейки незащищаемыми, и записать в них содержимое Recordset макросом. То после работы макроса ячейки опять будут защищаемыми. почему так происходит? и как сделать так, чтобы формат ячеек оставался постоянным?

Спасибо за отклик.  
Ответ найден в другой ветке форума - http://www.planetaexcel.ru/forum.php?thread_id=2813&page_forum=2&allnum_forum=43

ZVI, спасибо большое.  
Очень помогли.  
Теперь муторное копирование автоматизировано )))

{quote}{login=ZVI}{date=23.04.2010 12:38}{thema=Как разорвать связи программно}{post}О том,  как разорвать связи Word-документа, написано в VBA-справке Winword-а в разделе BreakLink Method.  
Пример из справки:  
 
Sub Test()  
 Dim shapeLoop As Shape  
 For Each shapeLoop In ActiveDocument.Shapes  
   With shapeLoop  
     If .Type = msoLinkedOLEObject Then  
       .LinkFormat.Update  
       .LinkFormat.BreakLink  
     End If  
   End With  
 Next shapeLoop  
End Sub{/post}{/quote}  
Спасибо за отклик.  
К сожалению doc файл, в котором создать связи через Правка - Специальная вставка - Связать - Текст RTF   выдаёт     ActiveDocument.Shapes.Count = 0  
и код не работает (((

{quote}{login=KuklP}{date=28.04.2010 08:56}{thema=}{post}Похоже в ведро старался... Увидел стартовую дату:-({/post}{/quote}  
Тема ещё актуальна.  
Я наверное описался в предыдущем посте.  
Требуется разорвать связи в объекте Word.  
Вы не знаете, как найти связанные объекты worksheet в файле Word и разорвать связь с ними?  
Приведённый ниже код по-моему разрывает связи в excel.

Тоже бьюсь над этой задачей.  
Разрывает связи команда "Правка-Связи-разорвать"(excel 2003)  
через vba это делает функция breaklink.  
Только вопрос в том, как найти все связи в документе excel?

To Новичок VBA (Miнск): А вы знаете, как разорвать связи программно (vba)  
Вопрос уже задавался на этом форуме, но ответов нет (((