ASP.NET新手求助：VB.NET实现多工作表Excel导入及OpenFileDialog报错

错误原因 #

你用的OpenFileDialog是Windows桌面应用（WinForms/WPF）专属控件，ASP.NET Web应用运行在服务器端，无法直接调用客户端的文件选择对话框，而且该控件在Web环境下不实现IDisposable接口，这就是报错的根源——你用错了组件。

正确实现步骤（VB版） #

Web应用中文件上传必须用Web专用的文件上传控件，搭配Excel读取库（比如EPPlus）来处理多工作表：

1. 前端页面（.aspx）添加文件上传控件

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="ExcelImport.aspx.vb" Inherits="ExcelImport" %>

<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title>Excel导入</title>
</head>
<body>
    <form id="form1" runat="server">
        <div>
            <asp:FileUpload ID="fuExcel" runat="server" Accept=".xlsx,.xls" />
            <asp:Button ID="btnImport" runat="server" Text="导入Excel" OnClick="btnImport_Click" />
            <asp:Label ID="lblResult" runat="server" ForeColor="Red"></asp:Label>
        </div>
    </form>
</body>
</html>

2. 后端VB代码（.aspx.vb）

先通过NuGet安装EPPlus库（支持读取多工作表，无需依赖Office组件），再编写处理逻辑：

Imports OfficeOpenXml
Imports System.IO

Partial Class ExcelImport
    Inherits System.Web.UI.Page

    Protected Sub btnImport_Click(sender As Object, e As EventArgs) Handles btnImport.Click
        If Not fuExcel.HasFile Then
            lblResult.Text = "请选择要导入的Excel文件"
            Return
        End If

        ' 验证文件格式
        Dim fileExt As String = Path.GetExtension(fuExcel.FileName).ToLower()
        If fileExt <> ".xlsx" AndAlso fileExt <> ".xls" Then
            lblResult.Text = "仅支持.xlsx或.xls格式的Excel文件"
            Return
        End If

        ' 读取Excel文件
        Try
            Using package As New ExcelPackage(fuExcel.PostedFile.InputStream)
                ' 遍历所有工作表
                For Each worksheet As ExcelWorksheet In package.Workbook.Worksheets
                    lblResult.Text &= $"正在处理工作表：{worksheet.Name}<br/>"
                    
                    ' 获取工作表的有效行数和列数
                    Dim rowCount As Integer = worksheet.Dimension.Rows
                    Dim colCount As Integer = worksheet.Dimension.Columns

                    ' 遍历行（从第2行开始，假设第1行是表头）
                    For row As Integer = 2 To rowCount
                        ' 读取单元格内容示例
                        Dim cellValue As String = worksheet.Cells(row, 1).Text
                        lblResult.Text &= $"第{row}行第1列内容：{cellValue}<br/>"
                    Next
                Next
                lblResult.Text &= "导入完成！"
            End Using
        Catch ex As Exception
            lblResult.Text = $"导入失败：{ex.Message}"
        End Try
    End Sub
End Class

3. 注意事项

• EPPlus 5.x及以上版本需要在web.config中添加许可证配置（非商用免费）：

  <appSettings>
    <add key="EPPlus:ExcelPackage.LicenseContext" value="NonCommercial" />
  </appSettings>
  

• 确保服务器有足够权限读取上传的临时文件，且上传文件大小在ASP.NET允许范围内（可通过web.config的maxRequestLength调整）。

内容的提问来源于stack exchange，提问作者aarjaang