tengo el siguiente problema quiero migrar una macro que tengo en 2003 a 2007, esta macro me busca un archivo pdf de acuerdo a los parametros que le paso, pero no encuentro la forma de hacerlo funcional en 2007 mi codigo es el siguiente
la parte que esta en negrita es la que no me funciona en la version 2007
Sub Buscar_POs_PDF()
A = 1
B = 1
Path_PDFs = UserForm1.TextBox2.Text & "\"
FechaPDF = UserForm1.TextBox3.Value
Campo_Fecha = Format(FechaPDF, "dd/mm/yyyy")
Windows("Plantilla2.xls").Activate
final = Cells(65536, "A").End(xlUp).Row
Vector_Exclusion( = ""
Vector_PDF(A) = ""
Cells(2, 5).Select
For i = 2 To final
UserForm1.Label9.Caption = "PO: " & ActiveCell.Value & " Order Date: " & Cells(i, 17) & " vs. " & UserForm1.TextBox3.Value
Cells(i, 5).Select
'fechaplaced = Format(Cells(i, 17), "dd/mm/yyyy")
If Cells(i, 18) = Campo_Fecha Then
Pedido = ActiveCell.Value
Set fs = Application.FileSearch
With fs
.LookIn = Path_PDFs
.Filename = "PO305_" & Pedido & "*.PDF"
If .Execute() > 0 Then
Vector_PDF(A) = .FoundFiles(.FoundFiles.Count)
A = A + 1
Else
Vector_Exclusion( = Pedido
Selection.EntireRow.Delete
B = B + 1
ActiveCell.Offset(-1, 0).Activate
End If
End With
End If
Next
End Sub
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
tengo el siguiente problema quiero migrar una macro que tengo en 2003 a 2007, esta macro me busca un archivo pdf de acuerdo a los parametros que le paso, pero no encuentro la forma de hacerlo funcional en 2007 mi codigo es el siguiente
la parte que esta en negrita es la que no me funciona en la version 2007
Sub Buscar_POs_PDF()
A = 1
B = 1
Path_PDFs = UserForm1.TextBox2.Text & "\"
FechaPDF = UserForm1.TextBox3.Value
Campo_Fecha = Format(FechaPDF, "dd/mm/yyyy")
Windows("Plantilla2.xls").Activate
final = Cells(65536, "A").End(xlUp).Row
Vector_Exclusion(
= ""
Vector_PDF(A) = ""
Cells(2, 5).Select
For i = 2 To final
UserForm1.Label9.Caption = "PO: " & ActiveCell.Value & " Order Date: " & Cells(i, 17) & " vs. " & UserForm1.TextBox3.Value
Cells(i, 5).Select
'fechaplaced = Format(Cells(i, 17), "dd/mm/yyyy")
If Cells(i, 18) = Campo_Fecha Then
Pedido = ActiveCell.Value
Set fs = Application.FileSearch
With fs
.LookIn = Path_PDFs
.Filename = "PO305_" & Pedido & "*.PDF"
If .Execute() > 0 Then
Vector_PDF(A) = .FoundFiles(.FoundFiles.Count)
A = A + 1
Else
Vector_Exclusion(
= Pedido
Selection.EntireRow.Delete
B = B + 1
ActiveCell.Offset(-1, 0).Activate
End If
End With
End If
Next
End Sub