VBA to 1c - basic example

Sub UpdateFrom1c()

    ' CONN_STRING = "Srvr=db;Ref=crm;Usr=""enigma"";Pwd=""123"";" ' for server
    CONN_STRING = "File=""C:\\1C\\Trade"";Usr=""jimmy"";Pwd=""123""" ' for file
    Dim c_connector As Object
    Set c_connect = CreateObject("V83.COMConnector")
    Dim c_object As Object
    Set c_object = c_connect.Connect(CONN_STRING)

    Dim headers As Variant
    headers = Array("SKU_ID", "SKU_Name")
    Dim query As Object
    Set query = c_object.NewObject("Query")
    query.Text = "Выбрать первые 10 Номенклатура.Наименование КАК SKU_Name," & Chr(10) & _
        "Номенклатура.Код КАК SKU_ID" & Chr(10) & _
        "ИЗ Справочник.Номенклатура КАК Номенклатура"
'    Запрос1.УстановитьПараметр("НачалоПериода", глБаза.NewObject("Граница", КонецДня(ДатаОкончания), глБаза.ВидГраницы.Включая));

    Dim query_result As Object
    Set query_result = query.Execute().Choose()

    Dim i As Long
    Dim c As Integer

    c = 0
    For Each h In headers
        c = c + 1
        Cells(1, c).Value = h
    Next h

    i = 1
    Do While query_result.Next()
        i = i + 1
        c = 0
        For Each h In headers
            c = c + 1
            Cells(i, c).Value = CallByName(query_result, h, VbGet)
        Next h


    Loop


End Sub