Cómo abrir un archivo de Excel en VB.NET

¿Cómo instalo IronXL en mi proyecto VB.NET?

Empezar con IronXL lleva solo unos segundos. Abre Visual Studio 2022, navega a tu proyecto VB.NET y utiliza la Consola del Administrador de Paquetes:

Install-Package IronXL.Excel

Alternativamente, haz clic derecho en tu proyecto, selecciona "Administrar paquetes NuGet", busca "IronXL" y haz clic en Instalar.

Una vez instalado, añade esta instrucción de importación a tu archivo VB.NET:

Imports IronXL

Imports IronXL

Eso es todo. Sin referencias COM complejas, sin dependencias de Office, sin ensamblados específicos de versión. Tu lector de archivos Excel en VB.NET está listo para trabajar en cualquier máquina. Para instrucciones de configuración detalladas, consulta nuestro tutorial de archivos Excel VB.NET.

Ejemplo de código simple: lectura de un documento de Excel con IronXL

Aquí tienes un ejemplo completo que funciona para abrir un libro de Excel en VB.NET y leer los datos:

Imports IronXL
Module Program
    Sub Main()
        ' Load any Excel file - XLSX, XLS, CSV, or TSV
        Dim workbook As WorkBook = WorkBook.Load("example.xlsx")
        ' Access the worksheet with our sales data (the second sheet)
        Dim worksheet As WorkSheet = workbook.WorkSheets(1)
        ' Read a specific cell value
        Dim revenue As Decimal = worksheet("E2").DecimalValue
        Console.WriteLine($"Order Total: {revenue}")
        ' Read a range of cells
        For Each cell In worksheet("C2:C6")
            Console.WriteLine($"Product: {cell.Text}")
        Next
    End Sub
End Module

Imports IronXL
Module Program
    Sub Main()
        ' Load any Excel file - XLSX, XLS, CSV, or TSV
        Dim workbook As WorkBook = WorkBook.Load("example.xlsx")
        ' Access the worksheet with our sales data (the second sheet)
        Dim worksheet As WorkSheet = workbook.WorkSheets(1)
        ' Read a specific cell value
        Dim revenue As Decimal = worksheet("E2").DecimalValue
        Console.WriteLine($"Order Total: {revenue}")
        ' Read a range of cells
        For Each cell In worksheet("C2:C6")
            Console.WriteLine($"Product: {cell.Text}")
        Next
    End Sub
End Module

El método WorkBook.Load() detecta automáticamente el formato de archivo; no es necesario especificar si está en formato XLS o XLSX. Accede a las hojas de cálculo de Excel por índice o nombre de archivo usando workbook.GetWorkSheet("Sheet1"). Cada celda devuelve valores tipados a través de propiedades como IntValue, DecimalValue, DateTimeValue o la propiedad universal Text. Para escenarios más complejos, explora nuestra documentación de fórmulas de Excel.

Como puedes ver aquí, IronXL abrió el archivo con éxito y leyó el total del pedido que solicitamos leer. También ha podido leer y extraer información de cada producto vendido en todos los pedidos.

¿Cómo puedo leer diferentes tipos de datos de Excel?

IronXL maneja todos los tipos de datos de Excel inteligentemente cuando lees archivos Excel VB.NET. Aquí está cómo trabajar con varios escenarios de datos:

' Open workbook from any location using the filename and path
Dim wb As WorkBook = WorkBook.Load("C:\Data\Inventory.xlsx")
Dim ws As WorkSheet = wb.GetWorkSheet("Products")
' Read different data types safely
Dim productName As String = ws("A2").StringValue
Dim quantity As Integer = ws("B2").IntValue  
Dim price As Decimal = ws("C2").DecimalValue
Dim lastUpdated As DateTime = ws("D2").DateTimeValue
' Process entire columns efficiently
Dim totalStock As Decimal = ws("B2:B100").Sum()
Dim maxPrice As Decimal = ws("C2:C100").Max()
' Iterate through all used cells starting at row index 1 to skip header (zero-based index)
 For i As Integer = 1 To ws.Rows.Count - 1
    Dim row = ws.Rows(i)
    ' Stop at first completely empty row
    If row.Columns(0).Value Is Nothing AndAlso row.Columns(1).Value Is Nothing AndAlso
       row.Columns(2).Value Is Nothing AndAlso row.Columns(3).Value Is Nothing Then Exit For
    ' Read values safely
    Dim sku As String = If(row.Columns(0).Value IsNot Nothing, row.Columns(0).StringValue, "")
    Dim stock As Integer = If(row.Columns(1).Value IsNot Nothing, row.Columns(1).IntValue, 0)
    Dim priceVal As Decimal = If(row.Columns(2).Value IsNot Nothing, row.Columns(2).DecimalValue, 0D)
    Dim rwLastUpdated As DateTime? = If(row.Columns(3).Value IsNot Nothing, row.Columns(3).DateTimeValue, Nothing)
    ' Format date
    Dim lastUpdatedStr As String = If(rwLastUpdated.HasValue, rwLastUpdated.Value.ToString("dd/MM/yyyy"), "")
    ' Print only rows with data
    If sku <> "" OrElse stock <> 0 OrElse priceVal <> 0D OrElse lastUpdatedStr <> "" Then
        Console.WriteLine($"SKU: {sku}, Stock: {stock}, Price: {priceVal:C}, Last Updated: {lastUpdatedStr}")
    End If
Next

' Open workbook from any location using the filename and path
Dim wb As WorkBook = WorkBook.Load("C:\Data\Inventory.xlsx")
Dim ws As WorkSheet = wb.GetWorkSheet("Products")
' Read different data types safely
Dim productName As String = ws("A2").StringValue
Dim quantity As Integer = ws("B2").IntValue  
Dim price As Decimal = ws("C2").DecimalValue
Dim lastUpdated As DateTime = ws("D2").DateTimeValue
' Process entire columns efficiently
Dim totalStock As Decimal = ws("B2:B100").Sum()
Dim maxPrice As Decimal = ws("C2:C100").Max()
' Iterate through all used cells starting at row index 1 to skip header (zero-based index)
 For i As Integer = 1 To ws.Rows.Count - 1
    Dim row = ws.Rows(i)
    ' Stop at first completely empty row
    If row.Columns(0).Value Is Nothing AndAlso row.Columns(1).Value Is Nothing AndAlso
       row.Columns(2).Value Is Nothing AndAlso row.Columns(3).Value Is Nothing Then Exit For
    ' Read values safely
    Dim sku As String = If(row.Columns(0).Value IsNot Nothing, row.Columns(0).StringValue, "")
    Dim stock As Integer = If(row.Columns(1).Value IsNot Nothing, row.Columns(1).IntValue, 0)
    Dim priceVal As Decimal = If(row.Columns(2).Value IsNot Nothing, row.Columns(2).DecimalValue, 0D)
    Dim rwLastUpdated As DateTime? = If(row.Columns(3).Value IsNot Nothing, row.Columns(3).DateTimeValue, Nothing)
    ' Format date
    Dim lastUpdatedStr As String = If(rwLastUpdated.HasValue, rwLastUpdated.Value.ToString("dd/MM/yyyy"), "")
    ' Print only rows with data
    If sku <> "" OrElse stock <> 0 OrElse priceVal <> 0D OrElse lastUpdatedStr <> "" Then
        Console.WriteLine($"SKU: {sku}, Stock: {stock}, Price: {priceVal:C}, Last Updated: {lastUpdatedStr}")
    End If
Next

IronXL maneja automáticamente celdas vacías, celdas combinadas y fórmulas. La biblioteca Excel VB.NET recalcula fórmulas cuando las lees, asegurándote siempre obtener valores actuales. Para conjuntos de datos grandes, utiliza funciones de agregación como Sum(), Average(), Min() y Max() para un rendimiento óptimo. ¿Necesitas exportar datos? Aprende cómo convertir Excel a CSV.

¿Cuál es un ejemplo práctico de uso en producción?

Construyamos un verificador de inventario real que procese múltiples hojas de Excel usando VB.NET para abrir archivos de Excel:

Imports IronXL
Imports System.IO
Public Class ExcelInventoryReader
    Public Function CheckLowStock(filePath As String) As List(Of String)
        Dim lowStockItems As New List(Of String)
        Try
            Dim workbook As WorkBook = WorkBook.Load(filePath)
            ' Process all worksheets in the workbook
            For Each sheet As WorkSheet In workbook.WorkSheets
                Console.WriteLine($"Checking {sheet.Name}...")
                ' Find items with stock below 10 units
                For rowIndex As Integer = 2 To sheet.RowCount
                    Dim itemName As String = sheet($"A{rowIndex}").StringValue
                    Dim stockLevel As Integer = sheet($"B{rowIndex}").IntValue
                    If stockLevel < 10 AndAlso Not String.IsNullOrEmpty(itemName) Then
                        lowStockItems.Add($"{itemName} - {stockLevel} units ({sheet.Name})")
                    End If
                Next
            Next
        Catch ex As Exception
            Console.WriteLine($"Error reading Excel file: {ex.Message}")
        End Try
        Return lowStockItems
    End Function
End Class

Imports IronXL
Imports System.IO
Public Class ExcelInventoryReader
    Public Function CheckLowStock(filePath As String) As List(Of String)
        Dim lowStockItems As New List(Of String)
        Try
            Dim workbook As WorkBook = WorkBook.Load(filePath)
            ' Process all worksheets in the workbook
            For Each sheet As WorkSheet In workbook.WorkSheets
                Console.WriteLine($"Checking {sheet.Name}...")
                ' Find items with stock below 10 units
                For rowIndex As Integer = 2 To sheet.RowCount
                    Dim itemName As String = sheet($"A{rowIndex}").StringValue
                    Dim stockLevel As Integer = sheet($"B{rowIndex}").IntValue
                    If stockLevel < 10 AndAlso Not String.IsNullOrEmpty(itemName) Then
                        lowStockItems.Add($"{itemName} - {stockLevel} units ({sheet.Name})")
                    End If
                Next
            Next
        Catch ex As Exception
            Console.WriteLine($"Error reading Excel file: {ex.Message}")
        End Try
        Return lowStockItems
    End Function
End Class

Este código de VB.NET listo para producción demuestra el manejo de errores, procesamiento de múltiples hojas y lógica empresarial práctica. IronXL maneja archivos de hasta 10MB de manera eficiente en memoria. Para archivos más grandes, considera procesarlos en partes usando selecciones de rango específicas. Problemas comunes, como permisos de archivo, están cubiertos en nuestras guías de solución de problemas. Para discusiones sobre automatización Excel en VB.NET, los foros de Q&A de Microsoft ofrecen soporte comunitario.

Conclusión

Con IronXL, la lectura y procesamiento de archivos Excel en VB.NET nunca ha sido tan fácil, y no necesitas tener Microsoft Office instalado. Desde leer de manera segura múltiples tipos de datos, iterar sobre hojas de cálculo grandes, manejar fórmulas y celdas vacías, hasta procesar libros de trabajo con múltiples hojas, IronXL simplifica cada aspecto de la automatización de Excel.

Esta moderna biblioteca de .NET elimina la complejidad de Interop, evita conflictos de versión y funciona sin problemas en entornos Windows, Linux y en la nube. Ya sea que estés construyendo un pequeño verificador de inventario o procesando datos de Excel a escala empresarial, IronXL proporciona un rendimiento confiable, código conciso y manejo robusto de errores.

¿Listo para simplificar tus flujos de trabajo de Excel en VB.NET? Comienza tu prueba gratuita de IronXL hoy y experimenta una forma más rápida, limpia y completamente independiente de Office para trabajar con archivos de Excel. Explora nuestra documentación y tutoriales para desbloquear el poder total de IronXL en tus aplicaciones.

Empiece con IronXL ahora.

Comience gratis