none
Verificar Todas as Planilhas existentes em um diretorio RRS feed

  • Pergunta

  • Prezados boa tarde,

    Estou desenvolvendo uma planilha em que ela tem que ler todas as planilhas existentes em um diretório e abrir uma por vez, sendo que se a primeira da lista estiver aberta a segunda não pode abrir desde que a outra esteja fechada.]

    Tem como criar esse código ou poderiam me dar uma ajuda, sou novo em vba e estou aprendendo sua sintaxe aos poucos, mas tem uma boa logica de programação.

    Atenciosamente.

    Paulo Gallo

    sexta-feira, 10 de abril de 2015 17:51

Respostas

  • Paulo,

    tente assim:

      Dim fso As Object   'File System Object
      Dim fld As Object   'Folder
      Dim file As Variant 'File
      Dim wbk As Workbook
      
      Set fso = CreateObject("Scripting.FileSystemObject")
      Set fld = fso.GetFolder(ThisWorkbook.Path & "\xml")
        
      For Each file In fld.Files
        
        If InStr(file.Name, ".xls") > 0 Then
          
          Set wbk = Workbooks.Open(file.Path)
          
          'aqui você faz o que precisa fazer
          
          wkb.Close
          
        End If
      
      Next
            


    Natan

    sexta-feira, 10 de abril de 2015 19:05