| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 381 人关注过本帖
标题:请教 二义性的名称问题
只看楼主 加入收藏
jmc9514
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2013-2-20
结帖率:0
收藏
已结贴  问题点数:20 回复次数:2 
请教 二义性的名称问题
新手自己录制编辑的宏,想对多个文件使用,但发现运行时老提示‘二义性的名称:宏2’
不知如何调整。。。。求高人指点。。

Sub 宏2()
'
' 宏2 宏
'

'
ChDir "C:\Users\rexarzhang\Desktop\text1111\207"
Workbooks.Open Filename:= _
"C:\Users\rexarzhang\Desktop\text1111\207\TextData.1018.xlsx"
ActiveWindow.SmallScroll Down:=-57
Columns("C:C").Select
Selection.Cut
Columns("B:B").Select
ActiveSheet.Paste
Range("B2").Select
ActiveCell.FormulaR1C1 = "text"
Sheets("TextData.1018").Select
Sheets("TextData.1018").Name = "text"
 Range("B10").Select
ActiveWorkbook.Save
ActiveWindow.Close



End Sub

Sub 宏2()
'
' 宏2 宏
'

'
ChDir "C:\Users\rexarzhang\Desktop\text1111\207"
Workbooks.Open Filename:= _
"C:\Users\rexarzhang\Desktop\text1111\207\TextData.1019.xlsx"
ActiveWindow.SmallScroll Down:=-57
Columns("C:C").Select
Selection.Cut
Columns("B:B").Select
ActiveSheet.Paste
Range("B2").Select
ActiveCell.FormulaR1C1 = "text"
Sheets("TextData.1019").Select
Sheets("TextData.1019").Name = "text"
 Range("B10").Select
ActiveWorkbook.Save
ActiveWindow.Close



End Sub
搜索更多相关主题的帖子: 207 Desktop Users 如何 
2013-02-20 08:22
lowxiong
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:27
帖 子:652
专家分:3402
注 册:2008-5-7
收藏
得分:10 
显然是有两个同名的“宏2”造成的,将其中一个改成“宏宏2”,保证没提示
2013-02-20 10:16
zhengang1026
Rank: 6Rank: 6
等 级:侠之大者
威 望:1
帖 子:136
专家分:409
注 册:2013-2-6
收藏
得分:10 
2楼说得对,你两段宏起一个名,怎能不出错?
2013-02-21 15:08
快速回复:请教 二义性的名称问题
数据加载中...
 
   



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

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