Red de conocimiento informático - Material del sitio web - Cómo usar VB para modificar valores en múltiples tablas EXCEL

Cómo usar VB para modificar valores en múltiples tablas EXCEL

Asegúrese de que esta carpeta solo contenga estos archivos de Excel y que, si abre un determinado archivo, se puedan ver los datos, es decir, no es necesario hacer clic en otras hojas.

Cree un nuevo Excel y guárdelo en esta carpeta. Simplemente abra el nuevo Excel, presione Alt y F11 al mismo tiempo, haga clic en Insertar, Módulo en el menú y pegue el siguiente código:

Sub Find()

Application.ScreenUpdating = False

Dim MyDir As String

MyDir = ThisWorkbook.Path amp "\"

ChDrive Left(MyDir, 1) 'busca todos los archivos de Excel;

ChDir MyDir

Coincidencia = Dir$("")

Hacer

Si no LCase(Match) = LCase(ThisWorkbook. Nombre) Entonces

Workbooks.Open Match

celdas(3, 5) = "xxxx"

activeworkbook.save

Activeworkbook. Cerrar

Finalizar si

Match = Dir$

Bucle hasta Len(Match) = 0

Application.ScreenUpdating = True

End Sub

Imita la parte en negrita y luego presione F5 directamente en esta interfaz para ejecutar la macro y completar la operación.