Ejecutar Macros en Excel desde Visual Basic NET

Como Insertar, Actualizar, Eliminar y Buscar datos en excel desde Visual Basic .NET usando macros.


Descargar:

https://1drv.ms/u/s!AiBCe6NdpuFlk1qkGw6jtjOHe-jt?e=XGWlB0


https://drive.google.com/file/d/1IjGDHbs8SRIuO-KPHoje4BzVztYyfH1T/view?usp=sharing




'Scripts para las funciones en excel


Sub InsertarRegistro(ByVal TablaActual As String, ByVal NOMBRE As String, ByVal TELEFONO As String, ByVal DIRECCION As String, ByVal FECHA_NACIMIENTO As String)
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets(TablaActual)

Dim MiID As Long

' MiID = sh.Range("A1", sh.Range("A1").End(xlDown)).Rows.Count
'Buscamos el numero mas grande y le agregamos 1
Dim rng As Range
Dim dblMax As Integer

Set rng = sh.Range("A1", sh.Range("A1").End(xlDown))

dblMax = Application.WorksheetFunction.Max(rng)
MiID = dblMax + 1


Dim UltimaFila As Long
UltimaFila = 1 + Sheets(TablaActual).Cells(Rows.Count, "B").End(xlUp).Row
Sheets(TablaActual).Cells(UltimaFila, 1) = MiID
Sheets(TablaActual).Cells(UltimaFila, 2) = NOMBRE
Sheets(TablaActual).Cells(UltimaFila, 3) = TELEFONO
Sheets(TablaActual).Cells(UltimaFila, 4) = DIRECCION
Sheets(TablaActual).Cells(UltimaFila, 5) = FECHA_NACIMIENTO
End Sub

Sub ActualizarDatos(ByVal TablaActual As String, ByVal MiID As String, ByVal NOMBRE As String, ByVal TELEFONO As String, ByVal DIRECCION As String, ByVal FECHA_NACIMIENTO As Date)

Set coincidencia = Range("A:A").Find(MiID)

If Not coincidencia Is Nothing Then
Worksheets(TablaActual).Range("B" & coincidencia.Row & ":B" & coincidencia.Row).Value = NOMBRE
Worksheets(TablaActual).Range("C" & coincidencia.Row & ":C" & coincidencia.Row).Value = TELEFONO
Worksheets(TablaActual).Range("D" & coincidencia.Row & ":D" & coincidencia.Row).Value = DIRECCION
Worksheets(TablaActual).Range("E" & coincidencia.Row & ":E" & coincidencia.Row).Value = FECHA_NACIMIENTO

Else
MsgBox ("No existe registro con este ID")
End If

End Sub

Sub Imprimir(ByVal Numero As Integer, ByVal ID As String, ByVal NOMBRE As String, ByVal TELEFONO As String, ByVal DIRECCION As String, ByVal FECHA_NACIMIENTO As Date)
Range("A" & Numero & "").Value = ID
Range("B" & Numero & "").Value = NOMBRE
Range("C" & Numero & "").Value = TELEFONO
Range("D" & Numero & "").Value = DIRECCION
Range("E" & Numero & "").Value = FECHA_NACIMIENTO
Range("E" & Numero & "").NumberFormat = "mm/dd/yyyy;@"

End Sub

Sub LimpiaReporte()
Range("A4:A1000").Value = ""
Range("B4:B1000").Value = ""
Range("C4:C1000").Value = ""
Range("D4:D1000").Value = ""
Range("E4:E1000").Value = ""

Range("A4:A1000").Interior.ColorIndex = xlNone
Range("B4:B1000").Interior.ColorIndex = xlNone
Range("C4:C1000").Interior.ColorIndex = xlNone
Range("D4:D1000").Interior.ColorIndex = xlNone
Range("E4:E1000").Interior.ColorIndex = xlNone

Range("A4:A1000").Font.Bold = False
Range("B4:B1000").Font.Bold = False
Range("C4:C1000").Font.Bold = False
Range("D4:D1000").Font.Bold = False
Range("E4:E1000").Font.Bold = False


Range("A4:A1000").Font.Size = 11
Range("B4:B1000").Font.Size = 11
Range("C4:C1000").Font.Size = 11
Range("D4:D1000").Font.Size = 11
Range("E4:E1000").Font.Size = 11

End Sub

Sub TotalesReporte(ByVal Numero As Integer, ByVal TOTAL As Integer)
Range("D" & Numero & "").Value = "Total de Estudiantes: "
Range("E" & Numero & "").Value = TOTAL


'Application.Wait (Now + TimeValue("00:00:02")) 'wait 5 seconds from now

Dim MiRango As String
MiRango = "A" & Numero & ":E" & Numero & ""

Range(MiRango).Interior.ColorIndex = 24
Range(MiRango).Font.Bold = True
Range(MiRango).Font.Size = 14
Range("E" & Numero & "").NumberFormat = "0.00"
End Sub

Sub EliminaRegistro(ByVal MiID As Integer)
Set coincidencia = Range("A:A").Find(MiID)

If Not coincidencia Is Nothing Then
Worksheets("estudiante").Rows(coincidencia.Row).Delete
End If

End Sub