LoopThroughXLS_ConsolidateOneSheet secondario riservato ()
'apre tutti i libri di esercizi in un dispositivo di piegatura e li consolidano in uno strato sul libro di esercizi attivo
application.ScreenUpdating = 'schermo falso di disable che aggiorna per evitare lampeggiamento dello schermo
Wbk1 fioco come libro di esercizi, wbk2 come libro di esercizi, i come lungamente, strWbk come stringa, sht1 come manuale
blFirst fioco come booleano
strWbkNames fiochi (1 - 500) come stringa, nome di schedario come stringa, intFileCount come lungamente, intWbkLoop come lungamente
'DEL *************** DELL'AGGIORNAMENTO DI PARAMETRI ************************* QUI
Strpath di Const come stringa = “C:\Temp\test„ 'cambiamento ai dispositivi di piegatura in cui cadete le vostre lime
Il blHeader di Const come booleano = allinea 'allinea se i vostri dati hanno intestazioni, falso al contrario
'**************************************************************
Regolar wbk1 = ActiveWorkbook
Regolar sht1 = ActiveSheet
il blFirst = allinea
Nome di schedario = Dir (strpath & “\ *.xls„)
Fare mentre "" <> di nome di schedario
intFileCount = intFileCount + 1
strWbkNames (intFileCount) = nome di schedario
Nome di schedario = Dir
Ciclo
application.DisplayAlerts = falso
Per intWbkLoop = 1 a intFileCount
Se application.WorksheetFunction.CountA (sht1.Columns (1)) = 0 allora
sht1.range (“A1„). Prescelto
Altrimenti
sht1.range (“A„ & sht1.Rows.Count). Estremità (xlUp). Contrappeso (1, 0). Prescelto
Concluder se
Regolar wbk2 = Workbooks.Open (strpath & “\„ & strWbkNames (intWbkLoop))
Con wbk2.Sheets (1)
Se il blFirst = allora allinea
blFirst = falso
.UsedRange.Copy
Altrimenti
Se il blHeader = allora allinea
.UsedRange.Offset (1).Copy
Altrimenti
.UsedRange.Copy
Concluder se
Concluder se
Concluder con
sht1.Paste
wbk2.Close (falso)
Dopo
application.DisplayAlerts = allineano
application.ScreenUpdating = allineano
Sommergibile dell'estremità
|
