Почему тормозит VB

[Avtopic]

Здравствуйте!
Можете объяснить, почему может тормозить VB

два проекта:
1. VBA

Код: Выделить всё

Set db = OpenDatabase(Ph & "Link_map.mdb")
    Set r = db.OpenRecordset(Strng)
    ...
    Cells(5, 5).CopyFromRecordset r

2. VB
в референсах Excel и Dao
Excel открыт, и WSht = Sheet1

Код: Выделить всё

Set db = OpenDatabase(Ph & "Link_map.mdb")
    Set r = db.OpenRecordset(Strng)
    ...
    WSht.Cells(5, 5).CopyFromRecordset r

код во втором занимает три раза больше времени, чем в первом, хотя связывание раннее.

[keks-n]

Очевидно, потому что VBA работает в процессе Excel и нет нужды таскать данные из процесса в процесс.

[Avtopic]

Проблему решил следующими действиями

Код: Выделить всё

    ThreadID_Fr = GetWindowThreadProcessId(Form_hWnd, ByVal 0&)
    ThreadID_Ex = GetWindowThreadProcessId(Excel_hWnd, ByVal 0&)
    Call AttachThreadInput(ThreadID_Fr, ThreadID_Ex, True)
    SetActiveWindow   Excel_hWnd

    '...мои действия с рекордсетом и c заполнением листа

    Call AttachThreadInput(ThreadID_Fr, ThreadID_Ex, False)

Но почему это помогло не пойму.
Помогает не AttachThreadInput, она нужна только для SetActiveWindow, которая и помогает.

[Antonariy]

Потому что винда самостоятельно перераспределяет ресурсы системы между процессами и отдает приоритет обладателю активного окна. Давно не активировашиеся процессы может вообще из оперативки на винт сбросить.

[Avtopic]

Спасибо Antonariy, думал обо всем, но об этом не подумал.