| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1236 人关注过本帖
标题:vb6.0,操作excel 的问题
只看楼主 加入收藏
dengxiaojun1
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-11-4
收藏
 问题点数:0 回复次数:0 
vb6.0,操作excel 的问题
各位大侠,我想在一个工作簿里面加一个工作表,却不知道怎么弄,我现在的办法行不通,也不知道问题出在哪里,各位大侠给我指条明路吧
现在代码如下:
Dim xlApp1 As Excel.Application
        Dim xlBook1 As Excel.Workbook
        Dim xlSheet1 As Excel.Worksheet
        
        Set xlApp1 = CreateObject("Excel.Application")
        Set xlBook1 = xlApp1.Workbooks.Add
        xlApp1.SheetsInNewWorkbook = ChannelTemp + 1 'ChannelTemp一般等于4
        xlApp1.Worksheets.Add
        j = 1
For i = 0 To 7
If Channelflags(i)=True Then '最多只有四个为真
xlApp1.Visible = False
Set xlSheet1 = xlBook1.Worksheets(j)
                xlSheet1.Activate
                xlBook1.ActiveSheet.Name = "通道" & i & "_平均值.xls"
                j = j + 1
'中间的代码就是保存数据了
End If
Next i

运行时总是提示Set xlSheet1 = xlBook1.Worksheets(j)出错,out of rang ,(此时j=4)
我用的vb6.0
谢谢了!

[[italic] 本帖最后由 dengxiaojun1 于 2007-11-29 08:48 编辑 [/italic]]
搜索更多相关主题的帖子: excel Excel Set Dim Application 
2007-11-28 22:35
快速回复:vb6.0,操作excel 的问题
数据加载中...
 
   



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

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