Lee..... 2022-03-06 21:00 采纳率: 71.4%
浏览 147
已结题

VB.NET 操作excel后进程结束不掉,怎么处理。

VB.NET 操作excel后,进程还是在的,这是什么原因?网上找了很多方法都不行,求解。
Dim xlApp As Microsoft.Office.Interop.Excel.Application
Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet

    xlApp = New Microsoft.Office.Interop.Excel.Application
    xlBook = xlApp.Workbooks.Open("C:\Users\LI\Desktop\学生成绩.xlsx")
    xlSheet = xlBook.Sheets("Sheet1")

    Dim S1 As String
    xlSheet.Range("A2").Value = "大家好!"
    S1 = xlSheet.Range("A2").Value '为了验证,读取并显示它
    MsgBox(S1)

    xlApp.ActiveWorkbook.Close(SaveChanges:=True)
    xlApp.Quit() 
    xlApp = Nothing 
  • 写回答

1条回答 默认 最新

  • 丨Haruna 2022-03-07 13:38
    关注
    xlApp.Saved = True
    xlApp.Quit()
    

    注意:这不会保存工作簿;xlApp.Saved = True只是让它看起来像是被保存了。

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

问题事件

  • 系统已结题 4月6日
  • 已采纳回答 3月29日
  • 创建了问题 3月6日

悬赏问题

  • ¥15 metadata提取的PDF元数据,如何转换为一个Excel
  • ¥15 关于arduino编程toCharArray()函数的使用
  • ¥100 vc++混合CEF采用CLR方式编译报错
  • ¥15 coze 的插件输入飞书多维表格 app_token 后一直显示错误,如何解决?
  • ¥15 vite+vue3+plyr播放本地public文件夹下视频无法加载
  • ¥15 c#逐行读取txt文本,但是每一行里面数据之间空格数量不同
  • ¥50 如何openEuler 22.03上安装配置drbd
  • ¥20 ING91680C BLE5.3 芯片怎么实现串口收发数据
  • ¥15 无线连接树莓派,无法执行update,如何解决?(相关搜索:软件下载)
  • ¥15 Windows11, backspace, enter, space键失灵