я вообще не программист. я решаю свои локальные задачи, как большинство гостей этого сайта/форума.

Добрый вечер.

В процессе подключения к API от ТКС-банка дошел до вытягивания котировок, которые, как я понял, подаются в потоке (оформляется подписка, получаешь данные в реалтайме).
Как такое можно обрабатывать? В интернетах искал, но самое лучшее что нашел - vba не для этого.
Формат тут: ТКС API
Приложить, к сожалению, нечего, буду рад за ссылку на похожее решение.

вопрос решен.

Как можно реализовать сохранение нескольких ячеек в файл как картинки.

видел тут несколько тем , но у меня либо как диаграммы сохраняются, либо вообще не работает.
во вложении один готовых примеров, но у меня не проходит проверку наличие правильного типа в буфере.
может надо что подключить как связь?
как можно решить задачу?

Microsoft Dynamics NAV

может кто-то решал похожую проблему другим способом?

Доброго. В посте  
<EM>http://www.planetaexcel.ru/forum.php?thread_id=30143</EM>  
мне подсказали как собрать текст из полей в буфер.  
Сейчас столкнулся с продолжением проблемы. Есть программа, которая не позволяет работать (выделять и вставлять) со столбцами. Только строки. Мне нужно в экселе выделить набор ячеек в столбце, скопировать и вставить в программу. Так как выделить в программе столбец не получается, хочу в ячейку попробовать вставить код типа "значение + vbKeyDown + значение vbKeyDown ...."    
По энтеру фокус переходит не вниз, а вправо. А по клавише вниз - вниз.  
 
Начал пробовать код из примера, копировать и вставлять в блокнот, вот что получается:  
для кода кнопки вниз:  
text 1 40text 2  
 
для кода новой строки:  
text 2  
text 1    
   
Т.е. для vbKeyDown  печатается код клавиши.  
 
Задачу можно решить с использованием кнопки вниз?  
 
Dim dob As New DataObject  
Private Sub CommandButton1_Click()  
Dim i&, j&, s$, d$  
d = "text 1 " & vbKeyDown & "text 2"  
'd = "text 2" & vbCrLf & "text 1 "  
dob.SetText Mid$(d, 3)  
dob.SetText d  
dob.PutInClipboard  
End Sub

" приложите файл с примером (если возможно) - и вам обязательно помогут. Один ум - хорошо, а два сапога - пара!"

{quote} приложите файл с примером (если возможно) - и вам обязательно помогут. Один ум - хорошо, а два сапога - пара!{/quote}

{quote}{login=anighr}{date=12.11.2011 01:48}{thema=Re: выполнить SQL запрос без QueryTable}{post}одс файл{/post}{/quote}

одс файл

Подскажите как выполнить запрос типа insert, update и т.п. без вывода результатов. Т.е. наверное без использования QueryTable.  
Макрорекодером делал подключения, изменял тип на sql-запрос, данные получаются. Но при попытке воспроизвести или изменить запрос с select на update выдает ошибку.  
 
Как макросом подключиться к sql серверу и добавить новую запись скрытно от пользователя?  
INSERT INTO [fio] ([id], [familiya], [imya], [otch])
VALUES (4, NULL, NULL, NULL)

Ошибка возникает при попытке присвоить какие-то не верные значения ячейке.  
Если все ActiveSheet.Cells(i, k).Value = t.FormatTitle("%блаблабла%") поотключать, цикл пробегает по всем записям.    
Есть ли какие -то запрещенные символы, на которые он может так реагировать?  
Проблемы с полями артист и альбом, остальные всегда нормально импортируються.

Т.е. все работает, но не все строчки выгружаються. Не хватает памяти

{quote}{login=Hugo}{date=09.10.2011 05:42}{thema=}{post}Интересно...  
А CreateObject("Foobar2000.Application.0.7") - это какая библиотека нужна? У меня нет в зарегистрированных...{/post}{/quote}    
это установленный ком сервер для фубара    
http://www.hydrogenaudio.org/forums/index.php?showtopic=39946

{quote}{login=Hugo}{date=09.10.2011 05:03}{thema=}{post}Overflov?  
Dim i as long{/post}{/quote}  
поставил long. не помогло.  
смущает переменная t, тип ее мне не понятен (VARIANT?)  
Выскакивает примерно на i=70  
На другой машине бывало и i=1500, но все равно аут оф мемори

разобрался. получил.  
Появляется такая же ошибка как и в JS.  
Жалуется на нехватку памяти. Обрабатывается примерно 35 000 записей. Можно (как?) какой-то директивой увеличить выделяемую память процессу?

Мне нужно импортировать библиотеку из проигрывателя foobar2000  
По разным причинам другие пути не очень устраивают.  
В фубаре есть ком сервер. Есть скрипт на JS частично реализующий нужный мне функционал. (правда у меня он не работает, но методику работы там можно увидеть). Пытался сделать по аналогии в экселе - не получается. В приложенном файле закомментирован скрипт JS.  
У меня ошибка при попытке получить одну запись из массива всей библиотеки. Как правильно ее получить?

{quote}{login=Андрей}{date=02.10.2011 10:22}{thema=Автоматическая сортировка по подгруппам и прописывание названия подгруппы}{post}А где взять Ваш  файл?{/post}{/quote}  
Там же где и Ваш. здесь помогают, а не отгадывают.

{quote}{login=}{date=02.10.2011 09:38}{thema=Re: Re: }{post}{quote}{login=anighr}{date=02.10.2011 06:17}{thema=Re: }{post}так?{/post}{/quote}  
 
Да, похоже, что так. Спасибо.  
Нужно ли закрывать файл после каждой записи или можно закрыть его один раз, в конце модуля, когда уже все записи сделаны?{/post}{/quote}  
в конце. иначе первые записи затруться.

{quote}{login=north_rain}{date=02.10.2011 02:16}{thema=Re: Re: }{post}Коллеги, а возможно ли представить что макрос VBA в определенное время определенных дней недели отправляет на заведомо вбитый ящик из сетевой папки файлы, предварительно их архивируя:):):) я понимаю что представить то это можно.. а вот никто не пробовал это осуществить? хотя бы ответьте можно или нет:){/post}{/quote}  
модно, но Вам сюда http://www.script-coding.com/index.html

{quote}Копирование содержимого в текстовый файл_1  
Sub Range2TXT()  
 MyFile = "C:\File.txt" 'путь к файлу  
 Open MyFile For Output As #1 'открыли для записи  
 For Each i In Selection 'листаем ячейки выделенного диапазона  
   Print #1, i 'пишем (с начала)  
 Next  
 Close #1 'закрываем  
End Sub  
Копирование содержимого в текстовый файл_2  
Sub SaveAsText()  
  Dim cell As Range  
  ' Открытие файла для сохранения (имя файла соответствует имени _  
   рабочей книги, но отличается расширением - TXT)  
  Open ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".txt" _  
   For Output As #1  
  ' Запись содержимого заполненных ячеек таблицы в файл  
  For Each cell In ActiveSheet.UsedRange  
     If Not IsEmpty(cell) Then  
        Print #1, cell.Address, cell.Formula  
     End If  
  Next  
  ' Не забываем закрывать файл  
  Close #1  
End Sub  
Экспорт данных в txt  
Sub ExportAsText()  
  Dim lngRow As Long  
  Dim intCol As Integer  
 
  ' Открытие файла для сохранения  
  Open "C:\primer.txt" For Output As #1  
  ' Запись выделенной части таблицы в файл (построчно)  
  For lngRow = 1 To Selection.Rows.Count  
     ' Запись содержимого всех столбцов строки lngRow  
     For intCol = 1 To Selection.Columns.Count  
        Write #1, Selection.Cells(lngRow, intCol).Value;  
     Next intCol  
     ' Начнем новую строку в файле  
     Print #1, ""  
  Next lngRow  
  ' Не забываем закрыть файл  
  Close #1  
End Sub  
 
Sub ImportText()  
  Dim strLine As String         ' Одна строка файла  
  Dim strCurChar As String * 1  ' Анализируемый символ строки файла  
  Dim strValue As String        ' Значение для записи в ячейку  
  Dim lngRow As Long            ' Номер текущей строки  
  Dim intCol As Integer         ' Номер текущего столбца  
  Dim i As Integer  
 
  ' Открытие импортируемого файла  
  Open "C:\primer.txt" For Input As #1  
  ' Считываем все строки файла и записываем данные, разделенные _  
   запятой, в ячейки таблицы (начиная с текущей ячейки)  
  Do Until EOF(1)  
     ' Считываем строку из файла  
     Line Input #1, strLine  
     ' Разбираем считанную строку  
     For i = 1 To Len(strLine)  
        strCurChar = Mid(strLine, i, 1)  
        If strCurChar = "," Then  
           ' Найден разделитель столбцов - запятая. Запишем _  
            сформированное значение в ячейку  
           ActiveCell.Offset(lngRow, intCol) = strValue  
           intCol = intCol + 1  
           strValue = ""  
        ElseIf i = Len(strLine) Then  
           ' Конец строки - запишем в таблицу последнее _  
            значение в строке (перед этим дополним его последним _  
            символом строки, кроме кавычки)  
           If strCurChar <> Chr(34) Then  
              strValue = strValue & strCurChar  
           End If  
           ' Запись в таблицу  
           ActiveCell.Offset(lngRow, intCol) = strValue  
           strValue = ""  
        ElseIf strCurChar <> Chr(34) Then  
           ' Добавление символа в формируемое значение ячейки _  
            (кавычки игнорируются)  
           strValue = strValue & strCurChar  
        End If  
     Next i  
     ' Переход к новой строке таблицы  
     intCol = 0  
     lngRow = lngRow + 1  
  Loop  
  ' Закрываем файл  
  Close #1  
End Sub  
{/quote}

так?

{quote}{login=Казанский}{date=03.08.2011 11:05}{thema=}{post}Пробуйте кнопку 1{/post}{/quote}  
Спасибо. То, что нужно.  
Почти сделал тоже самое, не знал как несколько строк в settext засунуть  
{quote}  
s = s & vbTab & .List(i, j)  
d = d & vbCrLf & Mid$(s, 2){/quote}

{quote}{login=Казанский}{date=03.08.2011 10:20}{thema=}{post}А зачем в буфер? Юзер выбирает строки, выделяет ячейку, нажимает кнопку - ячейки заполняются.  
Если все же хочется через буфер, ищите DataObject.{/post}{/quote}  
Список достаточно большой, копировать и вставлять на разных листах. Возможно вообще в разных книгах. А может и при необходимости в разных приложениях.

Искал в нете и на форуме, написано много, но как то не то.  
Сабж: Есть листбох с больше чем 1 строкой. Юзер выбирает несколько произвольных строк. Как их скопировать в буфер, чтоб потом можно было бы вставить в ячейки  
а) если в листбоксе 1 столбец    
б) > 1  столбца  
 
PS    
Пример для одного столбца. LB отличаются только способом выделения. Нужно копировать по нажатию кнопки справа, чтоб можно было вставить в нужном месте.

{quote}{post}  
Здесь её нигде нет... :){/post}{/quote}  
Да без разницы:  
 
Public Function GET_F(source As String) As String    
 
GET_F = source & "" & "жирный текст" & ""  
   
End Function  
Теги из хтмл. для примера. В этом и вопрос, есть ли в MSE что-то подобное, как в ворде для переноса строки?  
 
 
Т.е. там "123" & "^P" & "456"  
 
это на печати:    
"123  
456"

{quote}{login=Alex_ST}{date=12.07.2011 04:40}{thema=}{post}  
Но если разное форматирование ТЕКСТА ВНУТРИ ЯЧЕЙКИ, то только макросом....{/post}  
{/quote}  
Это и имел ввиду.  
Все способы установки жирности приведены как свойства ячейки.  
Но вот например пользовательская функция =GET_F(Проверочный!S3)  
возвращает string, можно ли в этой строке (результат работы функции) указать жирность тегами?  
 
Например  
В ворде есть символы типа ^P, что значит новый абзац или типа того..

{quote}{login=Казанский}{date=12.07.2011 03:54}{thema=}{post}Только макросом и только с константами.  
Пробуйте менять значения в первом столбце Лист1.  
Макрос: правый клик на ярлычке Лист1 - Исходный текст.{/post}{/quote}  
 
а что быстрее будет работать, Ваш вариант или формула в каждой ячейке второго листа с парсингом значения первого7 (ну т.е. пользовательская функция)  
Книга очень сильно перегружена макросами.  
Функцию почти дописал. Но Ваш красивее, без сомнения...

С 1го листа на 2й тянуться данные. Можно ли на листе 2 макросом или условным форматированием выделять жирным текст до ";" ( если таковая присутствует). (если нет - не выделять)  
Обязательно ли на втором листе вставлять "данные"? можно ли делать это в ячейках с ссылками?