Использование одного XLS файла двумя программами.

привет! такой вопрос-с программы брокера идут котировки акций в excel файл присланный брокером, там ими написан макрос, который их(котировки) обновляет каждую секунду. написал аппликацию на VB в которой нажимаешь на кнопочку-файлик эксела открываеться, котировки беруться оттуда и и после определенных калькуляций в этой VB программе показываються. все вроде хорошо, но понадобилась вторая такая (примерно программа) а эти самые котировки могут одновременно идти только в один эксель файл. т.е-если откроешь его же еще раз-ничего там не обновляеться. в первой аппликации я создаю объект как эксел аппликацию, потом workbook и т.д. теперь собственно вопрос-как мне привязать вторую аппликацию к этому же (уже открытому эксел файлу)? покопавшись в форуме-я нашел как определить-открыт ли этот файл, но вот как сделать что бы 2 разных аппликации брали одни и те же данные с одного и того же открытого excel worksheet--я чегой-то не врублюсь.......
Заранее благодарен!
Спасибо!

0

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

0

Создаю объекты-
Public Obj As Excel.Application
Public ExWorkBook As Excel.Workbook

потом открываю-
Set Obj = New Excel.Application
Obj.Visible = True
Set ExWorkBook = Obj.Workbooks.Open('C:ExcelNASDAQ.xls')

ну и потом беру данные с определенных cell-
arrStock(i).Last = ExWorkBook.Application.Cells(8, 'M')
к примеру.....
данные в этом файле обновляються каждую секунду
моя задача-взять данные с других cell у этого же УЖЕ ОТКРЫТОГО файла
другой программой. как это можно сделать? если не трудно, также киньте ссылку, где можно почитать, про то как брать данные с экселя SQl-ом.
Спасибо!

0

Dim db As ADODB.Connection
Dim adoRS As ADODB.Recordset

Private Sub cmdExcelSelect_Click()
Dim strSQL As String
Dim strPath As String
On Error GoTo er
'strSQL = 'SELECT * FROM B;' ',C:C,AA:AA ,,[AA:AA].f3
Set adoRS = New ADODB.Recordset

adoRS.Open 'SELECT right([f1],18) AS kod,left(f3,2) AS plant,f26 AS Summ ' & _
'FROM B:AA WHERE f1 LIKE '.%'', db, adOpenDynamic, adLockBatchOptimistic, adCmdText

Set DataGrid1.DataSource = adoRS
Exit Sub
er:
Var = Err.Description
Debug.Print Var
MsgBox Var, vbCritical
End Sub

Private Sub Form_Load()
Dim strconnect As String

Set db = New ADODB.Connection
db.CursorLocation = adUseClient

strPath = 'C:MyprogProjectsЗаказДРиВНР.xls;'
'db.Open 'Driver={Microsoft Excel Driver (*.xls)};' & _
'DriverId=790;' & _
'Dbq=' & strPath & _
'DefaultDir=C:MyprogProjects;'
strconnect = 'Provider=Microsoft.Jet.OLEDB.4.0ata Source=' & _
strPath & ';Extended Properties=''Excel 8.0;HDR=NO'''
'strconnect = strconnect & ';Provider=sqloledb;' & _
'Data Source=sql;' & _
'Initial Catalog=Test;' & _
'User Id=test;' & _
'Password=test;'
db.Open strconnect

End Sub

0

Спасибо! буду копать дальше!

0