| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 674 人关注过本帖
标题:请高手帮忙.我写的VB出现问题
只看楼主 加入收藏
lx5656
Rank: 1
等 级:新手上路
帖 子:29
专家分:0
注 册:2015-4-15
结帖率:33.33%
收藏
 问题点数:0 回复次数:7 
请高手帮忙.我写的VB出现问题
第一个按钮代码
Private Sub Command1_Click()
 Dim EXAPP As Excel.Application
 Dim WB As Excel.Workbook
 Dim sht As Excel.Worksheet
 Set EXAPP = CreateObject("excel.application")
 Set WB = EXAPP.Workbooks.Open("d:\成绩表.xls")
 Set sht = WB.Worksheets("Sheet1")
Range("N2").Select
     ActiveCell.FormulaR1C1 = "=SUM(RC[-8]:RC[-1])"
    Range("N2").Select
    Selection.AutoFill Destination:=Range("N2:N641"), Type:=xlFillDefault
    Range("N2:N641").Select
    ActiveWindow.SmallScroll Down:=-9
 Form1.Caption = sht.Range("B5").Value '从表格取值
 'WB.Save'保存编辑后的文件
 WB.Close
 Set sht = Nothing
 Set WB = Nothing
 Set EXAPP = Nothing
 End Sub
第二个按钮代码
Private Sub Command2_Click()
 Dim EXAPP As Excel.Application
 Dim WB As Excel.Workbook
 Dim sht As Excel.Worksheet
 Set EXAPP = CreateObject("excel.application")
 Set WB = EXAPP.Workbooks.Open("d:\成绩表.xls")
 Set sht = WB.Worksheets("总表")
  Range("A2:V800").Select
    Selection.Sort Key1:=Range("T3"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlPinYin, DataOption1:=xlSortNormal   
 Set sht = Nothing
 Set WB = Nothing
 Set EXAPP = Nothing
End Sub
只要执行第二个按钮,红色部分就提示错误,是什么原因请高手帮忙下
搜索更多相关主题的帖子: 成绩表 
2015-05-19 19:27
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:0 
錯在沒定義Range,VB不知道它是來自誰之下的方法?

不要選我當版主
2015-05-19 19:40
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:0 
sht.Range("A2:V800").Select

大开眼界
2015-05-19 19:54
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:0 
做個爛比喻:
有個人名叫Excel,你聲明他是EXAPP。
他生了兩個兒子,一個叫Workbook,你聲明他是WB。
另一個叫Worksheet,你聲明他是sht。
然後你叫Range去搬磚,此時電腦糊塗了,Range是誰啊,要去哪叫呢?

不要選我當版主
2015-05-19 19:57
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
就是就是,看代码,感觉就是把宏代码复制过来样的。
在宏里,找不到是谁的,系统就默认中 Excel 的。 但在vb里就没这种默认 。

授人于鱼,不如授人于渔
早已停用QQ了
2015-05-19 20:03
renxiaoyao36
Rank: 9Rank: 9Rank: 9
来 自:七宝中学
等 级:贵宾
威 望:31
帖 子:347
专家分:1077
注 册:2014-9-18
收藏
得分:0 
加一个定义应该就能解决了

编程蛋疼的不是枯燥,而是辛辛苦苦编完几百行的代码,运行,“Runtime Error “xxx””。
2015-05-19 20:54
lx5656
Rank: 1
等 级:新手上路
帖 子:29
专家分:0
注 册:2015-4-15
收藏
得分:0 
谢谢各位高手解答谢谢
2015-05-20 08:43
lx5656
Rank: 1
等 级:新手上路
帖 子:29
专家分:0
注 册:2015-4-15
收藏
得分:0 
高手就是高手给我一讲,真是茅塞顿开!!!!!!!
2015-05-20 08:53
快速回复:请高手帮忙.我写的VB出现问题
数据加载中...
 
   



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

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