Vb.net 无法通过vb2010保存excel工作表

我无法通过我在vb 2010中开发的应用程序保存excel工作表。它可以创建文件并输入分配的所有数据，但在点击save命令时会出现COM异常，未经处理：-

xl工作簿。SaveAs（“C:\ABC”，“xlsx”）

我在visual studio 2010中添加了对excel的引用

下面是我正在使用的代码：-

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

    Dim xlApp As New Excel.Application
    Dim xlWorkBook As Excel.Workbook
    Dim xlWorkSheet As Excel.Worksheet

    'Add a New Workbook
    xlWorkBook = xlApp.Workbooks.Add

    'Display Excel
    xlApp.Visible = False

    'Set the relebant sheet that we want to work with
    xlWorkSheet = xlWorkBook.Sheets("Sheet1")

    With xlWorkSheet
        'Directly type the values that we want
        .Range("A1").Value = "Company Name"
        .Range("A2").Value = "Product Name"
        .Range("A3").Value = "Budget"
        .Range("A4").Value = "Expected Delivery"

        .Range("B1").Value = "hi"
        .Range("B2").Value = "hh"
        .Range("B3").Value = "qw"
        .Range("B4").Value = "qw"
    End With

    'Save the file
    xlWorkBook.SaveAs("C:\ABC", "xlsx")

    'Close the file
    'xlWorkBook.Close()

End Sub

使用：

使用：

将您的代码更改为：

''Add a New Workbook

    Dim AppExcel As New Excel.Application
    Dim Classeur As Excel.Workbook = AppExcel.Workbooks.Add()
    Dim xlWorkSheet As Excel.Worksheet = Classeur.ActiveSheet
    'Display Excel
    AppExcel.Visible = False

    'Set the relebant sheet that we want to work with

    With xlWorkSheet
        'Directly type the values that we want
        .Range("A1").Value = "Company Name"
        .Range("A2").Value = "Product Name"
        .Range("A3").Value = "Budget"
        .Range("A4").Value = "Expected Delivery"

        .Range("B1").Value = "hi"
        .Range("B2").Value = "hh"
        .Range("B3").Value = "qw"
        .Range("B4").Value = "qw"
    End With

    'Save the file

    xlWorkSheet.SaveAs("C:\ABC3.xlsx"

将您的代码更改为：

''Add a New Workbook

    Dim AppExcel As New Excel.Application
    Dim Classeur As Excel.Workbook = AppExcel.Workbooks.Add()
    Dim xlWorkSheet As Excel.Worksheet = Classeur.ActiveSheet
    'Display Excel
    AppExcel.Visible = False

    'Set the relebant sheet that we want to work with

    With xlWorkSheet
        'Directly type the values that we want
        .Range("A1").Value = "Company Name"
        .Range("A2").Value = "Product Name"
        .Range("A3").Value = "Budget"
        .Range("A4").Value = "Expected Delivery"

        .Range("B1").Value = "hi"
        .Range("B2").Value = "hh"
        .Range("B3").Value = "qw"
        .Range("B4").Value = "qw"
    End With

    'Save the file

    xlWorkSheet.SaveAs("C:\ABC3.xlsx"

---

上述两个答案似乎都是正确的，但缺乏解释

expression.SaveAs（文件名、文件格式、密码、WriteResPassword、， ReadOnlyRecommended、CreateBackup、AccessMode、冲突解决、， AddToMru、TextCodepage、TextVisualLayout、本地）

以上是excel

SaveAs

方法，所有参数都是可选的

Filename
Optional
Variant

一个字符串，指示要保存的文件的名称。你可以 包括完整路径；如果没有，Microsoft Excel会将文件保存在 当前文件夹

上面重要的部分是名字，你们错过了

FileFormat
Optional
Variant

保存文件时要使用的文件格式。有关有效的 选择，请参见XlFileFormat枚举。对于现有文件 默认格式是最后指定的文件格式；对于新文件 默认值是正在使用的Excel版本的格式

由于指定的路径没有文件名，因此出现错误。 换这条线

xlWorkBook.SaveAs("C:\ABC", "xlsx")

到 xlWorkBook.SaveAs（“C:\ABC.xlsx”） 解决了一个问题

---

上述两个答案似乎都是正确的，但缺乏解释

expression.SaveAs（文件名、文件格式、密码、WriteResPassword、， ReadOnlyRecommended、CreateBackup、AccessMode、冲突解决、， AddToMru、TextCodepage、TextVisualLayout、本地）

以上是excel

SaveAs

方法，所有参数都是可选的

Filename
Optional
Variant

一个字符串，指示要保存的文件的名称。你可以 包括完整路径；如果没有，Microsoft Excel会将文件保存在 当前文件夹

上面重要的部分是名字，你们错过了

FileFormat
Optional
Variant

保存文件时要使用的文件格式。有关有效的 选择，请参见XlFileFormat枚举。对于现有文件 默认格式是最后指定的文件格式；对于新文件 默认值是正在使用的Excel版本的格式

由于指定的路径没有文件名，因此出现错误。 换这条线

xlWorkBook.SaveAs("C:\ABC", "xlsx")

到 xlWorkBook.SaveAs（“C:\ABC.xlsx”） 解决了一个问题

---

.

您是否以“管理员”的身份运行应用程序？您是否以“管理员”的身份运行应用程序？您是否对该程序感到满意，然后与他人分享？您是否对该程序感到满意，然后与他人分享