Pergunta : concatenar o múltiplo primam limas?

Eu estou olhando para concatenar o múltiplo primo as limas que são o mesmo formato e localizado no mesmo diretório.  Eu uni exemplos do files. class= do " lastRow do
>Attachments do " nome " do class= do class= " valor " do
>
nome de arquivo " do class= do >expo140D50.xls " fileSize " > (MB 2.7) Javascript " do href= o " dos " attachmentDetails do class= de (tipo de lima detalhes)
exportação >inventory file
da " descrição " do class= do
o class= de
do >
>
nome de arquivo " do class= do >expo9618D99.xls " fileSize " > (695 KB) Javascript " do href= o " dos " attachmentDetails do class= de (tipo de lima detalhes)
exportação file
do inventário do >another da " descrição " do class= do
o class= de
do >
class= do

Resposta : concatenar o múltiplo primam limas?

A terceira vez paga por tudo. Atualização final com solução de funcionamento (correção da linha 17)
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:

LoopThroughXLS_ConsolidateOneSheet secundário confidencial ()
'abre todos os manuais de instruções em um dobrador e consolidam-nos em uma folha no manual de instruções ativo
application.ScreenUpdating = 'tela falsa da inutilização que atualiza para evitar o piscamento da tela
Wbk1 não ofuscante como o manual de instruções, wbk2 como o manual de instruções, i como por muito tempo, strWbk como a corda, sht1 como a folha
blFirst não ofuscante como bôoleano
strWbkNames não ofuscantes (1 500) como a corda, nome de arquivo como a corda, intFileCount como por muito tempo, intWbkLoop como por muito tempo

'DO *************** DA ATUALIZAÇÃO DOS PARÂMETROS ************************* AQUI
Strpath de Const como a corda = “C:\Temp\test” 'mudança aos dobradores onde você deixa cair suas limas
O blHeader de Const como bôoleano = retifica 'retifica se seus dados têm encabeçamentos, falso de outra maneira
'**************************************************************

Ajustar wbk1 = ActiveWorkbook
Ajustar sht1 = ActiveSheet
o blFirst = retifica

Nome de arquivo = Dir (strpath & “\ *.xls”)
   Fazer quando "" <> do nome de arquivo
      intFileCount = intFileCount + 1
      strWbkNames (intFileCount) = nome de arquivo
      Nome de arquivo = Dir
   Laço

application.DisplayAlerts = falso

Para o intWbkLoop = 1 ao intFileCount

    Se application.WorksheetFunction.CountA (sht1.Columns (1)) = 0 então
        sht1.range (“A1”). Seleto
    Mais
        sht1.range (“A” & sht1.Rows.Count). Extremidade (xlUp). Offset (1, 0). Seleto
    Terminar se
    
    Ajustar wbk2 = Workbooks.Open (strpath & “\” & strWbkNames (o intWbkLoop))
    
    Com wbk2.Sheets (1)
        Se o blFirst = retifica então
            blFirst = falso
            .UsedRange.Copy
        Mais
            Se o blHeader = retifica então
                .UsedRange.Offset (1). Cópia
            Mais
                .UsedRange.Copy
            Terminar se
        Terminar se
    Terminar com
    
    sht1.Paste
    wbk2.Close (falso)
Em seguida

application.DisplayAlerts = retificam
application.ScreenUpdating = retificam
Submarino da extremidade
Outras soluções  
 
programming4us programming4us