¿Código que Guarde y cierre los libros de excel después de aplicar macro?
Me pueden ayudar con un código que guarde los cambios y cierre los libros de excel al cual le he aplicado el siguiente código:
Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem As Variant
Dim xFileName As String
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
If xFd.Show = -1 Then
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls")
Do While xFileName <> ""
With Workbooks.Open(xFdItem & xFileName)
'your code here
Range("B2").Value = 2020
End With
xFileName = Dir
Loop
End If
End Sub
1 Respuesta
Respuesta de Dante Amor
2
Prueba lo siguiente:
Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem As Variant
Dim xFileName As String
'
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
If xFd.Show = -1 Then
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
Do While xFileName <> ""
With Workbooks.Open(xFdItem & xFileName)
'your code here
With .Sheets(1)
.Range("B2").Value = 2020
End With
.Close True
End With
xFileName = Dir()
Loop
End If
End SubNota: Procura poner el código con el icono para insertar código.
