Работа с тремя файлами одновременно

[ShamanK]

парни помогите пожалуйста

что есть:

файлы:
robot.xls
оrders.xlsm
quotes.xls

действия

файл robot.xls открывает два других файла.
робот следит за поступающими в него данными через ДДЕ
как только срабатывает условие по какой либо акции, он должен посмотреть есть ли уже эта акция в файле оrders.xlsm ( это то как раз я и не могу сделать - ума не хватает ), если есть то не сообщать мне о сигнале , если нет то в определенной ячейке он показывает бай или сел ( это сделано )
и если я вижу данный сигнал то передаю его в файлы оrders.xlsm и quotes.xls ( это сделано )

файл quotes.xls посылает торговый приказ в торговую платформу ( это сделано )
файл оrders.xlsm следит за рынком и за этим ордером, и при определенных условиях изменяет его либо удаляет. ( слежение за рынком сделано - а вот как обратиться к другой открытой книге quotes.xls - не понимаю)

парни - практически все сделано
единственная загвоздка
1 - как организовать поиск из файла robot.xls в файле оrders.xlsm чтобы определять показывать торговый сигнал или нет в файле robot.xls
2 - как обратиться из файла оrders.xlsm в файл quotes.xls ???


с большой надеждой на вашу помощь!

[doober]

Посмотрите,может идею Вам подскажу.
Запускаем все три книги
В оrders жмем кнопки,и смотрим

[ShamanK]

большое спасибо! все получилось

[ShamanK]

уважаемый doober
с вашим классом разобрался,
удалил от туда почти все что можно было оставил только что надо, и малость его изменил

в файле ордерс:

ЭТА КНИГА

Private Sub Workbook_Open()
Initialize
End Sub

МОДУЛЬ1:

Public XLApp As New AppClass
Public Const robot1 As String = "robot1.xls"
Public Const оrders1 As String = "оrders1.xls"
Public Const quotes1 As String = "quotes1.xls"

Sub Initialize()
    Set XLApp.app = Application
End Sub

КЛАСС AppClass:

Option Explicit
Public WithEvents app As Application, sh As Worksheet, sh1 As Worksheet ', sh2 As Worksheet

Private Sub app_SheetSelectionChange(ByVal sk As Object, ByVal Target As Range)
  Dim r As Integer, c As Integer
    
    Set sh = app.Workbooks(quotes1).Worksheets(1)
    Set sh1 = app.Workbooks(robot1).Worksheets(1)
  
    r = ActiveCell.Row
    c = ActiveCell.Column
sh.Cells(1, 3) = r * c
sh1.Cells(1, 3) = r * c
  '  Rows(r).Delete Shift:=xlUp
End Sub

вы видите что я изменил на

SheetSelectionChange

мне необходимо чтобы макрос выполнялся при выделении определенных ячеек.
все работает на ура. в двух других файлах вставляется тестовое число.
однако я столкнулся с другой проблемой -
данный класс функционирует во всех книгах!
и при выделении в любой книги любой ячейки начинает исполняться этот макрос.


как создать условие при котором макрос бы запускался в зависимости от того в какой книге была выделена ячейка?

[doober]

Option Explicit
Public WithEvents app As Application, sh As Worksheet, sh1  As Worksheet ', sh2 As Worksheet
Public wb As Workbook
Private Sub app_SheetSelectionChange(ByVal sk As Object, ByVal Target As Range)
  Dim r As Integer, c As Integer
    On Error Resume Next
    Set sh = app.Workbooks(quotes1).Worksheets(1)
    Set sh1 = app.Workbooks(robot1).Worksheets(1)
 
   Set wb = app.ActiveWorkbook
 
  
  
  Select Case wb.Name
  
  Case robot1
   MsgBox ("Книга Робот")
  
  Case оrders1
   MsgBox ("Книга Ордерс")
  
  Case quotes1
  
 MsgBox ("Книга Кветс")
  
 End Select
  
  
    r = ActiveCell.Row
    c = ActiveCell.Column
sh.Cells(1, 3) = r * c
sh1.Cells(1, 3) = r * c
  '  Rows(r).Delete Shift:=xlUp
End Sub

Я думаю все понятно