Hola amigos del foro, vengo yo a uds de nuevo luego de numerosos intentos y desesperación, ya que sinceramente ya no se que podré estar haciendo mal.
Estoy haciendo una automatización en VB.NET 2010 en Excel, la cuál consiste en un limpiado de un archivo. Me pidieron unas modificaciones en el programa entonces tuve que cambiarlo bastante pero al final de cuentas el funcionamiento en sí del programa lo hace bien, excepto en un pequeño gran detalle el cuál es que no elimina las filas que yo quiero que elimine, estas para ser eliminadas simplemente tienen que ser un campo vacío, simplemente es eso pero no entiendo porque el programa no lo hace.
Les dejo acá el fragmento del método
'Variables a utilizar
Dim str_cod As String = String.Empty
Dim str_xxx As String = String.Empty
Dim str_sku As String = String.Empty
Dim xlWorkSheet As Excel.Worksheet = Nothing ' Hojas
Dim i As Integer = 0 'Contador del ciclo
Dim xcell As New Object
xlWorkSheet = xlworkbook.Sheets("Hoja2") 'Hoja que estoy utilizando
Dim xlrange_col2 As Range = Nothing
'Progress Bar que utilizo
pg_proceso_inventario.Minimum = 1
pg_proceso_inventario.Maximum = filas
'Este es el rango que recorro de la hoja de excel
xlrange_col2 = xlWorkSheet.Range("B2:" + "B" + filas) 'Rango filas
i = 2 ' Debe empezar en 2 porque este posee un encabezado
'Esto es un checkbox consiste en que si quiero quitar o dejar todos. ignorar esto
If chkDejarTodos.Checked = False Then
'Ciclo que empiezo a recorrer el rango
For Each xcell In xlrange_col2
pg_proceso_inventario.Value = pg_proceso_inventario.Value + 1
lbl_indice_numero.Text = i.ToString
'limpiamos las variables
str_cod = Nothing 'Código1
str_xxx = Nothing 'Código XXX
str_sku = Nothing 'Código SKU
str_cod = Convert.ToString(xlWorkSheet.Cells(i, 1).Value) 'Código1
str_xxx = Convert.ToString(xlWorkSheet.Cells(i, 2).Value) 'Código XXX
str_sku = Convert.ToString(xlWorkSheet.Cells(i, 3).Value) 'Código SKU
'Si el checkbox de familia no está activado procedemos a eliminar todo aquel
'que no empiece por 77 y está vacío
If chk_Familia.Checked = False Then
If str_cod.StartsWith("77") Then
i = i + 1
'Acá es el maldito problema, no lo elimina de ninguna forma
ElseIf (no_vacio(str_xxx) = False) Then
' xlWorkSheet.Rows(i).delete()
With xlWorkSheet
.Rows.Item(i).delete()
End With
'xlWorkSheet.Cells(i, 2).Value = "DEBO ELIMINARME"
i = i + 1
Else
i = i + 1
End If
Else
'Si el checkbox está activado
If str_cod.StartsWith(str_familia) Then
i = i + 1
Else
xlWorkSheet.Rows(i).Delete()
i = i + 1
End If
End If
Next
End If
pg_proceso_inventario.Value = pg_proceso_inventario.Minimum
xlworkbook.Save()
lbl_Cant_Produc.Text = devolver_filas(xlapp, xlWorkSheet)
release_object(xlrange_col2)
release_object(xlWorkSheet)
Bien les voy a explicar en prosa un poco más el código, consiste en recorrer ese rango desde B2 hasta la cantidad de filas que posee el archivo, cuando el encuentra un código que empieza por 77 el lo ignora si este ya no empieza por 77 entonces verifica que el código 2 (o sea la fila B del rango que estamos recorriendo) sea vacío y si no lo es lo elimina se supone porque en realidad no lo hace....
Bien este es el método que averigua si hay algo
Public Function no_vacio(ByVal str As String) As Boolean
If str.Length > 0 Then
Return True
End If
Return False
End Function
Inicialmente utilizaba el String.nulloblank o String.nullwhitespace pero el resultado es el mismo y la verdad ya no se que estoy haciendo mal.
Muchas gracias por leerme.
mmm... no si si es un error al escribir o no, pero leyéndote, me fuerza a preguntarme si sabes distinguir filas de columnas.
Citar
Fila 0 |Columna 0 | Columna 1 | Columna 2 | Columna 3 |
Fila 1
Fila 2
Fila 3
Tampoco me queda claro lo que quieres hacer... si eliminar la celda, vaciar su contenido (a juzgar por este comentario: xlWorkSheet.Cells(i, 2).Value = "DEBO ELIMINARME"), o eliminar la fila o columna...
Lego observo que en todas las condicones dentro de: "If chk_Familia.Checked = False Then", haces:
I=(I+1)Entonces puedes hacerlo tras terminar, una única vez...
La función 'novacio', es redundante, e induce a complicaciones si la comparación se hace en la forma:
Si Novacio(x ) = FALSE luegoes preferible pensarlo en positivo:
Si Contienealgo(x) luegoPero en efecto, la propia función es redundante, poque el objeto string posee métodos intrínsecos para ello (como bien señalas al final):
If String.IsNullOrWhiteSpace(str_xxx)=FALSE Then
xlWorkSheet.Cells(i, 2).Value = ""
End IfFinalmente, advertirte que esta comprobación es correcta solo si se sabe con absoluta certeza que será siempre así y que nunca nadie cometerá errores:
If str_cod.StartsWith("77") ThenYa que cabe la posibilidad de que contenga espacios a la izquierda... aunque solo sea uno. Mejor así:
If (str_cod.TrimStart(" ")).StartsWith("77") ThenNota: Que esta forma en una sola línea no altera el contenido de "str_cod", solo ejecuta la comparación sin modificar el contenido.
Hola NEBIRE, primero que todo muchas gracias por el tiempo de leerme y sobretodo responderme.
Muchas gracias por la aclaración, entiendo perfectamente la diferencia entre columna y fila, mira te explico, el método .Cells de la librería interop tiene dos parámetros opcionales, en este caso seria ( fila, columna), entonces si yo le indico los dos parámetros en lugar de borrar toda la fila ( que es lo que ocupo) borro solo una celda.
Bien, yo lo que necesito es que al no cumplirse que el código 1 empiece por 77 este verifique que el codigo 2 no sea vacío o nulo, si este es vacío o nulo necesito eliminar la fila completa, cosa que no lo está haciendo por alguna razón y por ello recurro a uds.
Antes de que me digas si estoy en la hoja correcta o si es el rango correcto debo comentarte que revisé a cabalidad y lamentablemente se encuentra bien.
Tienes razón en lo del incremento del indice, es totalmente redundante y lo voy a corregir, gracias por notarlo.
Respecto a los condicionales voy a revisarlos nuevamente, muchas gracias.
Si sabes algo en especifico te agradecería mucho para poder dar con el problema.