Код

Sub TestMigrationSaveToExcel()
    Set fso = OpenOLEForm("Excel.Sheet", "Правила миграции")
    Set exc = fso.Worksheets(1)

    Dim ch(2)
    ch(0) = "Константа"
    ch(1) = "Справочник"
    ch(2) = "Документ"
    exc.Cells(1, 1) = "Тип"
    exc.Cells(1, 2) = "Вид"
    exc.Cells(1, 3) = "Правило миграции"
    exc.Cells(1, 4) = "Авторегистрация"
    exc.Cells(1, 5) = "Дополнительно"
    Row = 2
    For j = 0 To 2
	  Set Childs = MetaData.TaskDef.Childs(CStr(ch(j)))
	  For i = 0 To Childs.Count - 1
		Set mdo = Childs(i)
		Set mgr = MetaData.Migration(mdo.ID)
		exc.Cells(Row, 1) = ch(j)
		exc.Cells(Row, 2) = mdo.Name
		exc.Cells(Row, 3) = mgr.RuleOfMigration
		exc.Cells(Row, 4) = mgr.AutoRegister
		exc.Cells(Row, 5) = mgr.AdditDBSigns
		Row = Row + 1
	  Next
    Next
    fso.SaveAs IBDir & "migration.xls"
End Sub

Sub TestLoadMigrationFromExcel()
    Set fso = CreateObject("Excel.Application")
    fso.Visible = True
    Set exc = fso.Workbooks.Open(IBDir & "migration.xls")
    Set exc = exc.Worksheets(1)
    Row = 2
    On Error Resume Next
    While exc.Cells(Row, 1) <> Empty
	  Set mdo = Nothing
	  Name = "" & exc.Cells(Row, 1) & "." & exc.Cells(Row, 2)
	  Set mdo = MetaData.TaskDef.Childs(CStr(exc.Cells(Row, 1)))(CStr(exc.Cells(Row, 2)))
	  If mdo Is Nothing Then
		Message Name & " не найден в метаданных", mRedErr
	  Else
		Message "Загружен " & Name, mInformation
		Set mgr = MetaData.Migration(mdo.ID)
		mgr.RuleOfMigration = exc.Cells(Row, 3)
		mgr.AutoRegister = exc.Cells(Row, 4)
		mgr.AdditDBSigns = exc.Cells(Row, 5)
	  End If
	  Row = Row + 1
    Wend
End Sub