标题:VB.net出现这样的错误提示,请各位老师帮忙看一下,这个该怎么解决?
只看楼主
duzihanghai
Rank: 1
等 级:新手上路
帖 子:24
专家分:0
注 册:2021-9-16
结帖率:50%
 问题点数:0 回复次数:0 
VB.net出现这样的错误提示,请各位老师帮忙看一下,这个该怎么解决?
在VSTO中用,开发软件过程中提示如下语句出现错误:

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

在这一句报警,
立即窗口出现提示:“在 System.Runtime. 中第一次偶然出现的“测试.exe”类型的异常”
网上搜了很多资料都没有解决问题,请论坛里的老师给帮忙看看,指点一下,谢谢!
具体代码和出错的项目文件附下:
程序代码:
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        '读取并释放资源文件
        Dim resources As System.Resources.ResourceManager = My.Resources.ResourceManager
        Dim res() As Byte = resources.GetObject("sldata")
        Dim myfile As New IO.FileStream("C:\Program Files (x86) \sldata.xlsx", IO.FileMode.OpenOrCreate)
        myfile.Write(res, 0, res.Length)
        myfile.Close()

        Dim xlsApp As Microsoft.Office.Interop.Excel.Application '声明对象变量
        Dim xlsbook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlssheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim C

        xlsApp = New Microsoft.Office.Interop.Excel.Application '实例化对象
        xlsbook = xlsApp.Workbooks.Open("C:\Program Files (x86) \sldata.xlsx") '打开EXCEL文件
        xlssheet = xlsbook.Worksheets("WO")
        C = xlssheet.Range("a:a").Find("B3SH10")
        xlsApp.Visible = False '使Excel隐藏不可见
        TextBox1.Text = C
    End Sub
测试.rar (1.57 MB)
搜索更多相关主题的帖子: Office Excel 出现 提示 Dim 
2021-09-25 16:02



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-506974-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.867948 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved