使用 VB2010 创建 Excel 文件答案

【问题标题】：Creating Excel Files using VB2010使用 VB2010 创建 Excel 文件
【发布时间】：2014-12-10 16:46:41
【问题描述】：

我有一个带有 1 个按钮的表单，可以在我的桌面上创建一个 Excel 文件。

我收到错误消息：

NullReferenceException 未处理
对象引用未设置为对象的实例

它突出显示了代码：

WB = excelapp.workbooks.add

我确实添加了参考“Microsoft excel 14.0”，我的完整代码如下：

imports excel = microsoft.office.interop.excel

dim excelapp as excel.application
dim WB as excel.workbook

sub button1()

WB = excelapp.workbooks.add
excelapp.visible=true

end sub

【问题讨论】：

你还没有初始化你的excelApp变量。

标签： vb.net visual-studio visual-studio-2010

【解决方案1】：

在您的 Excel 实例上缺少新的初学者：

Dim xlApp As New Excel.Application
Dim xlWorkbook As Excel.Workbook = xlApp.Workbooks.Add()
Dim xlWorksheet As Excel.Worksheet = CType(xlWorkbook.Sheets("sheet1"), Excel.Worksheet)

xlWorksheet.Cells(1, 1) = "data in first cell"
xlWorksheet.SaveAs(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\" & "Test.xlsx")

xlWorkbook.Close()
xlApp.Quit()

xlApp = Nothing
xlWorkBook = Nothing
xlWorkSheet = Nothing

您可能应该将它放在 Try/Catch/Finally 块中以在遇到问题时捕获错误，但主要是因为如果程序无法继续正确完成该代码块，EXCEL.EXE 将在您的当您尝试访问/修改/删除它时，任务管理器以及它正在访问的任何 Excel 文件都将“被另一个程序使用”。

【讨论】：

【解决方案2】：

只要加一行就行了

imports excel = microsoft.office.interop.excel

dim excelapp as excel.application
dim WB as excel.workbook

sub button1()

    excelapp = new excel.application

    WB = excelapp.workbooks.add
    excelapp.visible=true    
end sub

【讨论】：