Разовая работа для специалистов по Excel/VBA/VB

Nastyapo

Необходимо написать программу для работы с таблицами Excel: например, сложение нескольких таблиц одинакового формата.
Если у вас был опыт решения подобных задач, просьба оставлять свои телефоны или задавать имеющиеся вопросы. Более подробная информация будет доступна завтра. Оплата обсуждается.

vlador

проще, имхо, поискать уже написанные надстройки, возможно, то что тебе нужно есть уже реализованное и в добавок еще и бесплатное, хотя последнее - не факт

H3JIJIU

проще такое самому взботнуть - так как там все достаточно просто

Slawik75

конкретнее задачу, предполагаемое время/оплата? Насколько userfreindly интерфейс нужен?

mayuka

а чего нужно-то?
вот есть данные в одном листе, есть в другом.
нужно что - чтобы нажатием одной кпопки там все складывалось, считалось и результат красиво и пафосно в третий лист отправлялся.
параметры можно было менять, списочки и всю такую красоту навели чтобы?
правильно сказали - надстройки на этом уровне решают, юзерские макросы написать можно

kastodr33

проще такое самому взботнуть - так как там все достаточно просто
Не факт, если нужно разово просто не имеет смысла ботать, либо срочно и качественно банально не успеешь, и коряво будет. Вообще все зависит от поставленной задачи, которая пока что обрисована так, что можно на итоговом листе в ячейку А1 записать сумму яееек А1 из листов с данными, Растянуть это до нужного размера, и формат скопировать, и сию последовательность действий записать в макрос. Но думаю там все-же нечто менее тривиальное.

aksirob

Прогу напишу, 3000 руб

Nastyapo

Формулирую задачу более конкретно:
Есть n однотипных файлов Excel с заявками в отдельной папке или в архиве. Программа должна выдавать таблицу, в которой соответствующие ячейки всех n таблиц суммируются.
Язык реализации не важен. Есть похожая программа, реализованная в Делфи.
Срок исполнения: 2-3 дня.

kastodr33

Формулирую задачу более конкретно:
А имена файлов в каком-то виде есть? В столбце эксель например, или их каждый раз разное число/названия и программа сама детектить должна?

Nastyapo

Имена файлов могут быть произвольными.

Nastyapo

Могу отправить образец исходных таблиц.

sokrat

Давай.
И какова цена вопроса?
P.S. Сдается мне что на WindowsScriptHost это можно налабать.

Nastyapo

Цена вопроса - $100.

sokrat

Покажи файлы.
P.S. Можно пару в zip пожать, а аплоад выложить и ссылку приватом послать, но лучше прям в топике.

Nastyapo

http://ifolder.ru/6543286
По ссылке пример файла.

sokrat

Не понял, в итоговом файле что ли надо показать всего три ячейки, содержащих суммы T35, V35 и X35, что ли?
Или же не 35, а надо узнавать? Сумму каких полей то надо считать? И что должно быть в результате?

Nastyapo

В итоговом файле останется только область B20:X35, в ней должны быть суммы по каждой позиции и по цвету, кол-во коробок, вес по каждой позиции, общее количество коробок и общий вес. Обычное сложение таблиц.

sokrat

Если в остальных файлах расположение такое же и значения в B20:B35 одно и то же, т.е. текст во всех файлах одинаков, то могу сделать.
Из какого архива надо извлекать файлы? (имя.тип или из всех в конкретной папке?)

Nastyapo

Да, таблицы совершенно одинаковые.
Архив RAR или отдельная папка - не важно.
Есть ли возможность прислать несколько картинок, как это будет реализовано, хочется посмотреть на интерфейс?
Если все ок, есть ли возможность приехать в наш офис на Войковской? Остальное общение предлагаю продолжить в привате.

sokrat

Эммм, ну собственно это будет один фаил Имя_Скрипта.vbs, который надо запустить, тыкнув по нему мышкой.
Т.е. никакого интерфейса не будет (а что в нем должно быть? кнопка пуск что ли?)
Если надо, чтобы он спрашивал вначале папку, которую надо обрабатывать, то можно и окошко вывести еще.
Вообще скрипт - это обычный текстовый фаил с командами и его редактировать можно прямо в блокноте, потому папку для обработки можно задать в самой первой строке скрипта и не показывать окно (зачем пользователя мучать?).
После того, как скрипт отработает получившийся Excel файл с результатом будет показан пользователю.
Или еще что то надо?

Nastyapo

В общем это то, что нам нужно.

sokrat

Вообщем, вот типа заготовка. Пока что форматирование нет и надписей, но все считается.
Содержимое поместить в фаил с расширением vbs. Документы в папку, определяемую в первой строчке (разумеется надо свою вписать)

strFolderName = "D:\CODES\Excel\Docs"

Set objFSO = CreateObject("Scripting.FileSystemObject")

If not objFSO.FolderExists (strFolderName) Then
MsgBox "Папки """ & strFolderName & """ не существует"
WScript.Quit (0)
End If
set objFolder = objFSO.GetFolder(strFolderName)

Set objXL = WScript.CreateObject("Excel.Application")
objXL.Visible = True
objXL.DisplayAlerts = False
Set objWB = objXL.Workbooks.Add

Set objFileSearch = objFolder.Files
For Each objF1 in objFileSearch
Set objWB2 = objXL.Workbooks.Open (strFolderName & "\\" & objF1.name)
objWB2.ActiveSheet.Range("E21:X35").Copy
objWB.ActiveSheet.Range("E21:X35").PasteSpecial -4104, 2, False, False
objWB2.Close
Next

objWB.Activate

Serg1912

Это я

sokrat

Что на приват не отвечаешь?
Оставить комментарий
Имя или ник:
Комментарий: