| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1071 人关注过本帖
标题: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
快速回复:VB.net出现这样的错误提示,请各位老师帮忙看一下,这个该怎么解决?
数据加载中...
 
   



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

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