Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.50/26: Рейтинг темы: голосов - 26, средняя оценка - 4.50
Nata42
0 / 0 / 0
Регистрация: 15.04.2013
Сообщений: 17
1

Собрать свод из Excel файлов, присылаемых по почте

15.04.2013, 09:39. Просмотров 5352. Ответов 31
Метки нет (Все метки)

Уважаемые форумчане! Я не программист и к программированию не имею никакого отношения..НО.... В процессе своей трудовой деятельности столкнулась вот с чем. Ежемесячно необходимо собирать отчет в EXCEL с 42-х управлений и делать свод, который в последствии увязывается с разными приложениями и проверяется. Помогите автоматизировать процесс копирования. Отчеты приходят на почтовый ящик, открываю который через outlook express. Моя задача ускорить процесс копирования, чтоб отчет каждого управления занимал соответствующий порядковый номер в своде.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.04.2013, 09:39
Ответы с готовыми решениями:

Access создание excel файлов и их отправка по почте
Здравствуйте я совсем запутался помогите, Есть таблица "Задачи" в ней есть поля "Сотрудник",...

Собрать кучу файлов в один файл Excel
Добрый день! И снова смиренно прошу советов гуру. Исходные данные: около 600 файлов формата csv(3...

VBA EXCEL: Собрать кучу файлов в один
В папке находится куча xls файлов. У всех у них одинаковая структура. Но она может меняться...

Свод по нескольким листам Excel
Всем привет, очень нужна помощь ! Есть такая задачка : в файле Excel имеется несколько листов (...

VBA Excel свод данных разных вкладок в одну, при условиях
Добрый вечер, люди! Такой вопрос: Есть файл, в нем три вкладки (лист1,лист2,лист3), в 1 вкладку...

31
IvanOK
693 / 99 / 10
Регистрация: 25.06.2011
Сообщений: 718
15.04.2013, 11:50 2
файлы в студию
1
Nata42
0 / 0 / 0
Регистрация: 15.04.2013
Сообщений: 17
15.04.2013, 12:02  [ТС] 3
хоть и не блондинка, но не могу разобраться как это сделать. Файл в виде таблице
0
IvanOK
693 / 99 / 10
Регистрация: 25.06.2011
Сообщений: 718
15.04.2013, 12:18 4
Nata42, те файлы...которые хотите собрать в одно
1
15.04.2013, 12:18
Казанский
14901 / 6305 / 1718
Регистрация: 24.09.2011
Сообщений: 9,977
15.04.2013, 13:18 5
Цитата Сообщение от Nata42 Посмотреть сообщение
не могу разобраться как это сделать
Приложить файлы? Расширенный режим - Управление вложениями.
1
Nata42
0 / 0 / 0
Регистрация: 15.04.2013
Сообщений: 17
15.04.2013, 13:22  [ТС] 6
Спасибо, не увидела!
0
Вложения
Тип файла: xls forma 1-EDV06 01.07.2012.xls (70.0 Кб, 71 просмотров)
IvanOK
693 / 99 / 10
Регистрация: 25.06.2011
Сообщений: 718
15.04.2013, 13:24 7
Казанский, наверно нужна инструкция у виде Print Screen

Добавлено через 1 минуту
Nata42, теперь к делу ....что и куда нужно делать
1
Nata42
0 / 0 / 0
Регистрация: 15.04.2013
Сообщений: 17
15.04.2013, 13:33  [ТС] 8
Вот в таком виде приходит сам отчет....к нему также идут приложения, и соответственно каждый месяц приходится вручную копировать и вставлять листочки в своды. сам отчет 42 листа (42 управления), плюс каждое приложение также. работа конечно до дури проста, но хочется не тратить время на такие действия

Добавлено через 2 минуты
Думается мне должен быть макрос, каждое управление должно всегда быть закодировано под одним и тем же номером и при копировании автоматически № 1 занимать место на первом листе в сводном файле

Добавлено через 1 минуту
Сейчас сделано так. 42 листа. потом лист 43-сводный, где суммируются суммы и прочее. просто от руки заложены формулы. далее идут листы в развернутом виде..проверка от прошлого отчета и прочее

Добавлено через 3 минуты
либо отчеты сначала нужно сохранить все в одну папку, а потом они автоматически встанут на свои места..

Добавлено через 1 минуту
Могу в принципе выложить вообще все своды эти, если объем позволит
0
Nata42
0 / 0 / 0
Регистрация: 15.04.2013
Сообщений: 17
15.04.2013, 13:36  [ТС] 9
Вот так выглядит заготовка свода к след. месяцу
0
Вложения
Тип файла: doc Документ Microsoft Word (2).doc (98.5 Кб, 33 просмотров)
IvanOK
693 / 99 / 10
Регистрация: 25.06.2011
Сообщений: 718
15.04.2013, 14:07 10
интересет:
1. Имеют ли каждое подраздиление фиксированую назву или ето нужно делать с участием пользователя;
2. Изменяеться ли сама форма;

Добавлено через 49 секунд
и если можете то приложыте форму одного файла который вы вставляете
0
Nata42
0 / 0 / 0
Регистрация: 15.04.2013
Сообщений: 17
15.04.2013, 14:17  [ТС] 11
Вообще, их всех можно обязать называться например просто 1, 2. 3.. или же Полысаево, Калтан и т.д. Просто те док-ты, кт. я отправляю вышестоящему органу, у нас имеют строго определенное название для каждой области. Меняются только первые цифры, означающие саму отчетность.
Форму файла выложила выше

Добавлено через 3 минуты
Т.е. я называю файл например так 023005 - 052, где 052 обозначение региона
0
IvanOK
693 / 99 / 10
Регистрация: 25.06.2011
Сообщений: 718
15.04.2013, 15:42 12
идеться чуточку подождать отрывают......

Добавлено через 1 час 8 минут
код нужно вставить в любой модуль
названия файлов должни быть
1.xls
2.xls
3.xls
.....
42.xls
файлы должны быть в той же папке где основной файл
код проверяет есть ли такой лист с таким названием
если есть удаляет полностю все данные и вставляет с открытой
если нет добаляет и дальше по накатаной
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub ЗапустиМеня()
 Dim t As String
 
    For i = 1 To 42
 
     t = i
     If GetWorksheetByName(t) = "" Then
        Sheets.Add.Name = i
        shCopy t
      Else
        Sheets(t).Select
        Cells.Delete Shift:=xlUp
        shCopy t
     End If
    Next
    
End Sub
 
Function shCopy(sh As String) ' откривает нужный файл и копирует его и закрывает его
 
 ChDir ThisWorkbook.Path
 Workbooks.Open Filename:=ThisWorkbook.Path & "\" & sh & ".xls"
 Cells.Select
 Selection.Copy
 Windows(ThisWorkbook.Name).Activate
 Sheets(sh).Select
 ActiveSheet.Paste
 Windows(sh & ".xls").Close False
 Range("A1").Select
End Function
 
Function GetWorksheetByName(ByRef shName As String) As String 'функция проверяет есть ли такой лист
Dim sht As Worksheet
For Each sht In ThisWorkbook.Worksheets
    If shName = sht.Name Then
         GetWorksheetByName = sht.Name
        Exit For
       Else
       GetWorksheetByName = ""
    End If
Next sht
End Function
1
Nata42
0 / 0 / 0
Регистрация: 15.04.2013
Сообщений: 17
16.04.2013, 07:13  [ТС] 13
Спасибо, сейчас буду пробовать все это проделать

Добавлено через 55 минут
Эх, разобраться бы теперь, куда вставить этот код???
0
IvanOK
693 / 99 / 10
Регистрация: 25.06.2011
Сообщений: 718
16.04.2013, 09:48 14
Сервис-макрос-"запусти меня"
копируемие файли ты поняла как должны быть названы и где должны быть?
1
Вложения
Тип файла: xls forma 1-EDV06 01.07.2012.xls (78.5 Кб, 27 просмотров)
Nata42
0 / 0 / 0
Регистрация: 15.04.2013
Сообщений: 17
16.04.2013, 09:59  [ТС] 15
да, поняла. создала отдельную папку. Туда положила сам свод и файлы управлений под номерами 1,2...и т.д.

Добавлено через 7 минут
а 42 пустых листа в своде я сама должна создать, или они будут автоматически созданы?
0
IvanOK
693 / 99 / 10
Регистрация: 25.06.2011
Сообщений: 718
16.04.2013, 11:03 16
Цитата Сообщение от Nata42 Посмотреть сообщение
42 пустых листа в своде я сама должна создать, или они будут автоматически созданы?
они будут созданы, тебе только в ету папку нужно закинуть файли из соотвествующими названиями

Добавлено через 28 секунд
попробуй что получится
0
Nata42
0 / 0 / 0
Регистрация: 15.04.2013
Сообщений: 17
16.04.2013, 11:15  [ТС] 17
Может куда-то не туда вставляю? Добавляется один лист пустой без значений
0
Вложения
Тип файла: doc Документ Microsoft Word.doc (93.0 Кб, 6 просмотров)
IvanOK
693 / 99 / 10
Регистрация: 25.06.2011
Сообщений: 718
16.04.2013, 11:29 18
Nata42, ета ошыбка может возникнуть при открытии файла...или о у вас открыт или его не существует....
0
Nata42
0 / 0 / 0
Регистрация: 15.04.2013
Сообщений: 17
16.04.2013, 11:32  [ТС] 19
А сейчас просто при нажатии на кнопку выдает ошибка 400 ;((
0
Nata42
0 / 0 / 0
Регистрация: 15.04.2013
Сообщений: 17
16.04.2013, 11:37  [ТС] 20
Вот взяла к примеру 5 отчетов. по идее нужен свод с проверками (последний документ)
0
Вложения
Тип файла: xls 1.xls.xls (64.0 Кб, 20 просмотров)
Тип файла: xls 2.xls.xls (58.0 Кб, 12 просмотров)
Тип файла: xls 3.xls.xls (56.5 Кб, 9 просмотров)
Тип файла: xls 4.xls.xls (57.0 Кб, 9 просмотров)
Тип файла: xls 5.xls.xls (57.5 Кб, 10 просмотров)
Тип файла: xls Лист Microsoft Excel.xls (25.5 Кб, 29 просмотров)
16.04.2013, 11:37
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.04.2013, 11:37

Отправка файлов по почте
Приветствую! Подскажите пожалуйста, как организовать: Есть отправка сообщения на почту с пмоощью...

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

Передача файлов по почте
Всем добрый день. Возник такой вопрос. Предположим, я сделал приложение в виде теста и скинул его...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru