Вопрос : Сливать первенствует электронная таблица

мы имели 8 людей работать на 40mb, котор делят для того чтобы первенствовать архив, мы держали побежать в проблемы при они не сохранить etc поэтому мы основно сохранили 8 экземпляров электронная таблица и людям работают на как раз их собственном одном now.

However для отчетность выдают нас теперь нужно слить эти электронная таблица назад совместно раз в день (многообещающий держащ потребителей на их индивидуальных архивах). Любой простой способ сделать это? Я имею судимое using инструмент консолидации без везения. И середины инструмента слияния мы должны сделать каждое

So электронная таблица одного одновременно (и его принимает хорошие 2-3 минуты, котор нужно нагрузить как только мы делаем его) основно как раз ища более легкая дорога выполнить this. class=

Ответ : Сливать первенствует электронная таблица

CaptainGiblets,

Кодий ниже находится в прикрепленном архиве. Использовать вас:

1. Установьте все архивы, котор нужно обрабатывать в скоросшивателе их. Установьте прикрепленный архив в по-разному скоросшивателе.

2. Уточните эту линию Кодего в макросе для того чтобы одеть ваш для того чтобы set-up ie. где вы имеете место архивы, котор нужно обрабатывать:

Установите fld = fso.GetFolder («C:\Documents and Settings\Patrick & Thuc-Nghi \ мои документы \ архивы Патрик \ Эксел \ CaptG \ ")

3. Отожмите кнопку для того чтобы побежать макрос.

Понадейтесь что помощь

Патрик
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:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:

Sub ProcessFromFolder ()
'Этот макрос раскрывает каждый архив в свою очередь и извлекает данные от его, записывает его в базе данных,
'закрывает архив, и двигает дальше к следующему архиву. Макрос также запишет архив - имя так, что
'он только будет обрабатывать архив если он не был обработан раньше. Он использует «собрание» для
'имена архива.

    Тусклое fso как предмет, fld как предмет, fil как предмет
    Тусклое coll как новое собрание
    Тусклое FileListWs как рабочий лист
    Тусклое SourceWs как рабочий лист
    Тусклое SourceWb как Workbook
    Тусклое DestWs как рабочий лист
    Тусклое TotFiles как длиной
    Тусклый счетчик как длиной
    Тусклое WasOpen как булевско
    Затемните I как длиной
    Затемните rowe как длиной
    Затемните col как длиной
    Затемните lastrow как длиной
    Затемните errorflag как шнур
    
    Application.ScreenUpdating = ложно
    
    errorflag = ""

    'Обусловьте архивы обрабатываемые уже
    Установите FileListWs = ThisWorkbook.Worksheets («список архива»)
    Установите DestWs = ThisWorkbook.Worksheets («база данных»)
    С FileListWs
        TotFiles = Application.CountA (. [a: a])
        Если TotFiles > 0 после этого
            Для счетчика = 1 к TotFiles
                coll. Добавьте. Клетки (встречные, 1). Клетки (встречные, 1)
            Затем
        Закончитесь если
    Закончитесь с

    'посмотрите скоросшиватель
    Установите fso = CreateObject («Scripting.FileSystemObject»)
    'положите полный курс к скоросшивателю содержа архивы данных в следующей линии Кодего
    Установите fld = fso.GetFolder («C:\Documents and Settings\Patrick & Thuc-Nghi \ мои документы \ архивы Патрик \ Эксел \ CaptG \ ")
       
    Для каждого fil в fld. Архивы
        На резюме ошибки затем
        coll. Добавьте fil. Имя, fil. Имя
        Если заблуждается <> 0 после этого
            'уже обрабатываемый архив, не делает ничего
            Err.Clear
        Еще
            'обработано пока; обрабатывайте его
            С FileListWs
                Если TotFiles = 0 после этого
                    . [A2] = fil. Имя
                Еще
                    '. Клетки (. Rows.Count, 1).End (xlUp). Смещение (1, 0) = fil. Имя
                    . Клетки (65536, 1).End (xlUp). Смещение (1, 0) = fil. Имя
                Закончитесь если
            Закончитесь с
            'см. если оно уже открыт
            Установите SourceWb = Workbooks (fil. Имя)
            Если заблуждается <> 0 после этого
                'не был открыт
                WasOpen = ложно
                Установите SourceWb = Workbooks.Open (fil. Курс)
            Еще
                WasOpen = True
            Закончитесь если
            
            Установите SourceWs = SourceWb.Sheets (1)
            
            С SourceWs
                . Ряд (. Клетки (2, «a»). Клетки (. Rows.Count, «a»). Конец (xlUp). Смещение (0, 14)). Скопируйте _
                    DestWs.Cells (DestWs.Rows.Count, «a»). Конец (xlUp). Смещение (1, 0)
            Конец с
            
            errorflag = ""
            Если не WasOpen после этого SourceWb.Close ложное
        Закончитесь если
    Затем

    Установите coll = ничего
    Установите fil = ничего
    Установите fld = ничего
    Установите fso = ничего
    
    Application.ScreenUpdating = True
    «Сделанное» MsgBox

Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us