C# Tutorial de lectura de archivos Excel

using IronXL;
using System;
using System.Linq;

//  Los formatos de hoja de cálculo compatibles para la lectura son: XLSX, XLS, CSV y TSV
WorkBook workBook = WorkBook.Load("test.xlsx");
WorkSheet workSheet = workBook.WorkSheets.First();

//  Seleccionar celdas fácilmente en notación Excel y devolver el valor calculado
int cellValue = workSheet["A2"].IntValue;

//  Lee desde Rangos de células con elegancia.
foreach (var cell in workSheet["A2:A10"])
{
    Console.WriteLine("Cell {0} has value '{1}'", cell.AddressString, cell.Text);
}

//  Operaciones avanzadas
//  Calcular valores agregados como Mín, Máx y Suma
decimal sum = workSheet["A2:A10"].Sum();

//  Compatible con Linq
decimal max = workSheet["A2:A10"].Max(c => c.DecimalValue);

Imports IronXL
Imports System
Imports System.Linq

'  Los formatos de hoja de cálculo compatibles para la lectura son: XLSX, XLS, CSV y TSV
Private workBook As WorkBook = WorkBook.Load("test.xlsx")
Private workSheet As WorkSheet = workBook.WorkSheets.First()

'  Seleccionar celdas fácilmente en notación Excel y devolver el valor calculado
Private cellValue As Integer = workSheet("A2").IntValue

'  Lee desde Rangos de células con elegancia.
For Each cell In workSheet("A2:A10")
	Console.WriteLine("Cell {0} has value '{1}'", cell.AddressString, cell.Text)
Next cell

'  Operaciones avanzadas
'  Calcular valores agregados como Mín, Máx y Suma
Dim sum As Decimal = workSheet("A2:A10").Sum()

'  Compatible con Linq
Dim max As Decimal = workSheet("A2:A10").Max(Function(c) c.DecimalValue)

WorkBook workBook = WorkBook.Load(@"Spreadsheets\\GDP.xlsx");

Dim workBook As WorkBook = WorkBook.Load("Spreadsheets\\GDP.xlsx")

WorkBook workBook = new WorkBook(ExcelFileFormat.XLSX);

Dim workBook As New WorkBook(ExcelFileFormat.XLSX)

WorkSheet workSheet = workBook.GetWorkSheet("GDPByCountry");

Dim workSheet As WorkSheet = workBook.GetWorkSheet("GDPByCountry")

WorkBook workBook = WorkBook.Load("test.xlsx");
WorkSheet workSheet = workBook.DefaultWorkSheet;
IronXL.Cell cell = workSheet["B1"].First();

Dim workBook As WorkBook = WorkBook.Load("test.xlsx")
Dim workSheet As WorkSheet = workBook.DefaultWorkSheet
Dim cell As IronXL.Cell = workSheet("B1").First()

IronXL.Cell cell = workSheet["B1"].First();
string value = cell.StringValue;   //  Leer el valor de la celda como una cadena
Console.WriteLine(value);

cell.Value = "10.3289";           //  Escribir un nuevo valor en la celda
Console.WriteLine(cell.StringValue);

Dim cell As IronXL.Cell = workSheet("B1").First()
Dim value As String = cell.StringValue '  Leer el valor de la celda como una cadena
Console.WriteLine(value)

cell.Value = "10.3289" '  Escribir un nuevo valor en la celda
Console.WriteLine(cell.StringValue)

Range range = workSheet["D2:D101"];

Dim range As Range = workSheet("D2:D101")

//  Iterar por las filas
for (var y = 2; y <= 101; y++)
{
    var result = new PersonValidationResult { Row = y };
    results.Add(result);

    //  Obtener todas las celdas de la persona
    var cells = workSheet[$"A{y}:E{y}"].ToList();

    //  Validar el número de teléfono (1 = B)
    var phoneNumber = cells[1].Value;
    result.PhoneNumberErrorMessage = ValidatePhoneNumber(phoneNumberUtil, (string)phoneNumber);

    //  Validar la dirección de correo electrónico (3 = D)
    result.EmailErrorMessage = ValidateEmailAddress((string)cells[3].Value);

    //  Obtener la fecha sin procesar en el formato Mes Día[sufijo], Año (4 = E)
    var rawDate = (string)cells[4].Value;
    result.DateErrorMessage = ValidateDate(rawDate);
}

'  Iterar por las filas
For y = 2 To 101
	Dim result = New PersonValidationResult With {.Row = y}
	results.Add(result)

	'  Obtener todas las celdas de la persona
	Dim cells = workSheet($"A{y}:E{y}").ToList()

	'  Validar el número de teléfono (1 = B)
	Dim phoneNumber = cells(1).Value
	result.PhoneNumberErrorMessage = ValidatePhoneNumber(phoneNumberUtil, CStr(phoneNumber))

	'  Validar la dirección de correo electrónico (3 = D)
	result.EmailErrorMessage = ValidateEmailAddress(CStr(cells(3).Value))

	'  Obtener la fecha sin procesar en el formato Mes Día[sufijo], Año (4 = E)
	Dim rawDate = CStr(cells(4).Value)
	result.DateErrorMessage = ValidateDate(rawDate)
Next y

//  Iterar a través de todas las filas con un valor
for (var y = 2 ; y < i ; y++)
{
    //  Obtener la célula C
    Cell cell = workSheet[$"C{y}"].First();

    //  Establezca la fórmula de la columna Porcentaje del total
    cell.Formula = $"=B{y}/B{i}";
}

'  Iterar a través de todas las filas con un valor
Dim y = 2
Do While y < i
	'  Obtener la célula C
	Dim cell As Cell = workSheet($"C{y}").First()

	'  Establezca la fórmula de la columna Porcentaje del total
	cell.Formula = $"=B{y}/B{i}"
	y += 1
Loop

//  Iterar por las filas
for (var i = 2; i <= 101; i++)
{
    var result = new PersonValidationResult { Row = i };
    results.Add(result);

    //  Obtener todas las celdas de la persona
    var cells = worksheet[$"A{i}:E{i}"].ToList();

    //  Validar el número de teléfono (1 = B)
    var phoneNumber = cells[1].Value;
    result.PhoneNumberErrorMessage = ValidatePhoneNumber(phoneNumberUtil, (string)phoneNumber);

    //  Validar la dirección de correo electrónico (3 = D)
    result.EmailErrorMessage = ValidateEmailAddress((string)cells[3].Value);

    //  Obtener la fecha sin procesar en el formato Mes Día[sufijo], Año (4 = E)
    var rawDate = (string)cells[4].Value;
    result.DateErrorMessage = ValidateDate(rawDate);
}

'  Iterar por las filas
For i = 2 To 101
	Dim result = New PersonValidationResult With {.Row = i}
	results.Add(result)

	'  Obtener todas las celdas de la persona
	Dim cells = worksheet($"A{i}:E{i}").ToList()

	'  Validar el número de teléfono (1 = B)
	Dim phoneNumber = cells(1).Value
	result.PhoneNumberErrorMessage = ValidatePhoneNumber(phoneNumberUtil, CStr(phoneNumber))

	'  Validar la dirección de correo electrónico (3 = D)
	result.EmailErrorMessage = ValidateEmailAddress(CStr(cells(3).Value))

	'  Obtener la fecha sin procesar en el formato Mes Día[sufijo], Año (4 = E)
	Dim rawDate = CStr(cells(4).Value)
	result.DateErrorMessage = ValidateDate(rawDate)
Next i

var resultsSheet = workBook.CreateWorkSheet("Results");
resultsSheet["A1"].Value = "Row";
resultsSheet["B1"].Value = "Valid";
resultsSheet["C1"].Value = "Phone Error";
resultsSheet["D1"].Value = "Email Error";
resultsSheet["E1"].Value = "Date Error";
for (var i = 0; i < results.Count; i++)
{
    var result = results[i];
    resultsSheet[$"A{i + 2}"].Value = result.Row;
    resultsSheet[$"B{i + 2}"].Value = result.IsValid ? "Yes" : "No";
    resultsSheet[$"C{i + 2}"].Value = result.PhoneNumberErrorMessage;
    resultsSheet[$"D{i + 2}"].Value = result.EmailErrorMessage;
    resultsSheet[$"E{i + 2}"].Value = result.DateErrorMessage;
}
workBook.SaveAs(@"Spreadsheets\\PeopleValidated.xlsx");

Dim resultsSheet = workBook.CreateWorkSheet("Results")
resultsSheet("A1").Value = "Row"
resultsSheet("B1").Value = "Valid"
resultsSheet("C1").Value = "Phone Error"
resultsSheet("D1").Value = "Email Error"
resultsSheet("E1").Value = "Date Error"
For i = 0 To results.Count - 1
	Dim result = results(i)
	resultsSheet($"A{i + 2}").Value = result.Row
	resultsSheet($"B{i + 2}").Value = If(result.IsValid, "Yes", "No")
	resultsSheet($"C{i + 2}").Value = result.PhoneNumberErrorMessage
	resultsSheet($"D{i + 2}").Value = result.EmailErrorMessage
	resultsSheet($"E{i + 2}").Value = result.DateErrorMessage
Next i
workBook.SaveAs("Spreadsheets\\PeopleValidated.xlsx")

public class Country
    {
        [Key]
        public Guid Key { get; set; }
        public string Name { get; set; }
        public decimal GDP { get; set; }
    }

Public Class Country
		<Key>
		Public Property Key() As Guid
		Public Property Name() As String
		Public Property GDP() As Decimal
End Class

public class CountryContext : DbContext
    {
        public DbSet<Country> Countries { get; set; }
        public CountryContext()
        {
            //TODO: Hacer async
            Database.EnsureCreated();
        }
        /// <summary>
        /// Configurar el contexto para utilizar Sqlite
        /// </summary>
        /// <param name="optionsBuilder"></param>
        protected override void OnConfiguring(DbContextOptionsBuilder optionsBuilder)
        {
            var connection = new SqliteConnection($"Data Source=Country.db");
            connection.Open();
            var command = connection.CreateCommand();
            //Crear la base de datos si aún no existe
            command.CommandText = $"PRAGMA foreign_keys = ON;";
            command.ExecuteNonQuery();
            optionsBuilder.UseSqlite(connection);
            base.OnConfiguring(optionsBuilder);
        }
    }

Public Class CountryContext
	Inherits DbContext

		Public Property Countries() As DbSet(Of Country)
		Public Sub New()
			'TODO: Hacer async
			Database.EnsureCreated()
		End Sub
		''' <summary>
		''' Configurar el contexto para utilizar Sqlite
		''' </summary>
		''' <param name="optionsBuilder"></param>
		Protected Overrides Sub OnConfiguring(ByVal optionsBuilder As DbContextOptionsBuilder)
			Dim connection = New SqliteConnection($"Data Source=Country.db")
			connection.Open()
			Dim command = connection.CreateCommand()
			'Crear la base de datos si aún no existe
			command.CommandText = $"PRAGMA foreign_keys = ON;"
			command.ExecuteNonQuery()
			optionsBuilder.UseSqlite(connection)
			MyBase.OnConfiguring(optionsBuilder)
		End Sub
End Class

public async Task ProcessAsync()
{
    //Obtener la primera hoja de cálculo
    var workbook = WorkBook.Load(@"Spreadsheets\\GDP.xlsx");
    var worksheet = workbook.GetWorkSheet("GDPByCountry");
    //Crear la conexión a la base de datos
    using (var countryContext = new CountryContext())
    {
        //Iterar a través de todas las celdas
        for (var i = 2; i <= 213; i++)
        {
            //Obtener la gama de A-B
            var range = worksheet[$"A{i}:B{i}"].ToList();
            //Crear una entidad País para guardarla en la base de datos
            var country = new Country
            {
                Name = (string)range[0].Value,
                GDP = (decimal)(double)range[1].Value
            };
            //Añadir la entidad
            await countryContext.Countries.AddAsync(country);
        }
        //Confirmar los cambios en la base de datos
        await countryContext.SaveChangesAsync();
    }
}

Public Async Function ProcessAsync() As Task
	'Obtener la primera hoja de cálculo
	Dim workbook = WorkBook.Load("Spreadsheets\\GDP.xlsx")
	Dim worksheet = workbook.GetWorkSheet("GDPByCountry")
	'Crear la conexión a la base de datos
	Using countryContext As New CountryContext()
		'Iterar a través de todas las celdas
		For i = 2 To 213
			'Obtener la gama de A-B
			Dim range = worksheet($"A{i}:B{i}").ToList()
			'Crear una entidad País para guardarla en la base de datos
			Dim country As New Country With {
				.Name = CStr(range(0).Value),
				.GDP = CDec(CDbl(range(1).Value))
			}
			'Añadir la entidad
			Await countryContext.Countries.AddAsync(country)
		Next i
		'Confirmar los cambios en la base de datos
		Await countryContext.SaveChangesAsync()
	End Using
End Function

var client = new Client(new Uri("https://restcountries.eu/rest/v2/"));
List<RestCountry> countries = await client.GetAsync<List<RestCountry>>();

Dim client As New Client(New Uri("https://restcountries.eu/rest/v2/"))
Dim countries As List(Of RestCountry) = Await client.GetAsync(Of List(Of RestCountry))()

for (var i = 2; i < countries.Count; i++)
{
    var country = countries[i];
    //Establecer los valores básicos
    workSheet[$"A{i}"].Value = country.name;
    workSheet[$"B{i}"].Value = country.population;
    workSheet[$"G{i}"].Value = country.region;
    workSheet[$"H{i}"].Value = country.numericCode;
    //Iterar por idiomas
    for (var x = 0; x < 3; x++)
    {
        if (x > (country.languages.Count - 1)) break;
        var language = country.languages[x];
        //Obtener la letra de la columna
        var columnLetter = GetColumnLetter(4 + x);
        //Establecer el nombre del idioma
        workSheet[$"{columnLetter}{i}"].Value = language.name;
    }
}

For i = 2 To countries.Count - 1
	Dim country = countries(i)
	'Establecer los valores básicos
	workSheet($"A{i}").Value = country.name
	workSheet($"B{i}").Value = country.population
	workSheet($"G{i}").Value = country.region
	workSheet($"H{i}").Value = country.numericCode
	'Iterar por idiomas
	For x = 0 To 2
		If x > (country.languages.Count - 1) Then
			Exit For
		End If
		Dim language = country.languages(x)
		'Obtener la letra de la columna
		Dim columnLetter = GetColumnLetter(4 + x)
		'Establecer el nombre del idioma
		workSheet($"{columnLetter}{i}").Value = language.name
	Next x
Next i