这个代码怎么写？

fasdas

当前操作的工作簿文件名为a1.xls，能不能检测文件名，如果文件名为a1.xls就退出程序，不是就执行宏1，这个代码怎么写？

liulang0808

关键看楼主的当前操作的工作薄是怎么操作的
看看ActiveWorkbook.Name吧

fasdas

liulang0808 发表于 2018-2-21 13:55
关键看楼主的当前操作的工作薄是怎么操作的
看看ActiveWorkbook.Name吧

在当前操作工作簿添加一个按钮，如果当前工作簿文件名不是a2.xls，就退出程序，应该怎么写？

liulang0808

fasdas 发表于 2018-2-21 18:59
在当前操作工作簿添加一个按钮，如果当前工作簿文件名不是a2.xls，就退出程序，应该怎么写？

楼主的描述，不是太明白的
楼主在当前工作薄添加按钮，不知道当前工作薄的文件名？

fasdas

liulang0808 发表于 2018-2-21 19:04
楼主的描述，不是太明白的
楼主在当前工作薄添加按钮，不知道当前工作薄的文件名？

在当前工作簿点击按钮执行程序，当前文件名是任意的，只要当前文件名不是a2，就退出程序，这个怎么写？

liulang0808

ThisWorkbook.Name
看看这个吧

fasdas

liulang0808 发表于 2018-2-21 19:11
ThisWorkbook.Name
看看这个吧

if not activeworkbook.name = “a2” then
exit sub
end sub
这样写对不对？

liulang0808

fasdas 发表于 2018-2-21 19:16
if not activeworkbook.name = “a2” then
exit sub
end sub

不对啊 ，楼主写完代码测试就知道了
如果要用=号的话，文件名就需要全的

paoge

Application.DisplayAlerts = False
If ActiveWorkbook.Name = "a1.xls" Then ActiveWorkbook.Close

417744370

学习了，慢慢学