在没有安装Office的情况下，在.NET中创建Excel文件

Question

我需要在一个没有安装Microsoft Office的生产服务器（Windows Server 2008）上使用.NET创建多个工作表的Excel文件。是否可以通过VS2010和Windows Server 2008来实现这一目标，或者是否可以通过使用Office Web Apps来实现。

- Pravin

---

可能是与https://dev59.com/rXVC5IYBdhLWcg3w51hv重复的问题。 - Brian Clapper

为什么要点踩？新用户... - jgauffin

https://dev59.com/rXVC5IYBdhLWcg3w51hv 的答案提到了许多可以实现你所需功能的库。你的问题实际上是一个选择问题。 - Codo

Answer 1

我使用旨在此目的的OpenXML SDK。它不允许您在服务器环境中实际计算和运行函数，但非常适合创建和操作工作簿。

下载：

http://www.microsoft.com/downloads/en/details.aspx?FamilyId=C6E744E5-36E9-45F5-8D8C-331DF206E0D0&displaylang=en

文档：

http://msdn.microsoft.com/en-us/library/bb448854.aspx

- Gardner

---

请在引用产品、库或任何内容时，附上链接。 - Samuel Neff

你不觉得OpenXML非常难用吗？仅仅像添加超链接这样简单的操作就需要大量的代码。 - David

Answer 2

你可以使用这个库：http://epplus.codeplex.com/releases/view/42439 它跳过了使用Excel二进制文件的步骤，而是采用Excel XML格式编写纯文本，因此Excel可以正确地理解和呈现。

- Ioannis Karadimas

Answer 3

如果目标是Office 2007或2010，您可以尝试使用这个免费库http://epplus.codeplex.com/

如果目标是<=2003，您可以尝试使用GemBox.Spreadsheet

免费版本的限制为： 每个工作表的最大行数为150。 每个工作簿的最大工作表数为5。

- SeeSoft

---

我尝试了EPPlus。但当它尝试读取我正在处理的Excel文件时，在库中出现了NullReferenceException。 - Samuel Neff

Answer 4

使用官方的Microsoft OpenXML SDK。

- fejesjoco

Answer 5

试试这个：

Sub exportExcel(ByVal grdView As DataGridView, ByVal fileName As String, _
                    ByVal fileExtension As String, ByVal filePath As String)

        ' Choose the path, name, and extension for the Excel file
        Dim myFile As String = filePath & "\" & fileName & fileExtension
        ' Open the file and write the headers
        Dim fs As New IO.StreamWriter(myFile, False)

        Try

            fs.WriteLine("<?xml version=""1.0""?>")
            fs.WriteLine("<?mso-application progid=""Excel.Sheet""?>")
            fs.WriteLine("<ss:Workbook xmlns:ss=""urn:schemas-microsoft-com:office:spreadsheet"">")

            ' Create the styles for the worksheet
            fs.WriteLine("  <ss:Styles>")
            ' Style for the column headers
            fs.WriteLine("    <ss:Style ss:ID=""1"">")
            fs.WriteLine("      <ss:Font ss:Bold=""1""/>")
            fs.WriteLine("      <ss:Alignment ss:Horizontal=""Center"" ss:Vertical=""Center"" " & _
                "ss:WrapText=""1""/>")
            fs.WriteLine("      <ss:Interior ss:Color=""#C0C0C0"" ss:Pattern=""Solid""/>")
            fs.WriteLine("    </ss:Style>")
            ' Styles for the column information
            fs.WriteLine("    <ss:Style ss:ID=""2"">")
            fs.WriteLine("      <ss:Alignment ss:Vertical=""Center"" ss:WrapText=""1""/>")
            fs.WriteLine("    </ss:Style>")
            fs.WriteLine("  </ss:Styles>")

            ' Write the worksheet contents

            fs.WriteLine("<ss:Worksheet ss:Name=""EasyWorks"">")
            fs.WriteLine("  <ss:Table>")

            For i As Integer = 0 To grdView.Columns.Count - 1
                fs.WriteLine(String.Format("    <ss:Column ss:Width=""{0}""/>", _
                grdView.Columns.Item(i).Width))
            Next

            fs.WriteLine("    <ss:Row>")
            For i As Integer = 0 To grdView.Columns.Count - 1
                If grdView.Columns(i).Visible Then
                    fs.WriteLine(String.Format("      <ss:Cell ss:StyleID=""1"">" & _
                        "<ss:Data ss:Type=""String"">{0}</ss:Data></ss:Cell>", _
                        grdView.Columns.Item(i).HeaderText))
                End If
            Next
            fs.WriteLine("    </ss:Row>")

            ' Check for an empty row at the end due to Adding allowed on the DataGridView
            Dim subtractBy As Integer, cellText As String
            If grdView.AllowUserToAddRows = True Then subtractBy = 2 Else subtractBy = 1
            ' Write contents for each cell
            For i As Integer = 0 To grdView.RowCount - subtractBy
                If grdView.Rows(i).Visible Then
                    fs.WriteLine(String.Format("    <ss:Row ss:Height=""{0}"">", _
                        grdView.Rows(i).Height))
                    For intCol As Integer = 0 To grdView.Columns.Count - 1
                        If grdView.Columns(intCol).Visible Then
                            cellText = grdView.Item(intCol, i).Value.ToString
                            ' Check for null cell and change it to empty to avoid error
                            If cellText = vbNullString Then cellText = ""
                            fs.WriteLine(String.Format("      <ss:Cell ss:StyleID=""2"">" & _
                                "<ss:Data ss:Type=""String"">{0}</ss:Data></ss:Cell>", _
                                cellText.ToString))
                        End If
                    Next
                    fs.WriteLine("    </ss:Row>")
                End If
            Next

            ' Close up the document
            fs.WriteLine("  </ss:Table>")
            fs.WriteLine("</ss:Worksheet>")
            fs.WriteLine("</ss:Workbook>")
            fs.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "ERROR: ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Err.Clear()
        Finally
            myFile = Nothing
            fs = Nothing
        End Try

    End Sub

- Ricardo Rodrigues