Completar una macro para abrir, guardar y cerrar los archivos
Hola Dante,
Desearía me explicases como hacer para abrir, guardar y cerrar los archivos desde mi macro.
Gracias.
Santiago.
1 Respuesta
Respuesta de Dante Amor
1
Con la siguiente macro, abres, actualizar, guardas y cierras los libros
Sub Concatenar()
'Por.Dante Amor
Application.ScreenUpdating = False
Set l1 = Workbooks.Open("origen.xlsx")
Set h1 = l1.Sheets("Hoja1")
Set l2 = Workbooks.Open("imagenes.xlsx")
Set h2 = l2.Sheets("Hoja1")
For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
If h1.Cells(i, "A") <> "" Then
Set b = h2.Range("A:A").Find(h1.Cells(i, "A"))
If Not b Is Nothing Then
cad = ""
For j = 7 To h2.Cells(b.Row, Columns.Count).End(xlToLeft).Column
If Not IsError(h2.Cells(b.Row, j)) Then
If h2.Cells(b.Row, j) <> "" Then
cad = cad & "\img\santi\" & h2.Cells(b.Row, j) & ","
End If
End If
Next
cad = Left(cad, Len(cad) - 1)
h2.Cells(b.Row, "F") = cad
h1.Cells(i, "AD") = cad
End If
End If
Next
l1.Close True
l2.Close True
MsgBox "Concatenación terminada"
End SubRecibe un cordial saludo y felices fiestas! Dante Amor
No olvides valorar la respuesta.
