[已解决]工作簿的sheet name获取

sure

各位老师，我现在需要在combobox控件里面获取所有sheet的name的下拉列表，同时要删除Main,impedance,resistance,adjusted impedance,time和time normalized这几个sheet的name，并在获取的列表最后添加一个newplots的name，请问应该怎么写程序？谢谢，具体的可以看附件。Comobox控件在sheet4里面

最佳答案

月排行榜 / 总排行榜

蓝桥玄霜

2015-1-9 17:18

1. Private Sub Workbook_Open()
   
2. Dim Sht As Worksheet, d, nm$
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. nm = "Main,Impedance,Resistance,Adjusted Impedance,Time,Time Normalized"
   
5. For Each Sht In Sheets
   
6.     If InStr(nm, Sht.Name) = 0 Then d(Sht.Name) = ""
   
7. Next
   
8. d("newplots") = ""
   
9. Sheet1.Combobox21.List = d.keys
   
10. End Sub
    

复制代码

代码放在thisworkbook的代码区里面。

跳转到最佳答案楼层

爱疯

“删除Main,impedance,resistance,adjusted impedance,time和time normalized这几个sheet的name”
工作表必须有一个名字，你只说删掉原来的名字，没说新名字是什么，所以不能执行上句话。
还是，这句话的意思是删除这几个工作表？



Sub test1()
    Dim x, s$
    Application.DisplayAlerts = False
    test2
    For Each x In Sheets
        s = x.Name
        If s = Me.Name Then s = "newplots" Else x.Delete
        Me.ComboBox21.AddItem s
    Next x
End Sub

Sub test2()
    Me.ComboBox21.Clear
End Sub
2.rar (21.24 KB, 下载次数: 4)

2015-1-9 17:10 上传

点击文件名下载附件

蓝桥玄霜

1. Private Sub Workbook_Open()
   
2. Dim Sht As Worksheet, d, nm$
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. nm = "Main,Impedance,Resistance,Adjusted Impedance,Time,Time Normalized"
   
5. For Each Sht In Sheets
   
6.     If InStr(nm, Sht.Name) = 0 Then d(Sht.Name) = ""
   
7. Next
   
8. d("newplots") = ""
   
9. Sheet1.Combobox21.List = d.keys
   
10. End Sub
    

复制代码

代码放在thisworkbook的代码区里面。