VB.net出现这样的错误提示，请各位老师帮忙看一下，这个该怎么解决？

飞雪落叶

在VSTO中用VB.net，开发软件过程中提示如下语句出现错误：

xlsbook = xlsApp.Workbooks.Open("C:\Program Files (x86) \sldata.xlsx")

在这一句报警，
立即窗口出现提示：“在 System.Runtime.InteropServices.COMException 中第一次偶然出现的“测试.exe”类型的异常”
网上搜了很多资料都没有解决问题，请论坛里的老师给帮忙看看，指点一下，谢谢！

1.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
2. 
   
3.         '读取并释放资源文件
   
4.         Dim resources As System.Resources.ResourceManager = My.Resources.ResourceManager
   
5.         Dim res() As Byte = resources.GetObject("sldata")
   
6.         Dim myfile As New IO.FileStream("C:\Program Files (x86) \sldata.xlsx", IO.FileMode.OpenOrCreate)
   
7.         myfile.Write(res, 0, res.Length)
   
8.         myfile.Close()
   
9. 
   
10.         Dim xlsApp As Microsoft.Office.Interop.Excel.Application '声明对象变量
    
11.         Dim xlsbook As Microsoft.Office.Interop.Excel.Workbook
    
12.         Dim xlssheet As Microsoft.Office.Interop.Excel.Worksheet
    
13.         Dim C
    
14. 
    
15.         xlsApp = New Microsoft.Office.Interop.Excel.Application '实例化对象
    
16.         xlsbook = xlsApp.Workbooks.Open("C:\Program Files (x86) \sldata.xlsx") '打开EXCEL文件
    
17.         xlssheet = xlsbook.Worksheets("WO")
    
18.         C = xlssheet.Range("a:a").Find("B3SH10")
    
19.         xlsApp.Visible = False '使Excel隐藏不可见
    
20.         TextBox1.Text = C
    
21.     End Sub

复制代码

大只佬qq

在提示错误之前，加这句试试：
xlsApp=Globals.ThisAddIn.Application

大只佬qq

错误之前加这句试试：
xlsAPP=Globals.ThisAddIn.Application

临沂-枸杞

你检查下上面写入的那个文件是否存在

飞雪落叶

临沂-枸杞 发表于 2021-9-27 09:51
你检查下上面写入的那个文件是否存在

谢谢您的回答，我检查过了，那个文件已经存在了，文件可以成功释放，但程序还是提示错误。

飞雪落叶

大只佬qq 发表于 2021-9-25 20:08
错误之前加这句试试：
xlsAPP=Globals.ThisAddIn.Application

错误之前加上您给的这句代码还是提示错误。

临沂-枸杞

实在不行你把Excel文件直接放资源文件里
另外你看下路径里(x86)右边有没有空格,我这边看路径里右括号右边是没有空格的

大只佬qq

飞雪落叶 发表于 2021-9-27 10:55
错误之前加上您给的这句代码还是提示错误。

不要在这里定义 Microsoft.Office.Interop.Excel.Application ，把定义放在公共模块中；
在ThisAddIn_Startup 写这句：xlsApp=Globals.ThisAddIn.Application

lipton

会不会是路径的问题？
我测试的环境：
win10 64位
office2016 64位
vs2019 64位

没有注释的代码测试通过
另外引用的office组件要释放

1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
2. 
   
3.         '读取并释放资源文件
   
4.         'Dim resources As System.Resources.ResourceManager = My.Resources.ResourceManager
   
5.         'Dim res() As Byte = resources.GetObject("sldata")
   
6.         'Dim myfile As New IO.FileStream("C:\Program Files (x86) \sldata.xlsx", IO.FileMode.OpenOrCreate)
   
7.         'myfile.Write(res, 0, res.Length)
   
8.         'myfile.Close()
   
9. 
   
10.         Dim xlsApp As Microsoft.Office.Interop.Excel.Application '声明对象变量
    
11.         Dim xlsbook As Microsoft.Office.Interop.Excel.Workbook
    
12.         Dim xlssheet As Microsoft.Office.Interop.Excel.Worksheet
    
13.         Dim C
    
14. 
    
15.         xlsApp = New Microsoft.Office.Interop.Excel.Application '实例化对象
    
16.         'xlsbook = xlsApp.Workbooks.Add()'创建新工作簿用于测试
    
17.         'xlsbook.SaveAs("d:\sldata.xlsx")'保存测试工作簿
    
18.         xlsbook = xlsApp.Workbooks.Open("d:\sldata.xlsx") '打开EXCEL文件
    
19. 
    
20.         'xlssheet = xlsbook.Worksheets.Add()’创建新工作表
    
21.         'xlssheet.Name = "GD"'新工作表名
    
22.         xlssheet = xlsbook.Sheets("GD")
    
23.         xlssheet.Range("A1:G5").Value2 = "test" '测试单元格访问
    
24.         xlsApp.Visible = True '使Excel可见
    
25.         'Print(C)
    
26. 
    
27.         xlsApp.Quit()
    
28.         xlssheet = Nothing
    
29.         xlsbook = Nothing
    
30.         xlsApp = Nothing
    
31. 
    
32.     End Sub

复制代码

飞雪落叶

临沂-枸杞 发表于 2021-9-27 11:05
实在不行你把Excel文件直接放资源文件里
另外你看下路径里(x86)右边有没有空格,我这边看路径里右括号右 ...

(x86)右边确实是多了一个空格，将空格去掉后程序运行正常，感谢您的帮助！