| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 730 人关注过本帖
标题:请教一下,为什么运行时总是提示text1(i).text没有定义啊,到底应该怎么修改 ...
只看楼主 加入收藏
琥珀1988
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2012-11-13
结帖率:0
收藏
已结贴  问题点数:10 回复次数:2 
请教一下,为什么运行时总是提示text1(i).text没有定义啊,到底应该怎么修改啊
Private Sub Command1_Click() '保存(不合格)

Dim Ex As Object
Dim ExBook As Object
Dim ExSheet As Object

Set Ex = CreateObject("Excel.Application")
Set ExBook = Ex.Workbooks.Add
Set ExSheet = ExBook.Worksheets("Sheet1")  '打开
ExSheet.Activate '激活工作表
Ex.Visible = True


ExSheet.Range("A1:U1").Value = Array("产品型号", "测试日期", "测试时间", "峰峰值", "均方根值", "频率", "周期", "上升时间", "下降时间", "正脉宽", "负脉宽", "正占空比", "负占空比", "最大值", "最小值", "平均值", "幅度", "顶端值", "底端值", "过冲", "预冲")




Static count As Integer
Dim j As Integer
count = count + 1
For j = 1 To 21
ExSheet.Cells(count + 1, j) = Text1(i).Text
Next j



On Error Resume Next


 ExBook.SaveAs ("d:/test.xls")

Set ExSheet = Nothing
Set ExBook = Nothing
Ex.Quit
Set Ex = Nothing

End Sub
搜索更多相关主题的帖子: 时间 测试 工作表 平均值 最大值 
2012-11-13 20:53
不说也罢
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:贵宾
威 望:39
帖 子:1481
专家分:4989
注 册:2007-10-7
收藏
得分:5 
你这是VB6的代码呀,该到VB6版块去问的。
如果你在学习,那么,你抄来的这个源码在.NET下肯定是不行的哦。

===================================================
讨厌C#的行尾的小尾巴;和一对大括号{ }
===================================================
2012-11-14 16:25
haigecnpeng
Rank: 7Rank: 7Rank: 7
等 级:黑侠
威 望:2
帖 子:261
专家分:510
注 册:2008-10-6
收藏
得分:5 
是支持控件数组的,但不建议用,所以默认是没有控件数组的选择,可以在com组件中添加控件数组。

都说到了.net年代,VB与C#都是一样的!
但为什么招聘的都是C#呢?
2012-11-16 20:25
快速回复:请教一下,为什么运行时总是提示text1(i).text没有定义啊,到底应该怎 ...
数据加载中...
 
   



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

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