如何在 vb.net 中保存 excel 文件答案

【问题标题】：How to Save excel file in vb.net如何在 vb.net 中保存 excel 文件
【发布时间】：2013-05-08 07:58:25
【问题描述】：

以前，我试图将 gridview 值导出到 excel 中。但使用下面给出的代码，我可以将数据导出到 excel 中。但仍然无法自动保存该 excel 文件到 固定文件夹（假设位于 C:/drive 中）。下面给出了我编写的导出到 excel 的代码。

Private Sub ButtonExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)   Handles ButtonExport.Click
Dim rowsTotal, colsTotal As Short
Dim I, j, iC As Short
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
Dim xlApp As New Excel.Application
Try
    Dim excelBook As Excel.Workbook = xlApp.Workbooks.Add
    Dim excelWorksheet As Excel.Worksheet = CType(excelBook.Worksheets(1), Excel.Worksheet)
    xlApp.Visible = True
    rowsTotal = DataGridView1.RowCount - 1
    colsTotal = DataGridView1.Columns.Count - 1
    With excelWorksheet
        .Cells.Select()
        .Cells.Delete()
        For iC = 0 To colsTotal
            .Cells(1, iC + 1).Value = DataGridView1.Columns(iC).HeaderText
        Next
        For I = 0 To rowsTotal - 1
            For j = 0 To colsTotal
                .Cells(I + 2, j + 1).value = DataGrid1.Rows(I).Cells(j).Value
            Next j
        Next I
        .Rows("1:1").Font.FontStyle = "Bold"
        .Rows("1:1").Font.Size = 10
        .Cells.Columns.AutoFit()
        .Cells.Select()
        .Cells.EntireColumn.AutoFit()
        .Cells(1, 1).Select()
    End With
Catch ex As Exception
    MsgBox("Export Excel Error " & ex.Message)
Finally
    'RELEASE ALLOACTED RESOURCES
    System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
    xlApp = Nothing
End Try
End Sub

谁能帮我解决这个问题，如何在VB.NET中自动保存那个excel文件？？

【问题讨论】：

你有没有尝试保存它？检查here
是的，我可以通过另存为 excel 选项将其保存在外部。但我想在完成导出后自动保存。
是的，请查看我第一条评论中的链接。
我没有收到该代码。在哪里写？ Me.FileFormat、Me.SaveAs 和 Me.Path 显示错误

标签： vb.net excel gridview directory

【解决方案1】：

SaveAs 方法是为Excel.Workbook 定义的

在Try 的末尾，就在Catch 之前，写：

excelBook.SaveAs(<some path here>, etc...)

更多信息请参考here。

若要正确退出 Excel，请在开头的 Finally 块中写入：

xlApp.Workbooks.Close()
xlApp.Quit()

【讨论】：

"导出 excel 错误文件无法访问。尝试以下方法之一：
完成后导出为excel文件。我在try block中写了下面的代码。请检查it.excelBook.SaveAs("c:/excelfile.xlsx", Excel.XlFileFormat.xlXMLSpreadsheet, AccessMode:=Excel.XlSaveAsAccessMode.xlNoChange)
试试"c:\excelfile.xlsx"。如果您想要 xlsx，请将您的 Excel.XlFileFormat.xlXMLSpreadsheet 更改为 Excel.XlFileFormat.xlExcel12
现在它正在保存文件，但我没有打开文件。显示错误“excel无法打开文件”name.xlsx“因为文件格式或文件扩展名无效。验证文件没有损坏并且文件扩展名与文件格式匹配”
也许试试excelBook.SaveAs("C:\excelfile.xlsx")

【解决方案2】：

我刚用过：

    Dim oexcel As Object
    Dim obook As Object
    Dim owrite As New Microsoft.Office.Interop.Excel.Worksheet

    < your code > 

   owrite.SaveAs("c:\" & foldername)

【讨论】：

【解决方案3】：

这是一个较老的问题，但也许这仍然可以帮助某人。我最近需要读取、解析和写入 xlsx 文件。为此，我将 OpenXML SDK 与 C# 一起使用。 MSDN 提供了一些很好的教程来说明如何做到这一点。如果有人有问题，我可以提供我的代码。最后一点……当我“发布”应用程序时，似乎需要在客户端计算机上安装 SDK。

【讨论】：