| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 454 人关注过本帖
标题:vb 求助
只看楼主 加入收藏
chenlili097
Rank: 1
等 级:新手上路
帖 子:60
专家分:0
注 册:2007-4-26
收藏
 问题点数:0 回复次数:5 
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
taihongbo
Rank: 1
来 自:山东临沂
等 级:新手上路
帖 子:127
专家分:0
注 册:2004-11-15
收藏
得分:0 
xscj.xls 文件已经修改,xlApp.Quit '关闭EXCEL
肯定要提示你了.

淘宝 毛绒玩具 熊
jstbobo.taobao. com
久顺通啵啵玩具店
2007-06-25 19:26
chenlili097
Rank: 1
等 级:新手上路
帖 子:60
专家分:0
注 册:2007-4-26
收藏
得分:0 

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


2007-06-27 14:06
huangwy
Rank: 1
等 级:新手上路
威 望:2
帖 子:297
专家分:0
注 册:2007-3-23
收藏
得分:0 
你可以先用代码保存,然后再关闭
2007-06-27 14:15
心中有剑
Rank: 2
等 级:新手上路
威 望:5
帖 子:611
专家分:0
注 册:2007-5-18
收藏
得分:0 
xlApp.save true 加到退出前面

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

谢谢
我试试


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



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

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