Вот у меня возник вопрос, можно ли VBA заставить работать с другим приложением помимо офисса, переключится на другое окно , работающего прложения реально, а вот совершать в нем какие то действия, например хотяб по пикселям идти считывать инфу , либо заполнять какие либо формы. (оффис 2003)

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

up вопрос актуален

timtimкопай в эту сторону:
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

спасибо ))) хожу брожу по и-нету пытаюсь найти как применить )) хелп вбашный не помог :(

timtimпосмотри например это
http://www.kbyte.ru/Expert/Show.aspx?id=358&lang=uk
о как, пасиб, но там же пример именно для VB 6.0 а не для вба.
вот той строкой которую ты мне дал, мы подключаем библиотку SendMessage?

Sub kill()
AppActivate "PCSWS"
Application.Wait (Now + TimeValue("0:00:2"))
x = 10
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Application.Wait (2)
SendMessage x

End Sub
при запуске такого макроса ,выделяет строку Public Declare... и пишет Только коментарии могут быть после End Sub , End Function , End property.
чует мое сердце я чето больно косячное делаю..

timtimDeclare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
это функция API, и её надо в модуль ложить

так ?


Option Explicit
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
____________________________
Sub kill()
Dim x
AppActivate "PCSWS"
Application.Wait (Now + TimeValue("0:00:2"))
x = 1


SendMessage x

End Sub
оно проглотило Declare нормально , теперь в SendMessage x ругается Variable not found.

Если убрать Option Expilit
то всеравно ругается на SendMessage (Argument not optional)

up

Итак, нашел решение, долга гуглил... ждал тут ответа ) ну вот , мож кому пригодится, запощу, все довольно просто :)
спешал для поиска:
другое приложение, открытие , левый клик мышью, эмуляция, курсор


Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal Y As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
Private Const MOUSEEVENTF_RIGHTUP As Long = &H10


Sub foo()
'activate the window
AppActivate "Untitled - Notepad"
'move the cursor where you need it, I guessed at 200,200
SetCursorPos 30, 30
'send a down event
mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0&
'and an up
mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&
End Sub

так, проблема, он зажимает кнопку, но не отпускает...хмм

а усе, проблема решается добавлением
Private Const MouseEVENTF_LEFTUP = &H4