excel宏读取工作表名(vba获取工作表名称)

1. vba获取工作表名称

Sub test()

For i = 1 To ThisWorkbook.Worksheets.Count

Sheets(i).Name = Left(Sheets(i).Name, InStr(1, Sheets(i).Name, "【") - 1)

End Sub

这个通过验证，可以实现了。

for i=1 to sheets.count if sheet(i).name="已知名称" then exit fornext'代码运行后的 i 值就是第几个工作表，如果 i>sheets.count，表示没有这个表存在。

1、用重命名方式将Sheet5的名称修改为了“测试表单”，但在VBAProject中，前面的名字依然叫Sheet5。

2、点击 VBAProject下面的Sheet3，下面对应出现Sheet3的属性，我们能够看到属性中一个叫“名称”，就是工作表的CodeName，另外一个Name，就是平时大家所见的Sheet 的名字。

3、在“名称”属性中输入新的名称，直接对CodeName进行修改。

4、工作表的CodeName就是工作表在VBE工程中所在部件的名称，通过修改VBE工程中所在部件的名称来达到修改工作表的CodeName的目的。

5、运行，输入新的codename以后，系统给出提示“未信任到VB工程访问，请在信任选项中勾选VB工程访问”。

6、点击开发工具|宏安全性，打开宏安全性配置窗口。

7、勾选“信任对VBA工程对象模型的访问”，然后点击确定。

8、重新运行，成功将Sheet1修改为testaaa。

winform里面是在button点击事件写textbox1.text=“结果”；textbox1是我起的名字，应该写你要显示的textbox的name很久用c#了，如果有错误请及时告诉我，谢谢。

应该这样If Left(Worksheets("Sheet4").Range("E" & i), 3) = "HWI" ThenRows(i).delete但这个代码仅能在Sheet4为活动工作表时运行，如果在其它表为活动工作表时，会删除其它表的行。

把你要保留的工作表的名字放到数组里，再把数组放到字典里，然后遍历工作表，判断工作表名是否在字典里存在，如果存在，把工作表移动到新工作簿里然后另存为

不想用字典和数组的话，也可以把工作表名列一列，用VBA调用countif函数判断

工作表移动到新工作簿里然后另存为的代码录制宏可以得到

顶一下

(0)

踩一下

(0)