excel定义默认工作表
答案:1 悬赏:20
解决时间 2021-10-19 04:45
- 提问者网友：泪痣哥哥
- 2021-10-18 21:50
excel定义默认工作表
最佳答案
- 二级知识专家网友：洒脱疯子
- 2021-10-18 23:13
已修改回答，你的文件中有两个错误名称，是造成宏不能运行的主要原因，请手工删除这两个名称后，再运行DelNames。
<BR/>附件：<a href="/browse/download.php?path=/13/20/04/1131132004.11817005.xls&filename=Names.xls" target="_blank">Names.xls</a> 定义了三个名称,工具->宏->执行即可全部一次性删除.
语句:
Public Sub x()
Dim Item As Name
For Each Item In ActiveWorkbook.Names
Item.Delete
Next Item
End Sub<BR/>附件：<a href="/browse/download.php?path=/36/63/04/1284366304.11817005.xls&filename=x.xls" target="_blank">x.xls</a> 以下内容摘自Word2003的VB帮助文件：
本示例实现的功能是：检查活动文档中的所有样式，如果检查到一个非内置样式，则显示该样式的名称。
Dim styleLoop As Style
For Each styleLoop in ActiveDocument.Styles
If styleLoop.BuiltIn = False Then
Msgbox styleLoop.NameLocal
End If
Next styleLoop
你好,sheepdog老师,我试了一下,能做到,可是对我自己的工作表就不起作用了,
我把一个工作表放到你上传的附件中,然后再删除这个工作表,只留下了名称,再执行时就有错误了,麻烦你再看一下是怎么回事,谢谢.
顺便说一下,上次你给出的自动提取工作表名称并能在点击时自动打开工作表的语句很实用.
<BR/>附件：<a href="/browse/download.php?path=/40/88/51/1355408851.11817005.xls&filename=x11.xls" target="_blank">x11.xls</a>
<BR/>附件：<a href="/browse/download.php?path=/13/20/04/1131132004.11817005.xls&filename=Names.xls" target="_blank">Names.xls</a> 定义了三个名称,工具->宏->执行即可全部一次性删除.
语句:
Public Sub x()
Dim Item As Name
For Each Item In ActiveWorkbook.Names
Item.Delete
Next Item
End Sub<BR/>附件：<a href="/browse/download.php?path=/36/63/04/1284366304.11817005.xls&filename=x.xls" target="_blank">x.xls</a> 以下内容摘自Word2003的VB帮助文件：
本示例实现的功能是：检查活动文档中的所有样式，如果检查到一个非内置样式，则显示该样式的名称。
Dim styleLoop As Style
For Each styleLoop in ActiveDocument.Styles
If styleLoop.BuiltIn = False Then
Msgbox styleLoop.NameLocal
End If
Next styleLoop
你好,sheepdog老师,我试了一下,能做到,可是对我自己的工作表就不起作用了,
我把一个工作表放到你上传的附件中,然后再删除这个工作表,只留下了名称,再执行时就有错误了,麻烦你再看一下是怎么回事,谢谢.
顺便说一下,上次你给出的自动提取工作表名称并能在点击时自动打开工作表的语句很实用.
<BR/>附件：<a href="/browse/download.php?path=/40/88/51/1355408851.11817005.xls&filename=x11.xls" target="_blank">x11.xls</a>
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯