Questione : La fusione eccelle i fogli elettronici

abbiamo avuti 8 genti lavorare ad un 40mb compartecipe per eccellere la lima, abbiamo continu aare funzionare nei problemi con loro che non possono conservare ecc in modo da abbiamo conservato basicamente 8 copie del foglio elettronico e la gente sta lavorando appena al loro proprio un now.

However per la segnalazione li pubblica ora deve fondere questi fogli elettronici indietro insieme una volta al giorno (eventualmente mantenendo gli utenti sulle loro diverse lime). È ci del modo semplice di fare questo? Ho provato using l'attrezzo di consolidamento senza fortuna. Ed i mezzi dell'attrezzo di fusione dobbiamo fare ogni

So dei fogli elettronici uno alla volta (ed esso prende buoni 2-3 minuti da caricare una volta che la facciamo) che cerca basicamente appena un senso più facile compire this. class= del

Risposta : La fusione eccelle i fogli elettronici

CaptainGiblets,

Il codice sotto è nella lima allegata. Per usarlo avrà bisogno di:

1. Disporre tutte le lime da procedare in un dispositivo di piegatura dei loro propri. Disporre la lima allegata in un dispositivo di piegatura differente.

2. Aggiornare questa linea di codice nella macro per essere adatta a vostro per installare lo IE. dove avete posto le lime da procedare:

Regolare il fld = fso.GetFolder (“C:\Documents and Settings\Patrick & Thuc-Nghi \ mie documenti \ lime \ CaptG Excel \ del Patrick \ ")

3. Premere il tasto per fare funzionare la macro.

Sperare che aiuti

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:

ProcessFromFolder secondario ()
'Questa macro apre ogni lima a sua volta ed estrae i dati da esso, la registra nella base di dati,
'chiude la lima e passa verso la lima seguente. La macro inoltre registra il nome di schedario in modo che
'procederà soltanto una lima se non sia procedata prima. Usa “una collezione„ per
'i nomi della lima.

    Fso fioco come oggetto, fld come oggetto, fil come oggetto
    Coll fioco come nuova accumulazione
    FileListWs fioco come manuale
    SourceWs fioco come manuale
    SourceWb fioco come libro di esercizi
    DestWs fioco come manuale
    TotFiles fioco come lungamente
    Contatore fioco come lungamente
    WasOpen fioco come booleano
    Oscurare la i come lungamente
    Oscurare il rowe come lungamente
    Oscurare la colonna come lungamente
    Oscurare il lastrow come lungamente
    Oscurare il errorflag come stringa
    
    Application.ScreenUpdating = falso
    
    errorflag = ""

    'Determinare le lime procedate già
    Regolare FileListWs = ThisWorkbook.Worksheets (“lista della lima„)
    Regolare DestWs = ThisWorkbook.Worksheets (“base di dati„)
    Con FileListWs
        TotFiles = Application.CountA (. [a: a])
        Se TotFiles > 0 allora
            Per il contatore = 1 a TotFiles
                coll. Aggiungere. Cellule (contro, 1). Cellule (contro, 1)
            Dopo
        Concluder se
    Concluder con

    'esaminare il dispositivo di piegatura
    Regolare il fso = CreateObject (“Scripting.FileSystemObject„)
    'mettere il percorso pieno al dispositivo di piegatura che contiene gli schedari di dati nella linea di codice seguente
    Regolare il fld = fso.GetFolder (“C:\Documents and Settings\Patrick & Thuc-Nghi \ mie documenti \ lime \ CaptG Excel \ del Patrick \ ")
       
    Per ogni fil nel fld. Lime
        Sul riassunto di errore dopo
        coll. Aggiungere il fil. Nome, fil. Nome
        Se allora <> erra 0
            'la lima già procedata, non fa niente
            Err.Clear
        Altrimenti
            'non procedato ancora; procedarlo
            Con FileListWs
                Se TotFiles = 0 allora
                    . [A2] = fil. Nome
                Altrimenti
                    '. Cellule (. Rows.Count, 1).End (xlUp). Contrappeso (1, 0) = fil. Nome
                    . Cellule (65536, 1).End (xlUp). Contrappeso (1, 0) = fil. Nome
                Concluder se
            Concluder con
            'vedere se è già aperto
            Regolare SourceWb = i libri di esercizi (fil. Nome)
            Se allora <> erra 0
                'non era aperto
                WasOpen = falso
                Regolare SourceWb = Workbooks.Open (fil. Percorso)
            Altrimenti
                WasOpen = allinea
            Concluder se
            
            Regolare SourceWs = SourceWb.Sheets (1)
            
            Con SourceWs
                . Gamma (. Cellule (2, “A„). Cellule (. Rows.Count, “A„). Estremità (xlUp). Contrappeso (0, 14)). Copiare il _
                    DestWs.Cells (DestWs.Rows.Count, “A„). Estremità (xlUp). Contrappeso (1, 0)
            Estremità con
            
            errorflag = ""
            Se non WasOpen allora SourceWb.Close falso
        Concluder se
    Dopo

    Regolare il coll = niente
    Regolare il fil = niente
    Regolare il fld = niente
    Regolare il fso = niente
    
    Application.ScreenUpdating = allineano
    MsgBox “fatto„

Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us