首页 新闻 论坛 群组 Blog 文档 下载 读书 Tag 网摘 搜索 .NET Java 游戏 视频 人才 外包 培训 数据库 书店 程序员
中国软件网
欢迎您:游客 | 登录 注册 帮助
    • 一个关于VB中应用EXCEL的小问题 [已结贴,结贴人:robinjianfeng]
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-07-15 20:38:35 楼主
    我已经在工程中引用Excel 9.0了，为什么运行时会出现“Active X部件不能创建对象”，我是不是少了什么东西
    Public xlApp    As Excel.Application    'Excel应用对象
    Public xlBook    As Excel.Workbook      'Excel工作薄对象
    Public xlSheet    As Excel.Worksheet    'Excel表格对象

    Set xlApp = CreateObject("Excel.Application ")
    Set xlBook = xlApp.Workbooks.Open("d:\1.xls ")              '打开(MyExcel.xls先已存在）
    Set xlSheet = xlBook.Worksheets("sheet1 ")          '选定表

    '在指定的座标格中写数据
    xlSheet.Cells(2, 8) = 1        '表格坐标可按你要求定
    xlSheet.Cells(3, 8) = 2
    xlSheet.Cells(5, 9) = 3

    '关闭EXCEL应用
    xlBook.Close 0
    xlApp.Quit
    Set xlApp = Nothing
    0  修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-07-15 20:51:021楼 得分:0
    请哪位大侠帮忙看看，本人自学VB的，有些地方学的不够系统！
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • supergreenbean
    • 等级:
    发表于：2008-07-15 20:56:392楼 得分:0
    你"Excel.Application"后面多了个空格吧

    Set xlApp = CreateObject("Excel.Application")
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-07-15 20:59:423楼 得分:0
    恩，对的，真的没发现，谢谢了，做了半天竟然是这个问题
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-07-16 09:24:404楼 得分:0
    把心切切细.

    Set xlApp = CreateObject("Excel.Application ")
    可以用下面这句
    Set xlApp = New Excel.Application   
    修改 删除 举报 引用 回复
    网站简介－广告服务－网站地图－帮助－联系方式－诚聘英才－English－ 问题报告
    北京创新乐知广告有限公司 版权所有 京 ICP 证 070598 号
    世纪乐知(北京)网络技术有限公司 提供技术支持
    Copyright © 2000-2008, CSDN.NET, All Rights Reserved