+38 (067) 901-63-22

Корзина

0 товара(ов) на сумму
0 грн.

Скрипт для Excel для переноса информации из Depoer в Oberone

С некоторых пор, все счета открытые в Depoer должны быть перенесены в Oberone. Для этого, предназначена программка Undepoer, которая частично формирует Excel-файл на основании базы данных Depoer.

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

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

- Добавляет строку для каждого счета.

- Заполняет информацию о управляющем бумагами.

Текст данного макроса:

Sub Макрос1()

Rows("3:3").Select

NumRows = 2495

NumRows = NumRows*2

For x = 2 To NumRows+1

If (x Mod 2) = 0 Then

ActiveCell.Rows.EntireRow.Select

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

End If

If (x Mod 2) = 0 Then

Cells(x+1, 1).FormulaR1C1 = "Тут заполняем информацию в 1-й ячейке"

Cells(x+1, 2).FormulaR1C1 = "Заполняем код компании"

Cells(x+1, 3).FormulaR1C1 = "Заполняем название компании"

Cells(x+1, 4).FormulaR1C1 = "Заполняем название компании"

End If

ActiveCell.Offset(1, 0).Select

Next

End Sub

03.06.13, 11:32

Автор сообщения: К2® Рудюк Сергей Анатольевич (Блог К2 - http://corp2.net)