注册 登录
编程论坛 VB.NET论坛

操作 EXCEL 文件错在哪里

燕之峰 发布于 2014-11-10 16:03, 3474 次点击
各位网友好,现用操作EXCEL文件
操作系统为WIN7、开发环境为VS2012,EXCEL2003
在项目中也引用了EXCEL
操作代码如下
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim exapp As excel.application  '定义excel应用程序
        Dim exbook As excel.workbook '定义工作簿
        Dim exsheet As excel.worksheet '定义工作表
        Dim exrange As excel.range   '定义工作区域
        exapp.visible = True  '显示excel 程序
        exbook = exapp.workbooks.open(Application.StartupPath & "\file\表.xls") '打开已在工作薄
        exsheet = exbook.sheets(1)
        exsheet.cells(2, 2) = 12
        exbook.save()
        exsheet = Nothing
        exbook.close()
        exbook = Nothing
        exapp.quit()
        exapp = Nothing
    End Sub
代码不能运行,出现如下提示
警告   
1    找不到类型库“Excel”的包装程序集。请验证 (1) 是否已正确注册 COM 组件,以及 (2) 目标平台与 COM 组件的位元是否相同。例如,如果 COM 组件为 32 位,目标平台就不能为 64 位。    操作EXCEL举例
    2    未能找到引用的组件“Excel”。    操作EXCEL举例
错误   
3    未定义类型“excel.application”。    F:\学习\操作EXCEL举例\Form1.vb    4    22    操作EXCEL举例
4    未定义类型“excel.workbook”。    F:\学习\操作EXCEL举例\Form1.vb    5    23    操作EXCEL举例
5    未定义类型“excel.worksheet”。    F:\学习\操作EXCEL举例\Form1.vb    6    24    操作EXCEL举例
6    未定义类型“excel.range”。    F:\学习\操作EXCEL举例\Form1.vb    7    24    操作EXCEL举例

请问,问题出现在哪里
另外,XP系统的,能支持VS什么版本(最高)
请指导,谢谢
只有本站会员才能查看附件,请 登录


[ 本帖最后由 燕之峰 于 2014-11-10 16:45 编辑 ]
3 回复
#2
厨师王德榜2015-02-13 16:40
以前遇到过,那台电脑后来才知道是用GHOST   光盘做的系统,EXCEL在上面是简化版的安装,结果EXCEL能正常运行,但是作为一个对象去调用就老是出错,后来卸载他的OFFICE,重新用安装的方式,重装了OFFICE,问题解决.
不知道适不适合你的情况.
#3
lzhjhp2015-04-18 23:10
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Excel.WorkbookEvents_SinkHelper
Imports Microsoft.Office
Imports


Public Class Form5

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Dim exapp As New Excel.Application  '定义excel应用程序
        Dim exbook As Excel.Workbook '定义工作簿
        Dim exsheet As Excel.Worksheet '定义工作表
        'Dim exrange As Excel.Range   '定义工作区域
        exapp.visible = True  '显示excel 程序
        exbook = exapp.Workbooks.Open(Application.StartupPath & "\file\表.xls") '打开已在工作薄
        exsheet = exbook.sheets(1)
        exsheet.cells(2, 2) = 12
        exbook.save()
        exsheet = Nothing
        'exbook.close()
        exbook = Nothing
        'exapp.quit()
        exapp = Nothing
    End Sub

[ 本帖最后由 lzhjhp 于 2015-4-18 23:25 编辑 ]
#4
cehuiooye2016-01-19 18:13
回复 楼主 燕之峰
如果你的系统为32位系统的话:项目…属性…编译…平台…x86
如果是64位则64
这其实是兼容性问题,代码没问题
1