none
Verificar Todas as Planilhas existentes em um diretorio RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |