Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.10.2011, 23:00   #1
lyb4eg
Пользователь
 
Регистрация: 06.08.2011
Сообщений: 76
По умолчанию макрос авто сумы...

Подскажите пожалуйста, как настроить макрос для следующих действий:
записал макрос для экспорта .txt файла в Excel, и суммирования столбца с данными. Каждый день в Excel будет подтягиваться этим макросом .txt файл, все файлы будут с одинаковым именем, но столбцы которые будут считаться, разной длины... Как настроить так, что бы сума всегда была внизу столбца?
В приложенном архиве 2 файла, если записать макрос по первому, а потом попытаться подтянуть второй, то считать не будет...
Вложения
Тип файла: rar invoice.rar (734 байт, 10 просмотров)
lyb4eg вне форума Ответить с цитированием
Старый 25.10.2011, 23:12   #2
alex77755
Форумчанин
 
Аватар для alex77755
 
Регистрация: 14.02.2009
Сообщений: 753
По умолчанию

Во первых файлы разных форматов.
А по существу - есть несколько способов определить размер таблицы и вписать внизу формулу автосуммирования.
Или пойти по другому пути: считать текстовик в переменную.
Разбить на массив. Произвести необходимые вычисления и вывалить готовый массив на лист
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru
alex77755 вне форума Ответить с цитированием
Старый 26.10.2011, 02:53   #3
lyb4eg
Пользователь
 
Регистрация: 06.08.2011
Сообщений: 76
По умолчанию

Цитата:
Сообщение от alex77755 Посмотреть сообщение
Во первых файлы разных форматов.
А по существу - есть несколько способов определить размер таблицы и вписать внизу формулу автосуммирования.
Или пойти по другому пути: считать текстовик в переменную.
Разбить на массив. Произвести необходимые вычисления и вывалить готовый массив на лист
Оба файла txt, или что Вы имели ввиду?
С Ваших слов я понял, что все элементарно, но простите мои знания не позволяют мне этого сделать(( можете привести пример?
lyb4eg вне форума Ответить с цитированием
Старый 26.10.2011, 11:34   #4
alex77755
Форумчанин
 
Аватар для alex77755
 
Регистрация: 14.02.2009
Сообщений: 753
По умолчанию

не совсем понятно "подтянуть"
после "подтягивания" данніе должні замениться или добавится?
А разные форматы у тектовых файлол это значит, что в одном файле разделитель табуляция, а в другом запятая.
Поэтому если просто был записан макрос, то он работать не будет для некоторых файлоф.
Поэтому нужны образцы файлов.
Если же файлы могут быть и такие и такие, то это можно предусмотреть в макросе.
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru
alex77755 вне форума Ответить с цитированием
Старый 26.10.2011, 11:54   #5
lyb4eg
Пользователь
 
Регистрация: 06.08.2011
Сообщений: 76
По умолчанию

Цитата:
Сообщение от alex77755 Посмотреть сообщение
не совсем понятно "подтянуть"
после "подтягивания" данніе должні замениться или добавится?
А разные форматы у тектовых файлол это значит, что в одном файле разделитель табуляция, а в другом запятая.
Поэтому если просто был записан макрос, то он работать не будет для некоторых файлоф.
Поэтому нужны образцы файлов.
Если же файлы могут быть и такие и такие, то это можно предусмотреть в макросе.
Подтянуть = экспортировать. после экспортирования данные должны заменяться
Разделитель всегда будет запятая, извините, загрузил отформатированный файл. Ниже привел вместимость файлов.

Invoice1.txt
InvoiceDate,InvoiceNumber,SalesRepN umber,CustomerNumber,ProductRevenue ,ServiceRevenue,ProductCost
6/9/2008,123829,S21,C8754,21000,0,9875
6/9/2008,123830,S45,C3390,188100,0,8508 3
6/9/2008,123831,S54,C2523,510600,0,2811 58
6/9/2008,123832,S21,C5519,86200,0,49967
6/9/2008,123833,S45,C3245,800100,0,3882 77
6/9/2008,123834,S54,C7796,339000,0,1952 98
6/9/2008,123835,S21,C1654,161000,0,9076 1
6/9/2008,123836,S45,C6460,275500,10000, 146341
6/9/2008,123837,S54,C5143,925400,0,4735 15
6/9/2008,123838,S21,C7868,148200,0,7570 0
6/9/2008,123839,S45,C3310,890200,0,4683 33
6/9/2008,123840,S54,C2959,986000,0,5289 80
6/9/2008,123841,S21,C8361,94400,0,53180
6/9/2008,123842,S45,C1842,36500,55000,2 0696
6/9/2008,123843,S54,C4107,599700,0,2767 18
6/9/2008,123844,S21,C5205,244900,0,1433 93
6/9/2008,123845,S45,C7745,63000,0,35102
6/9/2008,123846,S54,C1730,212600,0,1177 87
6/9/2008,123847,S21,C6292,974700,0,4787 31
6/9/2008,123848,S45,C2008,327700,0,1709 68
6/9/2008,123849,S54,C4096,30700,0,18056

Invoice2.txt
InvoiceDate,InvoiceNumber,SalesRepN umber,CustomerNumber,ProductRevenue ,ServiceRevenue,ProductCost
6/10/2008,123850,,C1654,161000,0,90761
6/10/2008,123851,,C6460,275500,10000,146 341
6/10/2008,123852,,C5143,925400,0,473515
6/10/2008,123853,,C7868,148200,0,75700
6/10/2008,123854,,C3310,890200,0,468333

Последний раз редактировалось lyb4eg; 26.10.2011 в 12:08.
lyb4eg вне форума Ответить с цитированием
Старый 26.10.2011, 12:20   #6
alex77755
Форумчанин
 
Аватар для alex77755
 
Регистрация: 14.02.2009
Сообщений: 753
По умолчанию

суммировать какие столбцы?
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru
alex77755 вне форума Ответить с цитированием
Старый 26.10.2011, 12:34   #7
lyb4eg
Пользователь
 
Регистрация: 06.08.2011
Сообщений: 76
По умолчанию

Цитата:
Сообщение от alex77755 Посмотреть сообщение
суммировать какие столбцы?
Находить суму значений столбца "ProductRevenue"
lyb4eg вне форума Ответить с цитированием
Старый 26.10.2011, 12:56   #8
alex77755
Форумчанин
 
Аватар для alex77755
 
Регистрация: 14.02.2009
Сообщений: 753
По умолчанию

Файлы можно указывать как в первом так и во втором форматировании.
В программе предусмотрено
Вложения
Тип файла: rar invoice.rar (11.9 Кб, 14 просмотров)
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru
alex77755 вне форума Ответить с цитированием
Старый 26.10.2011, 14:32   #9
lyb4eg
Пользователь
 
Регистрация: 06.08.2011
Сообщений: 76
По умолчанию

Цитата:
Сообщение от alex77755 Посмотреть сообщение
Файлы можно указывать как в первом так и во втором форматировании.
В программе предусмотрено
Спасибо огромнейшее!!!!
lyb4eg вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Макрос постоянно обрабатывает события. При открытии другой книги макрос обрывается. Ples Microsoft Office Excel 8 17.12.2016 18:15
Можно ли число N представить в виде сумы двух квадратов натуральных чисел? Dima170792 Помощь студентам 2 24.06.2011 08:53
Подсчет сумы в таблице на Delphi ayris666 Помощь студентам 5 10.06.2011 15:54
Макрос по авто сохранению данных в формат CSV, где ошибки? TKinfront Microsoft Office Excel 0 21.03.2011 21:35
Макрос вставки файлов в листы-Необходимо изменить ниже приведённый макрос as-is Microsoft Office Excel 4 25.02.2010 07:51