Private Sub TextBox1_Change()
    If Me.TextBox1 Like "*" & "RECEIVED" & "*" Then Call fetchHistoricalData
    If Me.TextBox1 Like "*" & "FINISHED" & "*" Then Call formula
End Sub

Public k As Long

Sub fetchHistoricalData()
'This variable will store the incoming data
'Эта переменная будет хранить поступающие данные
Dim TheArray() As Variant
'Fetch the data from the TWS...
'Принесите данные от TWS...
'(Replace sample123 with your own TWS username!)
'(Заменяют sample123 Вашим собственным именем пользователя TWS!)
TheArray = getData("ЛОГИН", "hist", "id4?result")
'... and pass the result into another function which will populate the sheet
'... и переносим результат в другую функцию, которая заполнит лист
Call populate(TheArray)
End Sub

'This function triggers a DDE request and returns its response
'Эта функция вызывает запрос DDE и возвращает его ответ
Function getData(serverName, topic, request)
Dim chan As Integer
'Initiate the DDE channel
'Инициация канала DDE
chan = Application.DDEInitiate(serverName, topic)
'Perform the request
'Выполняем запрос
getData = Application.DDERequest(chan, request)
'Terminate the channel
'Закрываем канал
Application.DDETerminate chan
End Function

'Populate our blank sheet with the incoming data
'Заполняем наш чистый лист с поступающими данными
Sub populate(ByRef TheArray() As Variant)

'Книга
NewBook = ""
' Путь, где будут храниться наши файлы
' Т.е. в той папке, откуда запустился файл с макросом
Path = ThisWorkbook.Path

' Выбираем лист с данными
Sheets("Лист1").Select
' Запускаем цикл, скажем на 100000 итераций
' Начиная со второй строки, не учитывая заголовок
For k = 2 To 10000
' Выйдем из него, когда строки закончатся
If Cells(k, 1).Value = "" Then
        k = 10000
    Exit For
End If
' Имя файла карточки, назовем по значению первой ячейки строки
Name_file = Path & "\" & Sheets("Лист1").Cells(k, 1).Value & ".xls"

    ' Создаем новую книгу или делаем ее активной
    If NewBook = "" Then
        Workbooks.Add
        NewBook = ActiveWorkbook.Name
    Else
        Workbooks(NewBook).Activate
        Cells(1, 1).Select
    End If
    
'Watch out for empty possible errors and handle properly.
'Не упустите пустые возможные ошибки и ручку должным образом.
On Error GoTo ErrHandler
For i = 1 To UBound(TheArray)
Range("A" & i + 1).Value = TheArray(i, 1)
Range("B" & i + 1).Value = TheArray(i, 2)
Range("C" & i + 1).Value = TheArray(i, 3)
Range("D" & i + 1).Value = TheArray(i, 4)
Range("E" & i + 1).Value = TheArray(i, 5)
Range("F" & i + 1).Value = TheArray(i, 6)
Range("G" & i + 1).Value = TheArray(i, 7)
Range("H" & i + 1).Value = TheArray(i, 8)
Range("I" & i + 1).Value = TheArray(i, 9)
Next
ErrHandler:

    ' Сохраняем с нашим новым названием
    ActiveWorkbook.SaveAs Filename:= _
    Name_file, FileFormat:=xlExcel8, _
    Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
    CreateBackup:=False
    NewBook = ActiveWorkbook.Name
    Application.DisplayAlerts = True
    ' Снова активируем файл с макросом и выбираем лист
    Workbooks("Запуск макроса по DDE 02.xlsm").Activate
    Sheets("Лист1").Select
' Переходим к следующей строке
Next k
' Закроем книгу
Workbooks(NewBook).Close
' Выведем сообщение об окончании
'MsgBox ("Выполнено!")
Exit Sub
End Sub

 Sub formula()
   Range("A1").Value=Replace("=SЛОГИН|hist!'id4?req?BIDU_STK_SMART_USD_~/20170611singleSpace23singleColon59singleColon59_5singleSpaceW_11_TRADES_1_1'", "BIDU", Cells(k + 2, 1))
  ' i = i + 1
 End Sub

Sub ResetVar()
    k = 0
End Sub

Private Sub TextBox1_Change()
    If Me.TextBox1 Like "*" & "RECEIVED" & "*" Then Call fetchHistoricalData
    If Me.TextBox1 Like "*" & "FINISHED" & "*" Then Call formula
End Sub

 Sub formula()
   Range("A1").Value = "=SЛОГИН|hist!'id4?req?AAPL_STK_SMART_USD_~/20170611singleSpace23singleColon59singleColon59_5singleSpaceW_11_TRADES_1_1'"
 End Sub

 Sub formula()
 Range("A1").Value = "=SЛОГИН|hist!'id4?req?ИМЯ_ЯЧЕЙКИ_STK_SMART_USD_~/20170611singleSpace23singleColon59singleColon59_5singleSpaceW_11_TRADES_1_1'"
 End Sub