Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

370 - Buscar y reemplazar en Excel desde visual basic

Formulario de ejemplo que usa el método Replace de vba para poder buscar datos en celdas en una hoja indicada y poder reemplazar los datos

Formulario

vista del formulario para abrir el libro y reemplazar los datos

El ejemplo tiene una rutina llamada Reemplazar con los siguientes parámetros :

Call Reemplazar("Ruta del Libro", _ "Nombre de la hoja", _ "Texto a Buscar", _ "Texto a reemplazar", _ "Coincidir mayusculas y minusculas")

El último parámetro es un valor de tipo Boolean que indica si se tomará en cuanta las mayúsculas y minúsculas en la búsqueda. Por defecto está en False, y no se tiene en cuenta .

También, si se quiere que al buscar, solo busque la cadena completa en la celda, hay que modificar el valor LookAt, del método Replace. Si el mismo tiene el valor 1, buscará la cadena completa en las celdas, si tiene el valor 2, buscará la cadena parcial.

Nota: Por defecto en el ejemplo, el valor de LookAt está en 1, por lo tanto reemplazará solo los datos completos en las celdas

Controles

Text1 para indicar la ruta del libro de Excel
Text2 para indicar el Sheet
Text3 para el dato que se va a buscar
Text4 para el texto de reemplazo
Un CommandButton

Código fuente en el formulario

Option Explicit ' botón que ejecuta la rutina para buscar y reemplzar en la hoja '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Command1_Click() Reemplazar Text1, Text2, Text3, Text4, False End Sub ' Rutina que busca en la hoja y reemplaza todo ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub Reemplazar(PathXls As String, _ Hoja As String, _ TextoFind As String, _ TextoReplace As String, _ Optional Match_Case As Boolean) On Error GoTo Error_Sub Dim AppXls As Object Dim ret As Boolean ' verifica si existe el path del archivo xls If Len(Dir(PathXls)) = 0 Then MsgBox "No se ha encontrado la ruta el Libro", vbCritical Exit Sub End If If Hoja = vbNullString Or _ TextoFind = vbNullString Or _ TextoReplace = vbNullString Then MsgBox "No se indicaron algunos parámetros", vbCritical Exit Sub End If Me.MousePointer = vbHourglass ' Nuevo objeto de Excel Application Set AppXls = CreateObject("Excel.Application") ' abre el libro AppXls.Workbooks.Open PathXls ' opcional ( excel no visible ) AppXls.Visible = False ' Ejecuta el método Replace, indicando el Sheet, y las _ opciones de búsqueda y reemplazo ret = AppXls.ActiveWorkbook.Sheets(Hoja).Application.Cells.Replace(What:=TextoFind, _ Replacement:=TextoReplace, _ LookAt:=1, _ SearchOrder:=1, _ MatchCase:=Match_Case) AppXls.ActiveWorkbook.Save ' cierra y elimina la referencia de Excel AppXls.quit Set AppXls = Nothing Me.MousePointer = 0 MsgBox "Listo", vbInformation Exit Sub ' rutina de error Error_Sub: MsgBox Err.Description On Error Resume Next AppXls.quit Set AppXls = Nothing Me.MousePointer = 0 End Sub Private Sub Form_Load() Command1.Caption = "Reemplazar todo" Me.Caption = "Buscar y reemplzar en Excel" Text1.Text = "c:\libro1.xls" Text2 = "Hoja1" Text3.Text = "texto a buscar" Text4.Text = "Texto a reemplzar" End Sub

Recursos Visual basic - Enlaces relacionados

Recursos Visual basic.NET - enlaces relacionados

Buscar dentro de un archivo con FindInFiles de la clase My.Computer.FileSystem

Buscar en Recursos vb