Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Set fs = Applicatio...
 
Notifications
Clear all

Set fs = Application.FileSearch

 
2024 - VBA & Macros
Post Recente por Wagner Morel 11 anos atrás
2 Posts
2 Usuários
0 Reactions
1,313 Visualizações
RSS
 Frrz
(@frrz)
Posts: 16
Active Member
Topic starter
 

Senhores,
Bom dia!

Estou migrando do office 2003 para o 2010 aqui na empresa, porém minhas macros usam a função "Set fs = Application.FileSearch", gostaria de saber como mudar esse código para funcionar o Office 2010. Abaixo segue o Código:

 Set fs = Application.FileSearch
    With fs
        .LookIn = PastaBase
        .Filename = ("MS040001_????????_????" + ".xls")
        Achou = .Execute(SortBy:=msoSortByFileName, _
        SortOrder:=msoSortOrderAscending)
        While Achou = 0
            Teste = MsgBox("Coloque o arquivo do relatório MS001 na pasta " & PastaBase & " e clique OK para prosseguir." & vbLf & "Para pular este relatório, clique em Cancelar.", vbOKCancel, "MS001")
            If Teste = vbCancel Then
                MsgBox "O preenchimento deste relatório deverá ser feito MANUALMENTE após a finalização do processamento."
                GoTo Pula001
            End If
        Wend
    End With

    TotalArquivos = fs.FoundFiles.Count
    ReDim ArquivosProcessar(TotalArquivos)
 
Postado : 03/10/2013 8:55 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Frrz,

Bom Dia!

Esse comando foi descontinuado a partir do Excel 2007. Voce pode utilizar o FSO para atender a sua necessidade. Deve, antes de utilizar o FSO, referenciar a biblioteca Microsoft Scripting Runtime.

Aqui está uma pequena função (código que não é meu e sim de um cidadão chamado Roberto, que achei na Internet) que utiliza o FSO para saber se um arquivo existe. Para saber mais sobre a utilização de FSO você pode pesquisar na internet que vão surgir muitas páginas sobre o assunto.

Function FileExists(FileName As String) As Boolean

Dim fs As FileSystemObject
Set fs = CreateObject("Scripting.filesystemobject")

FileExists = fs.FileExists(FileName)

End Function

'Para utilizar passe o arquivo com o caminho completo

Public Sub teste()
    MsgBox FileExists("D:BackupDesktopteste.txt")
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 03/10/2013 9:09 am
Forum Jump:
  Tópico Anterior
Próximo Tópico