excel中一共有31个sheet，用vb代码将其命名，在线等，急. 命名方式为：前六个sheet命名为26-31，后25个命

Posted 2023-05-15

命名方式为：前六个sheet命名为26--31，后25个命名为1--25，拜托给位大神，急，在线等。。

Sub rename()
    For i = 1 To Worksheets.Count
        If i < 7 Then
            Sheets(i).Name = i + 25 & "AAA"
        Else
            Sheets(i).Name = i - 6 & "AAA"
        End If
    Next
    For i = 1 To Worksheets.Count
        If i < 7 Then
            Sheets(i).Name = i + 25
        Else
            Sheets(i).Name = i - 6
        End If
    Next
End Sub

试试吧

参考技术A sub mm()
n=25
for i=1 to 6
sheets(i).name=n+1
next
n=6
for i=7 to 31
sheets(i).name=i-6
next
end sub 参考技术B dim I

For i=1 to 31
If i<=6 then
Sheets(I).name=25+i
Else
Sheets(I).name=I-6
End if
Next i本回答被提问者采纳

关于VB中CreateObject 函数

我看到VB的MSDN中，有这样一段代码
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
按理Excel应该是应用程序名，Sheet应该是类，但我在对象浏览器中，选择库为excel,在类中，可以看到有sheets,没有sheet,这样的话这条代码CreateObject("Excel.Sheet")岂不是有问题吗？因为excel中应该没有Sheet类，只有sheets类。但当我将这句代码Set ExcelSheet = CreateObject("Excel.Sheet")改为Set ExcelSheet = CreateObject("Excel.Sheets"),在调试时显示“实时错误429 ActiveX部件不能创建对象”

　　1、CreateObject函数简介:创建并返回一个对 ActiveX 对象的引用。
　　2、CreateObject函数语法 ：CreateObject(class,[servername]) ；
　　3、CreateObject参数简介 ：
　　class必需的；
　　Variant (String). 要创建的应用程序名称和类；
　　servername可选的；
　　Variant (String). 要在其上创建对象的网络服务器名称。
　　4、CreateObject函数应用 ：
　　每个支持自动化的应用程序都至少提供一种对象类型。例如，一个字处理应用程序可能会提供 Application 对象，Document 对象，以及 Toolbar 对象。 要创建 ActiveX 对象，只需将 CreateObject 返回的对象赋给一个对象变量： ’声明一个对象变量来存放该对象’的引用。Dim as Object 采用后期绑定方式。
　　Dim ExcelSheet As Object
　　Set ExcelSheet = CreateObject("Excel.Sheet") 参考技术A '声明一个对象变量来存放该对象
'的引用。Dim as Object 采用后期绑定方式。
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")

是在createobject函数看到的吧，不过我怎么在对象浏览器中只能看到sheet，看不到sheets呢？本回答被提问者采纳