Блог им. halssl

Данные из thinkorswim в excel

Решение проблемы для Excel 2016
Многие знают о замечательной функции thinkorswim передавать данные в реальном времени в Excel.
Данные из thinkorswim в excel
Все работало хорошо, но после обновления MS Office до 2016, все сломалось, данные в Excel не отображаются.
Вот решение проблемы. Необходимо выполнить макрос (нужно разрешение в настройках, на исполнение макросов):
Public Sub UpdateRTDFunction()
    Dim wks As Worksheet
    Dim rngFormula As Range, cell As Range
  
    With [Application]
        .EnableEvents = False
        .ScreenUpdating = False
    End With
  
    For Each [wks] In ThisWorkbook.Worksheets
        On Error Resume Next
        Set [rngFormula] = [wks].Cells.SpecialCells(xlCellTypeFormulas)
        On Error GoTo 0
        If [rngFormula] Is Nothing Then: Exit Sub
        For Each [cell] In [rngFormula]
            If InStr(1, [cell].Formula, "RTD") > 0 Then
                If InStr(1, [cell].Formula, ", ,") > 0 Then
                    [cell].Formula = Replace([cell].Formula, ", ,", ",""tos.rtd"",", 1)
                Else
                    [cell].Formula = Replace([cell].Formula, ",,", ",""tos.rtd"",", 1)
                End If
            End If
        Next [cell]
        [wks].Calculate
    Next [wks]
  
    Set [rngFormula] = Nothing
  
    With [Application]
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub
Нажимаем Alt+F8, создаем новый макрос, вставляем код, запускаем макрос — профит
★4

еще одна примочка, если вы в thinkorswim используете свои скрипты, которые делаются из «Custom 1», «Custom 2» и т.д. В Excel это поле должно называться, не как вы скрипт обозвали а «CUSTOM1», «CUSTOM2» и т.д.
avatar

hals

hals, Здравствуйте.   Попытался разобраться в алгоритме данных действий, но ничего не получилось. Не могли бы Вы помочь с этим вопросом (активация макроса и возможность передачи данных с ТОС). Спасибо. С уважением, Александр ( shirin71@mail.ru)

Только зарегистрированные и авторизованные пользователи могут оставлять комментарии.

Залогиниться

Зарегистрироваться
....все тэги
Регистрация
UPDONW