Visual Basic para Aplicaciones - Ayuda con Macros no funcionan

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda con Macros no funcionan

Publicado por serge (1 intervención) el 30/10/2012 00:17:41
Necesito una macro que copie varios libros xls de una carpeta determinada a otra, hice algo con estas dos pero no se que falla. me podrian ayudar, gracias

Sub copia_archivos()
Dim fso
Dim origen As String, destino As String
origen = "C:\completo\util\"
destino = "C:\tec\"
Set fso = CreateObject("Scripting. FileSystemObject")
On Error Resume Next
If Not fso.FolderExists(origen) Then
MsgBox origen & " no es una carpeta/ruta válida. ", vbInformation, "Ruta de origen no válida"
ElseIf Not fso.FolderExists(destino) Then
MsgBox destino & " no es una carpeta/ruta válida. ", vbInformation, "Ruta de destino no válida"
Else
fso.CopyFile (origen & "*. xls"), destino
End If
If Err.Number = 53 Then MsgBox "Archivo no encontrado"

MsgBox "Proceso concluido"
End Sub

___________

Sub CopiarArchivo()
Ruta1 = "C:\completo\util\"
Ruta2 = "c:\tec\"
Archivo = "*.xls"
FileCopy Ruta1 & Archivo, Ruta2 & Archivo
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

Ayuda con Macros no funcionan

Publicado por Zeus Alberto Paez Renteria (7 intervenciones) el 01/11/2012 16:22:39
Buenos Dias

Puedes utilizar el siguiente código, falta validar que los folders existan, pero seguro te puede servir, la unica validacion que le puse es si no encuentra archivos de excel. Logicamente hay que modificar las carpetas (Ruta1 y Ruta2) indicando tu directorio origen y el destino respectivamente.

Sub CopiarArchivo()
'Declaracion de variables
Dim Fso
Dim Ruta1 As String
Dim Ruta2 As String
'Asignando valores y definiendo variables
Ruta1 = "C:\tmp\Carpeta X"
Ruta2 = "C:\tmp\Carpeta Y"
Set Fso = CreateObject("Scripting.FileSystemObject")
'Ejecución, esto es el objetivo copiar, tambien puedes usar el Fso.MoveFile
On Error Resume Next
Fso.CopyFile (Ruta1 & "\*.xls"), Ruta2
If Err = 53 Then
Err.Clear
MsgBox "No exiten archivos *.xls en la carpeta: " & Ruta1, vbInformation, "Archivos no encontrados"
End If
End Sub

Atte. Ing. Zeus Alberto Paez Renteria
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar