注册 登录
编程论坛 VB6论坛

请教 二义性的名称问题

jmc9514 发布于 2013-02-20 08:22, 381 次点击
新手自己录制编辑的宏,想对多个文件使用,但发现运行时老提示‘二义性的名称:宏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
2 回复
#2
lowxiong2013-02-20 10:16
显然是有两个同名的“宏2”造成的,将其中一个改成“宏宏2”,保证没提示
#3
zhengang10262013-02-21 15:08
2楼说得对,你两段宏起一个名,怎能不出错?
1