| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 454 人关注过本帖
标题:vb 求助
取消只看楼主 加入收藏
chenlili097
Rank: 1
等 级:新手上路
帖 子:60
专家分:0
注 册:2007-4-26
收藏
 问题点数:0 回复次数:2 
vb 求助
请教各位:
下面是我存储数据的代码,但运行后老是出现让我保存对表的修改的信息,请各位帮忙看一下,谢谢
Set xlBook = xlApp.Workbooks.Open(App.Path & "\xscj.xls") '打开EXCEL工作簿
Set xlsheet = xlBook.Sheets("学生成绩表")
xlsheet.Activate
With xlsheet

Text2.Text = form1.Combo2.Text
For m = 1 To 100
If .Range(.Cells(m, 1), .Cells(m, 1)) = Text2.Text Then
.Range(.Cells(m, 6), .Cells(m, 6)) = i '将最后所得成绩存入学生成绩表中
xlBook.Close
End If
Next
End With
xlApp.Quit '关闭EXCEL
Set xlApp = Nothing
2007-06-25 19:14
chenlili097
Rank: 1
等 级:新手上路
帖 子:60
专家分:0
注 册:2007-4-26
收藏
得分:0 

那怎么样才能让它不显示呢


2007-06-27 14:06
chenlili097
Rank: 1
等 级:新手上路
帖 子:60
专家分:0
注 册:2007-4-26
收藏
得分:0 

谢谢
我试试


2007-06-28 16:48
快速回复:vb 求助
数据加载中...
 
   



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

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