VBA- mesclar vários arquivos usando a função DIR

Como objeto atribuído à variável

O Sub Test () 
Dim Planilha de As SHT 
SHT = Sheets.Add   ' aqui vai reclamar 
do Conjunto de SHT = Sheets.Add' objeto atribuir a uma necessidade variável para adicionar o SET 
sht.Name = " abril " 
End Sub

Exemplo: Criar uma tabela com o conteúdo da célula para o nome sheet1

Sub teste () 
Dim SHT A folha de cálculo 
Dim i As Integer 
Para i = 2 a 5 
    Conjunto SHT = Sheets.Add 
    sht.Name = Sheet1.Range ( " um " & i) 
Em seguida 
End Sub

função dir

　　1) Não existe tal julgamento arquivo dir em wildcards de apoio

Sub test () 
Dim i As Integer 
Para i = 1 Para 5 
    Se Dir ( " A: \ dados \" & Sheet1.Range ( " um " & i) & " * .xls " ) = "" Então #支持通配符 
        Sheet1 .Range ( " b " & i) = " 无此文件" 
    Else 
        Sheet1.Range ( " b " & i) = " 有文件" 
    End If 

Seguinte 
End Sub

　　2) instruções de utilização, dir uma pluralidade de documentos, tais como Suzhou Xlsx, dados ficheiro.xls em Suzhou  

SS Sub () 
Range ( " A1 " ), o Dir = ( "D : \ Data \ Suzhou * * .xls " ) # a Suzhou Dir ( "d :. \ Data \ * *") em todos os arquivos 
do Range ( " A1 " ) = o Dir retorna # Suzhou 
o Range ( " A1 " ) = o # retorno Dir esvaziar 
o Range ( " A1 " ) = o Dir # erro 
End Sub

　　3) através de todos os nomes de arquivo

Sub test1 () 
Dim str As String 
str = Dir ( " d: \ data \ * xls *. " ) 
Para i = 1 Para 100 
    Range ( " um " & i) = str 
    str = Dir 
    Se str = "" Então 
        Exit para 
    End If 
Seguinte 
End Sub

　　4) shell, o arquivo de dados fixo pasta abrir e fechar o

Sub test1 () 
Dim str As String 
Dim wb Como livro 
str = Dir ( " d: \ \ * dados XLS *. " ) 
Para i = 1 To 100 
    Set wb = Workbooks.Open ( " D: \ dados \" & str ) 
    
    
    
    
    wb.Close 
    str = Dir 
    Se str = "" Então 
        saída para 
    End If 
Seguinte 
End Sub