Visual Basic - Adaptacion de codigo al 2007

Life is soft - evento anual de software empresarial
   
Vista:

Adaptacion de codigo al 2007

Publicado por Martín (1 intervención) el 21/01/2011 14:05:11
Buenos días,
tengo una consulta sobre una macro que hice en usando el office 2003 y tengo que adaptarla al 2007. Sé que hay que cambiar la función " With Application.FileSearch" pero no estoy seguro de como hacerlo. Alguna idea? desde ya muchisimas gracias!

abajo les dejo el código:

---------------------------------------
Sub InformeCierre()

'Funcion que busca las templates de cierres para generar el informe
'Todos los ficheros deben tener extension XLS y la plantilla no debe estar modificada

Dim strFileName
Dim Ruta
Ruta = InputBox("Introduce la ruta completa donde estan las plantillas", "Ruta", "Z:\CFM_Support_Network\FY08\Q2\Diciembre\WBS_FNBL_PCLS")

With Application.FileSearch
'.LookIn = "Z:\CFM_Support_Network\FY08\Q2\Diciembre\WBS_FNBL_PCLS"
.LookIn = Ruta
If .Execute() > 0 Then

For I = 1 To .FoundFiles.Count
strFileName = .FoundFiles(I)
Call tools_otcs2(strFileName, Ruta)
Next I
Else
MsgBox "There were no files found."
End If
End With

End Sub
-------------------------------------
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder