Comment écrire dans un fichier Excel en VB.NET (La méthode facile)

Comment débuter avec l'automatisation Excel en VB.NET ?

Pour commencer à écrire dans des fichiers Excel depuis votre projet VB.NET, vous devez d'abord ajouter la bibliothèque IronXL. Le processus est simple et peut être réalisé directement dans Visual Studio.

Tout d'abord, assurez-vous que votre environnement de développement est prêt :

• Visual Studio 2022 ou version ultérieure.
• Un projet actif ciblant .NET Framework 4.6.2 ou supérieur , ou .NET Core/.NET 5+ . IronXL est compatible avec toutes les versions modernes de .NET, jusqu'à .NET 9 et 10 inclus.

Ensuite, installez le package NuGet IronXL :

1. Ouvrez le Gestionnaire de packages NuGet dans Visual Studio.
2. Recherchez le package IronXL.Excel .
3. Cliquez sur " Installer ".

Vous pouvez également l'installer via la console du gestionnaire de packages avec la commande suivante :

Install-Package IronXL.Excel

! Accédez au gestionnaire de packages NuGet Accéder au Gestionnaire de packages NuGet dans le menu de Visual Studio pour trouver le package approprié pour l'intégration VB.NET Excel.

Une fois installé, vous êtes prêt à commencer à écrire du code. Il suffit d'ajouter Imports IronXL en haut de votre fichier VB.NET pour rendre les classes de la bibliothèque accessibles.

Recherchez le package IronXL dans l'interface utilisateur du gestionnaire de packages NuGet. Recherche du package IronXL pour installer la bibliothèque nécessaire à l'écriture de données dans un fichier Excel à l'aide de VB.NET.

Comment créer un nouveau fichier Excel et y écrire des données ?

Créer un nouveau fichier Excel à partir de zéro est une tâche fondamentale. Avec IronXL, vous pouvez générer un classeur, ajouter des feuilles de calcul et remplir des cellules avec des données provenant de n'importe quelle source, telle qu'une collection d'objets. C'est idéal pour des tâches comme l'exportation de données d'application ou la génération de rapports quotidiens.

Prenons un exemple concret. Imaginons que nous ayons une liste de données produits que nous souhaitons exporter vers une feuille de calcul Excel.

Imports IronXL
Imports System.Collections.Generic
Imports System.Linq

Public Class Product
    Public Property ID As Integer
    Public Property Name As String
    Public Property Price As Decimal
End Class

Module Program
    Sub Main(args As String())
        ' 1. Prepare a list of data to write to Excel.
        Dim products As New List(Of Product) From {
            New Product With {.ID = 1, .Name = "Laptop", .Price = 1200.50D},
            New Product With {.ID = 2, .Name = "Keyboard", .Price = 75.00D},
            New Product With {.ID = 3, .Name = "Mouse", .Price = 25.99D}
        }

        ' 2. Create a new Excel workbook and select the default worksheet.
        Dim workbook As WorkBook = WorkBook.Create()
        Dim sheet As WorkSheet = workbook.DefaultWorkSheet

        ' 3. Write headers for our data.
        sheet("A1").Value = "Product ID"
        sheet("B1").Value = "Product Name"
        sheet("C1").Value = "Price"

        ' Style the header row.
        Dim headerRange = sheet.GetRange("A1:C1")
        headerRange.Style.Font.Bold = True
        headerRange.Style.SetBackgroundColor("#D3D3D3") ' Light Gray

        ' 4. Iterate through the product list and write data to subsequent rows.
        For i As Integer = 0 To products.Count - 1
            Dim product = products(i)
            Dim row = i + 2 ' Start from the second row
            sheet("A" & row).Value = product.ID
            sheet("B" & row).Value = product.Name
            sheet("C" & row).Value = product.Price
        Next

        ' 5. Apply currency formatting to the price column.
        Dim priceColumn = sheet.GetRange("C2:C" & products.Count + 1)
        priceColumn.Style.Format = "$#,##0.00"

        ' 6. Auto-size columns for better readability.
        sheet.Columns.AutoFit()

        ' 7. Save the newly created and populated workbook to a file.
        workbook.SaveAs("ProductReport.xlsx")

    End Sub
End Module

Imports IronXL
Imports System.Collections.Generic
Imports System.Linq

Public Class Product
    Public Property ID As Integer
    Public Property Name As String
    Public Property Price As Decimal
End Class

Module Program
    Sub Main(args As String())
        ' 1. Prepare a list of data to write to Excel.
        Dim products As New List(Of Product) From {
            New Product With {.ID = 1, .Name = "Laptop", .Price = 1200.50D},
            New Product With {.ID = 2, .Name = "Keyboard", .Price = 75.00D},
            New Product With {.ID = 3, .Name = "Mouse", .Price = 25.99D}
        }

        ' 2. Create a new Excel workbook and select the default worksheet.
        Dim workbook As WorkBook = WorkBook.Create()
        Dim sheet As WorkSheet = workbook.DefaultWorkSheet

        ' 3. Write headers for our data.
        sheet("A1").Value = "Product ID"
        sheet("B1").Value = "Product Name"
        sheet("C1").Value = "Price"

        ' Style the header row.
        Dim headerRange = sheet.GetRange("A1:C1")
        headerRange.Style.Font.Bold = True
        headerRange.Style.SetBackgroundColor("#D3D3D3") ' Light Gray

        ' 4. Iterate through the product list and write data to subsequent rows.
        For i As Integer = 0 To products.Count - 1
            Dim product = products(i)
            Dim row = i + 2 ' Start from the second row
            sheet("A" & row).Value = product.ID
            sheet("B" & row).Value = product.Name
            sheet("C" & row).Value = product.Price
        Next

        ' 5. Apply currency formatting to the price column.
        Dim priceColumn = sheet.GetRange("C2:C" & products.Count + 1)
        priceColumn.Style.Format = "$#,##0.00"

        ' 6. Auto-size columns for better readability.
        sheet.Columns.AutoFit()

        ' 7. Save the newly created and populated workbook to a file.
        workbook.SaveAs("ProductReport.xlsx")

    End Sub
End Module

Comment puis-je écrire des données dans un fichier Excel existant ?

Souvent, il n'est pas nécessaire de créer un nouveau fichier, mais plutôt d'ajouter des données à un fichier existant. Ceci est courant pour la journalisation, l'ajout d'enregistrements à un ensemble de données ou la mise à jour d'un rapport. IronXL rend ce processus aussi simple que la création d'un nouveau fichier.

L'exemple suivant montre comment ouvrir une feuille de calcul existante, trouver la dernière ligne utilisée et ajouter de nouvelles données.

Imports IronXL
Imports System.Collections.Generic
Imports System.Linq

' (Assuming the Product class from the previous example is available)

Module Program
    Sub Main(args As String())
        ' Ensure the file from our previous example exists.
        If Not System.IO.File.Exists("ProductReport.xlsx") Then
            Console.WriteLine("Please run the first example to create ProductReport.xlsx")
            Return
        End If

        ' 1. Load the existing workbook from the file system.
        Dim workbook As WorkBook = WorkBook.Load("ProductReport.xlsx")
        Dim sheet As WorkSheet = workbook.DefaultWorkSheet

        ' 2. Find the first empty row to append new data.
        ' The LastRowUsed property gives us the last row with data.
        Dim lastRow = sheet.Info.LastRowUsed
        Dim newRowIndex = lastRow.RowNumber + 1

        ' 3. Define the new data to be added.
        Dim newProducts As New List(Of Product) From {
            New Product With {.ID = 4, .Name = "Monitor", .Price = 350.00D},
            New Product With {.ID = 5, .Name = "Webcam", .Price = 99.99D}
        }

        ' 4. Loop through the new data and write it to the worksheet.
        For i As Integer = 0 To newProducts.Count - 1
            Dim product = newProducts(i)
            Dim currentRow = newRowIndex + i
            sheet("A" & currentRow).Value = product.ID
            sheet("B" & currentRow).Value = product.Name
            sheet("C" & currentRow).Value = product.Price
        Next

        ' 5. Re-apply formatting and auto-fit columns to include new data.
        Dim priceColumn = sheet.GetRange("C2:C" & sheet.Info.LastRowUsed.RowNumber)
        priceColumn.Style.Format = "$#,##0.00"
        sheet.Columns.AutoFit()

        ' 6. Save the changes back to the original file.
        workbook.Save()

        ' Or save as a new file to preserve the original.
        ' workbook.SaveAs("ProductReport_Updated.xlsx")
    End Sub
End Module

Imports IronXL
Imports System.Collections.Generic
Imports System.Linq

' (Assuming the Product class from the previous example is available)

Module Program
    Sub Main(args As String())
        ' Ensure the file from our previous example exists.
        If Not System.IO.File.Exists("ProductReport.xlsx") Then
            Console.WriteLine("Please run the first example to create ProductReport.xlsx")
            Return
        End If

        ' 1. Load the existing workbook from the file system.
        Dim workbook As WorkBook = WorkBook.Load("ProductReport.xlsx")
        Dim sheet As WorkSheet = workbook.DefaultWorkSheet

        ' 2. Find the first empty row to append new data.
        ' The LastRowUsed property gives us the last row with data.
        Dim lastRow = sheet.Info.LastRowUsed
        Dim newRowIndex = lastRow.RowNumber + 1

        ' 3. Define the new data to be added.
        Dim newProducts As New List(Of Product) From {
            New Product With {.ID = 4, .Name = "Monitor", .Price = 350.00D},
            New Product With {.ID = 5, .Name = "Webcam", .Price = 99.99D}
        }

        ' 4. Loop through the new data and write it to the worksheet.
        For i As Integer = 0 To newProducts.Count - 1
            Dim product = newProducts(i)
            Dim currentRow = newRowIndex + i
            sheet("A" & currentRow).Value = product.ID
            sheet("B" & currentRow).Value = product.Name
            sheet("C" & currentRow).Value = product.Price
        Next

        ' 5. Re-apply formatting and auto-fit columns to include new data.
        Dim priceColumn = sheet.GetRange("C2:C" & sheet.Info.LastRowUsed.RowNumber)
        priceColumn.Style.Format = "$#,##0.00"
        sheet.Columns.AutoFit()

        ' 6. Save the changes back to the original file.
        workbook.Save()

        ' Or save as a new file to preserve the original.
        ' workbook.SaveAs("ProductReport_Updated.xlsx")
    End Sub
End Module

Comment puis-je écrire un DataTable dans une feuille de calcul Excel ?

Pour les développeurs travaillant avec des données provenant de sources telles que SQL Server, une tâche courante consiste à écrire le contenu d'une DataTable directement dans une feuille Excel. IronXL simplifie ce processus grâce à une méthode intégrée, éliminant ainsi la nécessité de parcourir manuellement les lignes et les colonnes.

Cet exemple montre comment remplir un DataTable et l'exporter vers un nouveau fichier Excel en une seule étape.

Imports IronXL
Imports System.Data

Module Program
    Sub Main(args As String())
        ' 1. Create and populate a DataTable. This often comes from a database query.
        Dim dt As New DataTable("EmployeeData")
        dt.Columns.Add("EmployeeID", GetType(Integer))
        dt.Columns.Add("FullName", GetType(String))
        dt.Columns.Add("Department", GetType(String))
        dt.Columns.Add("HireDate", GetType(Date))

        dt.Rows.Add(101, "John Smith", "Sales", New Date(2022, 5, 20))
        dt.Rows.Add(102, "Jane Doe", "Engineering", New Date(2021, 8, 15))
        dt.Rows.Add(103, "Peter Jones", "Marketing", New Date(2023, 1, 10))

        ' 2. Create a new workbook.
        Dim workbook As WorkBook = WorkBook.Create()
        Dim sheet As WorkSheet = workbook.CreateWorkSheet("Employees")

        ' 3. Write the DataTable to the worksheet starting at cell A1.
        ' The second parameter (True) indicates that column headers should be included.
        sheet.Write(dt, "A1", True)

        ' 4. Apply some styling for a more polished look.
        sheet.Columns.AutoFit()
        Dim headerRange = sheet.GetRange("A1:D1")
        headerRange.Style.Font.Bold = True
        headerRange.Style.SetBackgroundColor("#C5D9F1") ' Light Blue

        Dim dateColumn = sheet.GetRange("D2:D" & dt.Rows.Count + 1)
        dateColumn.Style.Format = "yyyy-mm-dd"

        ' 5. Save the workbook.
        workbook.SaveAs("EmployeeDatabaseExport.xlsx")
    End Sub
End Module

Imports IronXL
Imports System.Data

Module Program
    Sub Main(args As String())
        ' 1. Create and populate a DataTable. This often comes from a database query.
        Dim dt As New DataTable("EmployeeData")
        dt.Columns.Add("EmployeeID", GetType(Integer))
        dt.Columns.Add("FullName", GetType(String))
        dt.Columns.Add("Department", GetType(String))
        dt.Columns.Add("HireDate", GetType(Date))

        dt.Rows.Add(101, "John Smith", "Sales", New Date(2022, 5, 20))
        dt.Rows.Add(102, "Jane Doe", "Engineering", New Date(2021, 8, 15))
        dt.Rows.Add(103, "Peter Jones", "Marketing", New Date(2023, 1, 10))

        ' 2. Create a new workbook.
        Dim workbook As WorkBook = WorkBook.Create()
        Dim sheet As WorkSheet = workbook.CreateWorkSheet("Employees")

        ' 3. Write the DataTable to the worksheet starting at cell A1.
        ' The second parameter (True) indicates that column headers should be included.
        sheet.Write(dt, "A1", True)

        ' 4. Apply some styling for a more polished look.
        sheet.Columns.AutoFit()
        Dim headerRange = sheet.GetRange("A1:D1")
        headerRange.Style.Font.Bold = True
        headerRange.Style.SetBackgroundColor("#C5D9F1") ' Light Blue

        Dim dateColumn = sheet.GetRange("D2:D" & dt.Rows.Count + 1)
        dateColumn.Style.Format = "yyyy-mm-dd"

        ' 5. Save the workbook.
        workbook.SaveAs("EmployeeDatabaseExport.xlsx")
    End Sub
End Module

La méthode sheet.Write() est incroyablement efficace à cet effet. Il mappe intelligemment la structure DataTable à la feuille de calcul, y compris les en-têtes de colonnes si spécifiés. Il s'agit d'une fonctionnalité puissante pour toute application basée sur les données et d'un gain de temps considérable par rapport à l'itération manuelle. Pour plus de détails sur l'importation et l'exportation de données, consultez notre tutoriel sur la conversion entre différents formats de feuilles de calcul .

Que puis-je faire d'autre lors de l'écriture de fichiers Excel ?

L'écriture des données n'est que le début. Une bibliothèque Excel VB.NET robuste doit offrir une suite complète de fonctionnalités pour automatiser toute tâche liée aux feuilles de calcul. IronXL offre des fonctionnalités étendues, notamment :

• Formules : Définir et calculer des formules par programmation. Vous pouvez attribuer une formule à Value d'une cellule (par exemple, sheet("C1").Value = "=SUM(A1:B1)" ) et IronXL calculera le résultat.
• Graphiques : Créez différents types de graphiques à partir des données de la feuille de calcul pour visualiser les informations.
• Validation des données : Appliquer des règles aux cellules, par exemple en n'autorisant que les nombres compris dans une plage spécifique ou les valeurs d'une liste déroulante.
• Mise en forme conditionnelle : Appliquez un style aux cellules en fonction de leurs valeurs, ce qui permet de mettre en évidence les points de données importants.
• Sécurité et protection : Protégez les feuilles de calcul ou les classeurs entiers par des mots de passe afin de contrôler l'accès et d'empêcher toute modification.

Ces fonctionnalités permettent l'automatisation complète des flux de travail complexes de génération de rapports et d'analyse de données directement au sein de vos applications .NET.

Commencez dès aujourd'hui à écrire dans des fichiers Excel en VB.NET

Comme démontré, l'écriture de données dans des fichiers Excel en VB.NET est considérablement simplifiée par l'utilisation d'une bibliothèque moderne comme IronXL. En évitant les complexités et les dépendances d'Office Interop, vous pouvez créer des applications plus fiables, performantes et faciles à déployer. Que vous ayez besoin de créer des fichiers Excel à partir de zéro, d'ajouter des données à des rapports existants ou d'exporter un DataTable , IronXL fournit une API intuitive et puissante pour réaliser le travail efficacement.

Commencez à utiliser IronXL dans votre projet aujourd'hui avec un essai gratuit.

Première étape :

Commencer gratuitement

Vous pouvez télécharger IronXL et l'essayer avec une licence d'essai gratuite pour voir à quel point il s'intègre facilement à vos projets.

Pour ceux qui ont des besoins plus larges, n'oubliez pas qu'IronXL fait également partie de la suite Iron pour .NET . Avec une seule licence, vous accédez à un ensemble complet de bibliothèques pour la gestion des PDF, des codes-barres, de la reconnaissance optique de caractères (OCR) et bien plus encore, offrant une valeur exceptionnelle à tout développeur .NET.