Возможно ли написать в VB/VBA(Ex) софтину, которая бы управляла программой (или usb устройством)

[RussellMur]

Осталось только открыть уже в открытом Excel'е книгу c:/temp/file.xls
никто не знает как лучше?

[EducatedFool]

А что тут сложного?

Workbooks.Open "c:\temp\file.xls"

[RussellMur]

Сообщение от EducatedFool

А что тут сложного?

Workbooks.Open "c:\temp\file.xls"

Я думаю вы имели ввиду VBA
поясню: процесс Excel открыт программой извне. в нём одна пустая Книга1 без макросов каких бы то ни было...
необходимо программно открыть ИМЕННО в ЭТОМ процессе файл "c:\temp\file.xls"
(посредством VB6 скомпилированного EXE-файла например)

[EducatedFool]

Ну тогда так: (вставьте этот код в VB)

Sub main()
    Path = "C:\Documents and Settings\Игорь\Рабочий стол\Книга555.xls"
    AppActivate "Microsoft Excel", True    ' активируем приложение
    DoEvents: DoEvents: DoEvents: DoEvents: SendKeys "^o"    ' команда "Открыть"
    For i = 1 To Len(Path)    ' посылаем имя файла по одной букве (через паузу)
        DoEvents: DoEvents: DoEvents: DoEvents: SendKeys Mid$(Path, i, 1)
    Next
    DoEvents: DoEvents: DoEvents: DoEvents: SendKeys "~"    ' посылаем Enter
End Sub

Проверял на своём компе - всё отлично работает.
Чем не вариант?

PS: Не забудьте отключить PuntoSwitcher (и другие перехватчики клавиатуры), если таковые имеются.
Предварительно не забудьте проверить, что файл с таким именем существует.

[RussellMur]

Сообщение от EducatedFool

Проверял на своём компе - всё отлично работает.
Чем не вариант?

Спасибо за участие. попробовал, но как-то не очень понравилось.
Сделал так:

Private Declare Function FindWindow Lib "user32" Alias _
        "FindWindowA" (ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
Declare Function OpenIcon Lib "user32" _
                (ByVal hWnd As Long) As Long
Declare Function WindowFromPoint Lib "user32" _
                (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function SendMessage Lib "user32" _
                Alias "SendMessageA" (ByVal hWnd As Long, _
                ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function PostMessage Lib "user32" _
                Alias "PostMessageA" _
                (ByVal hWnd As Long, _
                ByVal wMsg As Long, _
                ByVal wParam As Long, _
                lParam As Long) As Long
Private Declare Function FindWindowEx Lib "user32" _
                Alias "FindWindowExA" (ByVal hWnd1 As Long, _
                ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SetActiveWindow Lib "user32" _
                (ByVal hWnd As Long) As Long
Public Declare Sub Sleep Lib "kernel32" ( _
                ByVal dwMilliseconds As Long)
Const CB_SETCURSEL = &H14E
Const BM_CLICK = &HF5
Const WM_SETTEXT = &HC
Const CB_SELECTSTRING = &H14D
Const WM_USER = 1024
Dim h1 As Long
Dim h2 As Long
Dim h3 As Long
Dim s As Long

Sub Main()
Call Close_ExRcv
Call Close_EXCEL
Call Run_ExRcv

On Error Resume Next
For X = 1 To 100
h1 = FindWindow(vbNullString, ByVal "ExRcv")
If h1 > 0 Then Exit For
Sleep (200)
Next
h2 = FindWindowEx(h1, 0, "ThunderRT6ComboBox", vbNullString)
h2 = FindWindowEx(h1, h2, "ThunderRT6ComboBox", vbNullString)
Call SendMessage(h2, CB_SETCURSEL, 0, 0)

h3 = FindWindowEx(h1, 0, "ThunderRT6CommandButton", "Start")
Call PostMessage(h3, BM_CLICK, 0, 0)
For X = 1 To 100
h1 = FindWindow("XLMAIN", vbNullString)
If h1 > 0 Then Exit For
Sleep (200)
Next
Sleep (1000)
    Dim MyXL As Object
    Dim ExcelWasNotRunning As Boolean
    If h1 = 0 Then
        Call Close_ExRcv
        Call Close_EXCEL
        Exit Sub
    Else
        SendMessage h1, WM_USER + 18, 0, 0
    End If

    Set MyXL = GetObject("C:\Program Files\ExRcv\promur.xls")
    MyXL.Application.Visible = True
    MyXL.Parent.Windows(1).Visible = True

    If ExcelWasNotRunning = True Then MyXL.Application.Quit
Call Close_ExRcv
Call Close_EXCEL
    Set MyXL = Nothing
        
End Sub

Sub Run_ExRcv()
On Error Resume Next
Set objClass = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2:Win32_Process")
If Err.Number <> 0 Then
    WScript.Echo Err.Number & ": " & Err.Description
    WScript.Quit
End If
Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
If Err.Number <> 0 Then
    WScript.Echo Err.Number & ": " & Err.Description
    WScript.Quit
End If
Set objStartup = objService.Get("Win32_ProcessStartup")
Set objConfig = objStartup.SpawnInstance_
objConfig.ShowWindow = 2
Res = objClass.Create("C:\Program Files\ExRcv\ExRcv.exe", Null, objConfig, PID)
If Res <> 0 Then
    WScript.Echo "Код ошибки: " & Res
End If
End Sub

Sub Close_ExRcv()
On Error Resume Next
Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
If Err.Number <> 0 Then
    WScript.Echo Err.Number & ": " & Err.Description
    WScript.Quit
End If
For Each objProc In objService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'ExRcv.exe'")
    objProc.Terminate
Next
End Sub

Sub Close_EXCEL()
On Error Resume Next
Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
If Err.Number <> 0 Then
    WScript.Echo Err.Number & ": " & Err.Description
    WScript.Quit
End If
For Each objProc In objService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'EXCEL.exe'")
    objProc.Terminate
Next

End Sub