Function ConnectTo1C() As Boolean
Dim path7 As String
On Error Resume Next
ConnectTo1C = False

path7 = "/D\\Alla\Base\Train2"
path7 = path7 & " /NБухгалтер" ' User
path7 = path7 & " /P" ' Пароль

Set V7 = CreateObject("V77M.Application")
ConnectTo1C = V7.Initialize(V7.rmtrade, path7, "NO_SPLASH_SHOW")
End Function

Public Function Get1C_Clients()
Dim Spr, res As Variant
If V7 Is Nothing Then
  If Not ConnectTo1C Then
    MsgBox "Связь с 1Ц не установлена!", vbCritical, "УФО+"
    Set V7 = Nothing
    Exit Function
  End If
End If
res = V7.ОткрытьФормуМодально("Справочник.АФКлиенты.ФормаСписка", Spr)
If Not V7 Is Nothing Then
  V7.ExecuteBatch ("ЗавершитьРаботуСистемы((0);")
  Set V7 = Nothing
End If
End Function

res = V7.ОткрытьФормуМодально("Справочник.АФКлиенты.ФормаСписка", Spr)