Pytanie : Przodować spreadsheets

my miewać 8 ludzie na 40mb dzielić kartoteka, my utrzymywać bieg w problem z sprawnie save etc więc my podstawowy ratować 8 kopia the spreadsheet i ludzie pracować dalej właśnie ich swój jeden now.

However dla reportaż wydawać my teraz potrzebować te spreadsheets z powrotem wpólnie wpólnie dzień (z nadzieją the użytkownik na ich indywidualny kartoteka). Być tam  jakaś wchodni sposób być? I próbować using the konsolidacja narzędzie bez szczęście. I the Łączenie narzędzie sposób my musieć this. spreadsheet jeden na raz (i ono brać dobry 2-3 minuta jak tylko my robić ono)

So podstawowy właśnie dla łatwy sposób this.

Odpowiedź : Przodować spreadsheets

CaptainGiblets,

The kod kartoteka być w the dołączać kartoteka. Ty potrzebować:

1. Umieszczać wszystkie the kartoteka w falcówka ich swój. Umieszczać the dołączać kartoteka w różny falcówka.

2. Aktualizować ten linia kod w the macro twój set-up ie. dokąd ty mieć miejsce the kartoteka:

Ustawiać fld = fso.GetFolder ("C:\Documents and Settings\Patrick & Thuc-Nghi \ Mój Dokument \ Patrick \ Przodować kartoteka \ CaptG \ ")

3. Naciskać the guzik the macro.

Mieć Nadzieję że pomoc

Patrick
(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:

Okręt podwodny ProcessFromFolder ()
'Ten macro otwierać ten kartoteka z kolei i wydobywać the dane od ono, rejestr ono w the baza danych,
'zamykać the kartoteka, i ruch dalej the następny kartoteka. The macro także nagrywać the kartoteka - imię tak, że
'ono tylko przetwarzać kartoteka jeżeli ono przetwarzać przedtem. Ono używać "kolekcja" dla
'the kartoteka imię.

    Ciemnawy fso Przedmiot, fld Jako Przedmiot, fil Przedmiot
    Ciemnawy coll Jako Nowy Kolekcja
    Ciemnawy FileListWs Jako Worksheet
    Ciemnawy SourceWs Jako Worksheet
    Ciemnawy SourceWb Jako Workbook
    Ciemnawy DestWs Jako Worksheet
    Ciemnawy TotFiles Długo
    Ciemnawy Kontuar Długo
    Ciemnawy WasOpen Boolowski
    Ciemnawy i Długo
    Ciemnawy rowe Długo
    Ciemnawy col Długo
    Ciemnawy lastrow Długo
    Ciemnawy errorflag Sznurek
    
    Application.ScreenUpdating = Fałszywy
    
    errorflag = ""

    'Ustalać kartoteka przetwarzać już
    Ustawiać FileListWs = ThisWorkbook.Worksheets ("Kartoteka Lista")
    Ustawiać DestWs = ThisWorkbook.Worksheets ("Baza danych")
    Z FileListWs
        TotFiles = Application.CountA (. [a: a])
        Jeżeli TotFiles > (0) Wtedy
            Dla Kontuar = (1) TotFiles
                coll. Dodawać. Komórka (Kontuar, 1). Komórka (Kontuar, 1)
            Następnie
        Kończyć Jeżeli
    Kończyć Z

    'spojrzenie przy falcówka
    Ustalony fso = CreateObject ("Scripting.FileSystemObject")
    'stawiać pełny ścieżka falcówka dane kartoteka w the następny linia kod
    Ustawiać fld = fso.GetFolder ("C:\Documents and Settings\Patrick & Thuc-Nghi \ Mój Dokument \ Patrick \ Przodować kartoteka \ CaptG \ ")
       
    Dla Fld fil W fld. Kartoteka
        Na Błąd Życiorys Następnie
        coll. Dodawać fil. Imię, fil. Imię
        Jeżeli Błądzić <> (0) Wtedy
            'segregować już przetwarzać, robić segregować
            Err.Clear
        Inny
            'przetwarzać przetwarzać; przetwarzać ono
            Z FileListWs
                Jeżeli TotFiles = (0) Wtedy
                    . [A2] = fil. Imię
                Inny
                    '. Komórka (. Rows.Count, 1).End (xlUp). Odsadzka ((1), (0)) = fil. Imię
                    . Komórka (65536, 1).End (xlUp). Odsadzka ((1), (0)) = fil. Imię
                Kończyć Jeżeli
            Kończyć Z
            'widzieć jeżeli ono być już otwarty
            Ustawiać SourceWb = Workbooks (fil. Imię)
            Jeżeli Błądzić <> (0) Wtedy
                'być otwarty
                WasOpen = Fałszywy
                Ustalony SourceWb = Workbooks.Open (fil. Ścieżka)
            Inny
                WasOpen = Prawdziwy
            Kończyć Jeżeli
            
            Ustawiać SourceWs = SourceWb.Sheets (1)
            
            Z SourceWs
                . Pasmo (. Komórka (2, "A"). Komórka (. Rows.Count, "A"). Końcówka (xlUp). Odsadzka ((0), 14)). Odbitkowy _
                    DestWs.Cells (DestWs.Rows.Count, "A"). Końcówka (xlUp). Odsadzka ((1), (0))
            Końcówka Z
            
            errorflag = ""
            Jeśli nie WasOpen Wtedy SourceWb.Close Fałszywy
        Kończyć Jeżeli
    Następnie

    Ustalony coll = Nic
    Ustalony fil = Nic
    Ustalony fld = Nic
    Ustalony fso = Nic
    
    Application.ScreenUpdating = Prawdziwy
    MsgBox "Robić"

Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us