Fråga : Att applicera överträffar räkneark

vi hade 8 folk som var funktionsdugligt på en 40mb som delades för att överträffa, sparar, vi höll spring in i problem med dem som inte är kompetent till räddningen etc., så vi sparade i stort 8 kopierar av räknearket, och folket är funktionsdugligt på deras egna en now.

However för att anmäla utfärdar precis oss behöver nu sammanfogning dessa räkneark tillbaka tillsammans när en dag (som håller hopefully användarena på deras individ, sparar). Finns det any lätt långt att göra detta? Jag har försökt using befästningen bearbetar med ingen lycka. Och sammanfogningen bearbetar hjälpmedel som vi måste att göra varje

So som för räknearket ett i sänder (och det tar en goda 2-3 noterar för att ladda, när vi gör den) i stort precis långt söker efter ett lättare att utföra this. " klar "

Svar : Att applicera överträffar räkneark

CaptainGiblets,

Den nedanföra kodifiera är i fäst sparar. Att att använda dig ska behov:

1. Förlägga alla sparar för att bearbetas i en mapp av deras eget. Förlägga fäst sparar i en olik mapp.

2. Uppdatera detta fodrar av kodifierar i makroen för att passa din aktiveringsie. var du har att förlägga, sparar för att bearbetas:

Fastställd fld = fso.GetFolder (”C:\Documents and Settings\Patrick & Thuc-Nghi \ min dokument \ Patricks \ Excel sparar \ CaptG \”),

3. Press knäppas som kör makroen.

Hoppas att hjälp

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:

UnderProcessFromFolder ()
'Denna makro öppnar varje sparar i sin tur och extrakt datan från den, rekord det i databasen,
'slut spara och flyttningar på till det nästa sparar. Makroen antecknar också spara - namnge så att
'den ska endast processaa en spara, om den inte har bearbetats för. Den använder ”en samling” för
'spara namnger.

    Dunkel fso som anmärker, fld som anmärker, fil som anmärker
    Dunkel coll som ny samling
    Dunkla FileListWs som arbetssedeln
    Dunkla SourceWs som arbetssedeln
    Dunkla SourceWb som arbetsboken
    Dunkla DestWs som arbetssedeln
    Dunkla TotFiles som Long
    Dunkelt kontra som Long
    Dunkla WasOpen som Boolean
    Dunkelt I som Long
    Dunkel rowe som Long
    Dunkel kolonn som Long
    Dunkel lastrow som Long
    Dunkel errorflag som stränger
    
    Application.ScreenUpdating = falskt
    
    errorflag = "",

    'Bestäm sparar bearbetat redan
    Fastställda FileListWs = ThisWorkbook.Worksheets (”spara listar”),
    Fastställda DestWs = ThisWorkbook.Worksheets (”databas”)
    Med FileListWs
        TotFiles = Application.CountA (. [a: a])
        Om TotFiles > 0 därefter
            För kontra = 1 till TotFiles
                coll. Tillfoga. Celler (kontra, 1). Celler (kontra, 1),
            Därefter
        Avsluta om
    Avsluta med

    'se mappen
    Fastställd fso = CreateObject (”Scripting.FileSystemObject”)
    'sätt den fulla banan till mappen som innehåller datafiler i det nästa, fodrar av kodifierar
    Fastställd fld = fso.GetFolder (”C:\Documents and Settings\Patrick & Thuc-Nghi \ min dokument \ Patricks \ Excel sparar \ CaptG \”),
       
    För varje fil i fld. Sparar
        På felmeritförteckning därefter
        coll. Tillfoga fil. Namnge fil. Namnge
        Om fela <> 0 därefter
            'spara redan bearbetat, gör ingenting
            Err.Clear
        Annars
            'inte bearbetat ännu; bearbeta den
            Med FileListWs
                Om TotFiles = 0 därefter
                    . [A2] = fil. Känt
                Annars
                    '. Celler (. Rows.Count 1). Avsluta (xlUp). Offset (1, 0) = fil. Känt
                    . Celler (65536, 1). Avsluta (xlUp). Offset (1, 0) = fil. Känt
                Avsluta om
            Avsluta med
            'se, om den är redan öppen
            Fastställda SourceWb = arbetsböcker (fil. Känt)
            Om fela <> 0 därefter
                'var inte öppet
                WasOpen = falskt
                Fastställda SourceWb = Workbooks.Open (fil. Bana)
            Annars
                WasOpen = True
            Avsluta om
            
            Fastställda SourceWs = SourceWb.Sheets (1)
            
            Med SourceWs
                . Spänna (. Celler (2, ”A”). Celler (. Rows.Count, ”A”). Avsluta (xlUp). Offset (0, 14)). Kopiera _,
                    DestWs.Cells (DestWs.Rows.Count, ”A”). Avsluta (xlUp). Offset (1, 0)
            Avsluta med
            
            errorflag = "",
            Om inte falska WasOpen därefter SourceWb.Close
        Avsluta om
    Därefter

    Fastställd coll = ingenting
    Fastställd fil = ingenting
    Fastställd fld = ingenting
    Fastställd fso = ingenting
    
    Application.ScreenUpdating = True
    ”Gjorda” MsgBox,

Avsluta suben
Andra lösningar  
 
programming4us programming4us