C#でExcelファイルを開く方法

// Add reference to the IronXL library
using IronXL;

' Add reference to the IronXL library
Imports IronXL

using IronXL.Formatting;  // For cell styling
using IronXL.Drawing;     // For images and charts
using System.Data;        // For DataSet/DataTable operations

Imports IronXL.Formatting  ' For cell styling
Imports IronXL.Drawing     ' For images and charts
Imports System.Data        ' For DataSet/DataTable operations

// Supported Excel spreadsheet formats for reading include: XLSX, XLS, CSV, and TSV
WorkBook workbook = WorkBook.Load("test.xlsx");

// You can also load from streams for web applications
// using (var stream = File.OpenRead("test.xlsx"))
// {
//     WorkBook workbook = WorkBook.Load(stream);
// }

' Supported Excel spreadsheet formats for reading include: XLSX, XLS, CSV, and TSV
Dim workbook As WorkBook = WorkBook.Load("test.xlsx")

' You can also load from streams for web applications
' Using stream = File.OpenRead("test.xlsx")
'     Dim workbook As WorkBook = WorkBook.Load(stream)
' End Using

// Access the first worksheet in the workbook
WorkSheet sheet = workbook.WorkSheets.First();

// Alternative ways to access worksheets
WorkSheet sheetByIndex = workbook.WorkSheets[0];  // By index
WorkSheet sheetByName = workbook.GetWorkSheet("Sheet1");  // By name

' Access the first worksheet in the workbook
Dim sheet As WorkSheet = workbook.WorkSheets.First()

' Alternative ways to access worksheets
Dim sheetByIndex As WorkSheet = workbook.WorkSheets(0)  ' By index
Dim sheetByName As WorkSheet = workbook.GetWorkSheet("Sheet1")  ' By name

// Select the cell using Excel notation and retrieve its integer value
int cellValue = sheet["C2"].IntValue;

// You can also retrieve values in different formats
string textValue = sheet["C2"].StringValue;
decimal decimalValue = sheet["C2"].DecimalValue;
DateTime dateValue = sheet["C2"].DateTimeValue;
bool boolValue = sheet["C2"].BoolValue;

// Display the value in the console
Console.WriteLine($"Cell C2 contains: {cellValue}");

// Check if cell is empty before reading
if (!sheet["C2"].IsEmpty)
{
    Console.WriteLine($"Cell value: {sheet["C2"].Value}");
}

' Select the cell using Excel notation and retrieve its integer value
Dim cellValue As Integer = sheet("C2").IntValue

' You can also retrieve values in different formats
Dim textValue As String = sheet("C2").StringValue
Dim decimalValue As Decimal = sheet("C2").DecimalValue
Dim dateValue As DateTime = sheet("C2").DateTimeValue
Dim boolValue As Boolean = sheet("C2").BoolValue

' Display the value in the console
Console.WriteLine($"Cell C2 contains: {cellValue}")

' Check if cell is empty before reading
If Not sheet("C2").IsEmpty Then
    Console.WriteLine($"Cell value: {sheet("C2").Value}")
End If

// Iterate through a range of cells and display their address and text content
foreach (var cell in sheet["A2:A6"])
{
    Console.WriteLine("Cell {0} has value '{1}'", cell.AddressString, cell.Text);
}

// Read an entire column
foreach (var cell in sheet.GetColumn(0))  // Column A
{
    if (!cell.IsEmpty)
    {
        Console.WriteLine($"Column A value: {cell.Text}");
    }
}

// Read an entire row
foreach (var cell in sheet.GetRow(1))  // Row 2
{
    Console.WriteLine($"Row 2 value: {cell.Text}");
}

' Iterate through a range of cells and display their address and text content
For Each cell In sheet("A2:A6")
    Console.WriteLine("Cell {0} has value '{1}'", cell.AddressString, cell.Text)
Next

' Read an entire column
For Each cell In sheet.GetColumn(0) ' Column A
    If Not cell.IsEmpty Then
        Console.WriteLine($"Column A value: {cell.Text}")
    End If
Next

' Read an entire row
For Each cell In sheet.GetRow(1) ' Row 2
    Console.WriteLine($"Row 2 value: {cell.Text}")
Next

// Convert worksheet to DataTable for easier data manipulation
DataTable dataTable = sheet.ToDataTable(true);  // true = first row contains headers

// Access data using DataTable methods
foreach (DataRow row in dataTable.Rows)
{
    Console.WriteLine($"Employee: {row["Name"]}, Salary: {row["Salary"]}");
}

' Convert worksheet to DataTable for easier data manipulation
Dim dataTable As DataTable = sheet.ToDataTable(True)  ' True = first row contains headers

' Access data using DataTable methods
For Each row As DataRow In dataTable.Rows
    Console.WriteLine($"Employee: {row("Name")}, Salary: {row("Salary")}")
Next

// Create a new workbook with the XLSX format
WorkBook workBook = new WorkBook(ExcelFileFormat.XLSX);

// Alternative: Create with XLS format for compatibility
WorkBook xlsWorkBook = new WorkBook(ExcelFileFormat.XLS);

// Set workbook metadata
workBook.Metadata.Title = "Employee Data";
workBook.Metadata.Author = "Your Name";
workBook.Metadata.Keywords = "employees, salary, data";

' Create a new workbook with the XLSX format
Dim workBook As New WorkBook(ExcelFileFormat.XLSX)

' Alternative: Create with XLS format for compatibility
Dim xlsWorkBook As New WorkBook(ExcelFileFormat.XLS)

' Set workbook metadata
workBook.Metadata.Title = "Employee Data"
workBook.Metadata.Author = "Your Name"
workBook.Metadata.Keywords = "employees, salary, data"

// Create a worksheet named "GDPByCountry" in the workbook
WorkSheet workSheet = workBook.CreateWorkSheet("GDPByCountry");

// Create multiple worksheets at once
WorkSheet sheet2 = workBook.CreateWorkSheet("PopulationData");
WorkSheet sheet3 = workBook.CreateWorkSheet("Summary");

// Copy an existing worksheet
WorkSheet copiedSheet = workSheet.CopySheet("GDPByCountryCopy");

' Create a worksheet named "GDPByCountry" in the workbook
Dim workSheet As WorkSheet = workBook.CreateWorkSheet("GDPByCountry")

' Create multiple worksheets at once
Dim sheet2 As WorkSheet = workBook.CreateWorkSheet("PopulationData")
Dim sheet3 As WorkSheet = workBook.CreateWorkSheet("Summary")

' Copy an existing worksheet
Dim copiedSheet As WorkSheet = workSheet.CopySheet("GDPByCountryCopy")

// Set the value of cell A1 to "Example"
workSheet["A1"].Value = "Example";

// Add different types of data
workSheet["A2"].Value = 12345;  // Integer
workSheet["A3"].Value = 99.99m;  // Decimal
workSheet["A4"].Value = DateTime.Now;  // Date
workSheet["A5"].Value = true;  // Boolean

// Add formulas
workSheet["B1"].Formula = "=SUM(A2:A3)";

// Set multiple cells at once using a range
workSheet["C1:C5"].Value = "Bulk Value";

// Save the workbook
workBook.SaveAs("output.xlsx");

' Set the value of cell A1 to "Example"
workSheet("A1").Value = "Example"

' Add different types of data
workSheet("A2").Value = 12345  ' Integer
workSheet("A3").Value = 99.99D  ' Decimal
workSheet("A4").Value = DateTime.Now  ' Date
workSheet("A5").Value = True  ' Boolean

' Add formulas
workSheet("B1").Formula = "=SUM(A2:A3)"

' Set multiple cells at once using a range
workSheet("C1:C5").Value = "Bulk Value"

' Save the workbook
workBook.SaveAs("output.xlsx")

// Convert between formats
WorkBook workbook = WorkBook.Load("data.csv");
workbook.SaveAs("data.xlsx");  // Convert CSV to XLSX

// Export to different formats
workbook.SaveAsCsv("output.csv", ";");  // CSV with semicolon delimiter
workbook.SaveAsJson("output.json");     // Export as JSON
workbook.SaveAsXml("output.xml");       // Export as XML

' Convert between formats
Dim workbook As WorkBook = WorkBook.Load("data.csv")
workbook.SaveAs("data.xlsx")  ' Convert CSV to XLSX

' Export to different formats
workbook.SaveAsCsv("output.csv", ";")  ' CSV with semicolon delimiter
workbook.SaveAsJson("output.json")     ' Export as JSON
workbook.SaveAsXml("output.xml")       ' Export as XML

try
{
    WorkBook workbook = WorkBook.Load("test.xlsx");
    WorkSheet sheet = workbook.GetWorkSheet("Sheet1");

    // Check if sheet exists
    if (sheet == null)
    {
        Console.WriteLine("Worksheet not found!");
        return;
    }

    // Process data
    var value = sheet["A1"].Value;
}
catch (Exception ex)
{
    Console.WriteLine($"Error reading Excel file: {ex.Message}");
}

Imports System

Try
    Dim workbook As WorkBook = WorkBook.Load("test.xlsx")
    Dim sheet As WorkSheet = workbook.GetWorkSheet("Sheet1")

    ' Check if sheet exists
    If sheet Is Nothing Then
        Console.WriteLine("Worksheet not found!")
        Return
    End If

    ' Process data
    Dim value = sheet("A1").Value
Catch ex As Exception
    Console.WriteLine($"Error reading Excel file: {ex.Message}")
End Try