Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
FileSearch - Excel ...
 
Notifications
Clear all

FileSearch - Excel 2007 e 2010

 
2024 - VBA & Macros
3 Posts
1 Usuários
0 Reactions
1,280 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia, senhores..

Estou com um problema..

Estou procurando como consertar o erro FileSearch que acontece no Excel 2007 e 2010.

Achei várias discussões na internet, mas não obtive sucesso em adaptar meu script do 2003 para o 2010.

Aqui segue parte do script:

With Application.FileSearch

.LookIn = ThisWorkbook.Path & "Formulários gerados"

.FileType = msoFileTypeAllFiles
.SearchSubFolders = True
.Execute
End With

arquivo = Range("SETOR")

On Error Resume Next
n = Application.WorksheetFunction.Search("/", arquivo, 1)
        narquivo = Replace(arquivo, "/", "-")

cnt = Application.FileSearch.FoundFiles.Count

Como posso converter esse código para os métodos Dir ou FileSystemObject?

Grato

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/08/2011 8:04 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Para utilizar com Dir a sintaxe é

Sub tem()
'Obtem caminho onde está o arquivo
sPath = ThisWorkbook.Path

'Acrescenta a barra se necessario
If Right(sPath, 1) <> "" Then
sPath = sPath & ""
Else
sPath = sPath
End If

'Altera diretorio padrão para onde está o arquivo
ChDir sPath
'Localiza arquivos com extensão qq
sDir = Dir("", vbDirectory) 'se quiser um unico tipo arquivo dir("*.xls?") tipo xls...
'Inicia Loop com as planilhas do diretorio
Do While sDir <> ""

'aqui vai o que deve ser efetuado

On Error Resume Next
sDir = Dir

Loop
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/08/2011 11:51 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Loka, o objecto Application.FileSearch não é suportado nos programas do Office 2007, 2010 .
Para contornar este problema, use o objeto FileSystemObject.

De uma olhada nos tópicos abaixo :
Application.FileSearch - Exemplos
viewtopic.php?f=16&t=1825

Application.FileSearch - EXCEL 2007
viewtopic.php?f=16&t=1826&st=0&sk=t&sd=a

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 13/08/2011 6:20 am
Forum Jump:
  Tópico Anterior
Próximo Tópico