VB.NET HTML 转 Excel 实战指南

在数据处理和报表生成场景中，将HTML内容转换为Excel文件是一项实用技能。VB.NET提供了丰富的库和方法来实现这一功能。本文将详细介绍如何使用VB.NET将HTML表格数据成功导入Excel，并提供完整的代码示例。

一、使用 HtmlAgilityPack 解析 HTML

HtmlAgilityPack 是一个强大的 HTML 解析库，可以帮助我们轻松地从 HTML 中提取数据。首先，我们需要安装 HtmlAgilityPack 库，可以通过 NuGet 包管理器进行安装：

Install-Package HtmlAgilityPack

然后，使用 HtmlAgilityPack 加载 HTML 文件并解析表格数据：

Imports HtmlAgilityPack

Module Module1
    Sub Main()
        ' 加载 HTML 文件
        Dim htmlDoc As New HtmlDocument()
        htmlDoc.Load("input.html")

        ' 获取表格元素
        Dim tableNode As HtmlNode = htmlDoc.DocumentNode.SelectSingleNode("//table")

        ' 解析表格数据
        Dim rows As HtmlNodeCollection = tableNode.SelectNodes(".//tr")
        For Each row As HtmlNode In rows
            Dim cells As HtmlNodeCollection = row.SelectNodes(".//td")
            For Each cell As HtmlNode In cells
                Console.Write(cell.InnerText & vbTab)
            Next
            Console.WriteLine()
        Next
    End Sub
End Module

二、使用 EPPlus 创建 Excel 文件

EPPlus 是一个用于处理 Excel 文件的优秀库，支持 .xlsx 格式。安装 EPPlus：

Install-Package EPPlus

然后，使用 EPPlus 创建 Excel 文件并写入数据：

Imports System.IO
Imports OfficeOpenXml
Imports OfficeOpenXml.Style

Module Module1
    Sub Main()
        ' 创建 Excel 包
        Using package As New ExcelPackage(New FileInfo("output.xlsx"))
            ' 添加工作表
            Dim worksheet As ExcelWorksheet = package.Workbook.Worksheets.Add("Sheet1")

            ' 写入表头
            worksheet.Cells(1, 1).Value = "Header1"
            worksheet.Cells(1, 2).Value = "Header2"

            ' 写入数据
            Dim data As Integer(,) = {{1, 2}, {3, 4}}
            For i As Integer = 0 To data.GetLength(0) - 1
                For j As Integer = 0 To data.GetLength(1) - 1
                    worksheet.Cells(i + 2, j + 1).Value = data(i, j)
                Next
            Next

            ' 自动调整列宽
            For Each col As ExcelColumn In worksheet.Columns
                col.AutoFit()
            Next

            ' 保存 Excel 文件
            package.Save()
        End Using
    End Sub
End Module

三、完整示例：将 HTML 表格转换为 Excel

Imports HtmlAgilityPack
Imports System.IO
Imports OfficeOpenXml
Imports OfficeOpenXml.Style

Module Module1
    Sub Main()
        ' 加载 HTML 文件
        Dim htmlDoc As New HtmlDocument()
        htmlDoc.Load("input.html")

        ' 获取表格元素
        Dim tableNode As HtmlNode = htmlDoc.DocumentNode.SelectSingleNode("//table")

        ' 解析表格数据
        Dim rows As HtmlNodeCollection = tableNode.SelectNodes(".//tr")

        ' 创建 Excel 包
        Using package As New ExcelPackage(New FileInfo("output.xlsx"))
            ' 添加工作表
            Dim worksheet As ExcelWorksheet = package.Workbook.Worksheets.Add("Sheet1")

            ' 写入表头
            Dim headers As HtmlNodeCollection = rows(0).SelectNodes(".//th")
            For i As Integer = 0 To headers.Count - 1
                worksheet.Cells(1, i + 1).Value = headers(i).InnerText
            Next

            ' 写入数据行
            For i As Integer = 1 To rows.Count - 1
                Dim cells As HtmlNodeCollection = rows(i).SelectNodes(".//td")
                For j As Integer = 0 To cells.Count - 1
                    worksheet.Cells(i + 1, j + 1).Value = cells(j).InnerText
                Next
            Next

            ' 自动调整列宽
            For Each col As ExcelColumn In worksheet.Columns
                col.AutoFit()
            Next

            ' 保存 Excel 文件
            package.Save()
        End Using

        Console.WriteLine("HTML 转 Excel 完成！")
    End Sub
End Module

四、总结

通过本文的介绍，我们学习了如何使用 VB.NET 将 HTML 表格数据转换为 Excel 文件。这一过程主要包括使用 HtmlAgilityPack 解析 HTML 和使用 EPPlus 创建 Excel 文件。希望本文的示例代码能够帮助你快速上手并应用这一技术。

最后，如果你对python语言还有任何疑问或者需要进一步的帮助，请访问https://www.xin3721.com 本站原创，转载请注明出处：https://www.xin3721.com