C# Excel-Dokumente erstellen, lesen oder aktualisieren

PM> Install-Package Spire.XLS

using Spire.Xls;
    using System.Data;
    
    namespace CreateExcelSpreadsheet
    {
        class Program
        {
            static void Main(string[] args)
            {
                //Create a Workbook object
                Workbook wb = new Workbook();
    
                //Remove default worksheets
                wb.Worksheets.Clear();
    
                //Add a worksheet and name it "Employee"
                Worksheet sheet = wb.Worksheets.Add("Employee");
    
                //Merge the cells between A1 and G1
                sheet.Range["A1:G1"].Merge();
    
                //Write data to A1 and apply formatting to it
                sheet.Range["A1"].Value = "Basic Information of Employees of Huanyu Automobile Company";
                sheet.Range["A1"].HorizontalAlignment = HorizontalAlignType.Center;
                sheet.Range["A1"].VerticalAlignment = VerticalAlignType.Center;
                sheet.Range["A1"].Style.Font.IsBold = true;
                sheet.Range["A1"].Style.Font.Size = 13F;
    
                //Set row height of the first row
                sheet.Rows[0].RowHeight = 30F;
    
                //Create a DataTable
                DataTable dt = new DataTable();
                dt.Columns.Add("Name");
                dt.Columns.Add("Gender");
                dt.Columns.Add("Birth Date");
                dt.Columns.Add("Educational Background");
                dt.Columns.Add("Contact Number");
                dt.Columns.Add("Position");
                dt.Columns.Add("ID");
                dt.Rows.Add("Allen", "Male", "1990-02-10", "Bachelor", "24756854", "Mechanic", "0021");
                dt.Rows.Add("Patrick", "Male", "1985-06-08", "Master", "59863247", "Mechanic", "0022");
                dt.Rows.Add("Jenna", "Female", "1989-11-25", "Bachelor", "79540352", "Sales", "0023");
                dt.Rows.Add("Tommy", "Male", "1988-04-16", "Master", "52014060", "Mechanic", "0024");
                dt.Rows.Add("Christina", "Female", "1998-01-21", "Bachelor", "35401489", "HR", "0025");
    
                //Import data from DataTable to worksheet
                sheet.InsertDataTable(dt, true, 2, 1, true);
    
                //Set row height of a range
                sheet.Range["A2:G7"].RowHeight = 15F;
    
                //Set column width
                sheet.Range["A2:G7"].Columns[2].ColumnWidth = 15F;
                sheet.Range["A2:G7"].Columns[3].ColumnWidth = 21F;
                sheet.Range["A2:G7"].Columns[4].ColumnWidth = 15F;
    
                //Set border style of a range
                sheet.Range["A2:G7"].BorderAround(LineStyleType.Medium);
                sheet.Range["A2:G7"].BorderInside(LineStyleType.Thin);
                sheet.Range["A2:G2"].BorderAround(LineStyleType.Medium);
                sheet.Range["A2:G7"].Borders.KnownColor = ExcelColors.Black;
    
                //Save to a .xlsx file
                wb.SaveToFile("NewSpreadsheet.xlsx", FileFormat.Version2016);
            }
        }
    }

Imports Spire.Xls
    Imports System.Data
    
    Namespace CreateExcelSpreadsheet
        Class Program
            Shared  Sub Main(ByVal args() As String)
                'Create a Workbook object
                Dim wb As Workbook =  New Workbook()
    
                'Remove default worksheets
                wb.Worksheets.Clear()
    
                'Add a worksheet and name it "Employee"
                Dim sheet As Worksheet =  wb.Worksheets.Add("Employee")
    
                'Merge the cells between A1 and G1
                sheet.Range("A1:G1").Merge()
    
                'Write data to A1 and apply formatting to it
                sheet.Range("A1").Value = "Basic Information of Employees of Huanyu Automobile Company"
                sheet.Range("A1").HorizontalAlignment = HorizontalAlignType.Center
                sheet.Range("A1").VerticalAlignment = VerticalAlignType.Center
                sheet.Range("A1").Style.Font.IsBold = True
                sheet.Range("A1").Style.Font.Size = 13F
    
                'Set row height of the first row
                sheet.Rows(0).RowHeight = 30F
    
                'Create a DataTable
                Dim dt As DataTable =  New DataTable()
                dt.Columns.Add("Name")
                dt.Columns.Add("Gender")
                dt.Columns.Add("Birth Date")
                dt.Columns.Add("Educational Background")
                dt.Columns.Add("Contact Number")
                dt.Columns.Add("Position")
                dt.Columns.Add("ID")
                dt.Rows.Add("Allen", "Male", "1990-02-10", "Bachelor", "24756854", "Mechanic", "0021")
                dt.Rows.Add("Patrick", "Male", "1985-06-08", "Master", "59863247", "Mechanic", "0022")
                dt.Rows.Add("Jenna", "Female", "1989-11-25", "Bachelor", "79540352", "Sales", "0023")
                dt.Rows.Add("Tommy", "Male", "1988-04-16", "Master", "52014060", "Mechanic", "0024")
                dt.Rows.Add("Christina", "Female", "1998-01-21", "Bachelor", "35401489", "HR", "0025")
    
                'Import data from DataTable to worksheet
                sheet.InsertDataTable(dt, True, 2, 1, True)
    
                'Set row height of a range
                sheet.Range("A2:G7").RowHeight = 15F
    
                'Set column width
                sheet.Range("A2:G7").Columns(2).ColumnWidth = 15F
                sheet.Range("A2:G7").Columns(3).ColumnWidth = 21F
                sheet.Range("A2:G7").Columns(4).ColumnWidth = 15F
    
                'Set border style of a range
                sheet.Range("A2:G7").BorderAround(LineStyleType.Medium)
                sheet.Range("A2:G7").BorderInside(LineStyleType.Thin)
                sheet.Range("A2:G2").BorderAround(LineStyleType.Medium)
                sheet.Range("A2:G7").Borders.KnownColor = ExcelColors.Black
    
                'Save to a .xlsx file
                wb.SaveToFile("NewSpreadsheet.xlsx", FileFormat.Version2016)
            End Sub
        End Class
    End Namespace

using Spire.Xls;
    
    namespace ReadExcelData
    {
        class Program
        {
            static void Main(string[] args)
            {
                //Create a Workbook object
                Workbook wb = new Workbook();
    
                //Load an existing Excel file
                wb.LoadFromFile(@"C:\Users\Administrator\Desktop\NewSpreadsheet.xlsx");
    
                //Get the first worksheet
                Worksheet sheet = wb.Worksheets[0];
    
                //Get the cell range containing data
                CellRange locatedRange = sheet.AllocatedRange;
    
                //Iterate through the rows
                for (int i = 0;i < locatedRange.Rows.Length;i++)
                {
                    //Iterate through the columns
                    for (int j = 0; j < locatedRange.Rows[i].ColumnCount; j++)
                    {
                        //Get data of a specific cell
                        Console.Write(locatedRange[i + 1, j + 1].Value + "  ");
    
                    }
                    Console.WriteLine();
                }
            }
        }
    }

Imports Spire.Xls
    
    Namespace ReadExcelData
        Class Program
            Shared  Sub Main(ByVal args() As String)
                'Create a Workbook object
                Dim wb As Workbook =  New Workbook()
    
                'Load an existing Excel file
                wb.LoadFromFile("C:\Users\Administrator\Desktop\NewSpreadsheet.xlsx")
    
                'Get the first worksheet
                Dim sheet As Worksheet =  wb.Worksheets(0)
    
                'Get the cell range containing data
                Dim locatedRange As CellRange =  sheet.AllocatedRange
    
                'Iterate through the rows
                Dim i As Integer
                For  i = 0 To  locatedRange.Rows.Length- 1  Step i + 1
                    'Iterate through the columns
                    Dim j As Integer
                    For  j = 0 To  locatedRange.Rows(i).ColumnCount- 1  Step  j + 1
                        'Get data of a specific cell
                        Console.Write(locatedRange(i + 1, j + 1).Value + "  ")
    
                    Next
                    Console.WriteLine()
                Next
            End Sub
        End Class
    End Namespace

using Spire.Xls;
    
    namespace UpdateCellValue
    {
        class Program
        {
            static void Main(string[] args)
            {
                //Create a Workbook object
                Workbook wb = new Workbook();
    
                //Load an existing Excel file
                wb.LoadFromFile(@"C:\Users\Administrator\Desktop\NewSpreadsheet.xlsx");
    
                //Get the first worksheet
                Worksheet sheet = wb.Worksheets[0];
    
                //Change the value of a specific cell
                sheet.Range["A1"].Value = "Updated Value";
    
                //Save to file
                wb.SaveToFile("Updated.xlsx", ExcelVersion.Version2016);
            }
        }
    }

Imports Spire.Xls
    
    Namespace UpdateCellValue
        Class Program
            Shared  Sub Main(ByVal args() As String)
                'Create a Workbook object
                Dim wb As Workbook =  New Workbook()
    
                'Load an existing Excel file
                wb.LoadFromFile("C:\Users\Administrator\Desktop\NewSpreadsheet.xlsx")
    
                'Get the first worksheet
                Dim sheet As Worksheet =  wb.Worksheets(0)
    
                'Change the value of a specific cell
                sheet.Range("A1").Value = "Updated Value"
    
                'Save to file
                wb.SaveToFile("Updated.xlsx", ExcelVersion.Version2016)
            End Sub
        End Class
    End Namespace