| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
免费IT实战开发视频教程合集分享千里之行 始于足下
共有 101 人关注过本帖
标题:自动化错误,求助??
只看楼主 加入收藏
sango
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2018-11-1
结帖率:0
  已结贴   问题点数:20  回复次数:3   
自动化错误,求助??

Private Sub C1_Click()

    Dim objExcel As Excel.Application
    Dim objWorkBook As Excel.Workbook
   
    Set objExcel = CreateObject("Excel.Application")
   

    Set objWorkBook = objExcel.Workbooks.Add()
    objExcel.Visible = True
   
    '设置活动工作表
    Dim objSheet As Excel.Worksheet
    Set objSheet = objExcel.Worksheets("sheet1")
    objSheet.Cells(1, 1) = "mather" '对单元格赋值
    objWorkBook.SaveAs "D:\aa.xls" '保存
    objWorkBook.Close
    objExcel.Quit
    Set objSheet = Nothing
    Set objWorkBook = Nothing
    Set objExcel = Nothing

End Sub
附件: 您没有浏览附件的权限,请 登录注册
2018-11-01 20:15
sango
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2018-11-1
  得分:0 
附件: 您没有浏览附件的权限,请 登录注册
2018-11-01 20:15
yingshu
Rank: 2
等 级:论坛游民
威 望:1
帖 子:28
专家分:68
注 册:2018-7-24
  得分:10 
工程里引用了吗
2018-11-01 21:42
ZHRXJR
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:74
帖 子:764
专家分:4020
注 册:2016-5-10
  得分:10 
在菜单【工程】-【引用】中添加 Excel 的引用,根据你安装的 Office 不同,版本可能不同,但对于 aa.xls 应该都没有问题。

其他好像没有问题。
附件: 您没有浏览附件的权限,请 登录注册
2018-11-02 09:01







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

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