vba - Excel VBA 循环通过工作表失败

Question

编辑:我接受了你所有的建议并编辑了我的代码。现在可以了!!!
谢谢你。

这是新代码:

Sub WorksheetLoop()

    Dim AllWorksheets As Integer

    Dim Worksheet As Integer

    AllWorksheets = ActiveWorkbook.Worksheets.Count
    For Worksheet = 2 To AllWorksheets

        Sheets(1).Select

        Cells(10, Worksheet).Value = Sheets(Worksheet).TextBoxes(2).Text
        Cells(13, Worksheet).Value = Sheets(Worksheet).TextBoxes(3).Text
        Cells(18, Worksheet).Value = Sheets(Worksheet).TextBoxes(1).Text
        Cells(24, Worksheet).Value = Sheets(Worksheet).TextBoxes(5).Text
        Cells(34, Worksheet).Value = Sheets(Worksheet).TextBoxes(6).Text
        Cells(34, Worksheet).Value = Sheets(Worksheet).TextBoxes(4).Text

    Next Worksheet
End Sub

原始问题

所以有一个 excel 文档，其中包含大量的工作表。
在第一张纸上，脚本应创建概述。
它应该从第二个工作表开始，并且应该将文本框的内容(请不要问为什么会有文本框...)写入单元格 B10、B13 等等。
然后脚本应该转到工作表 3，文本框的内容应该转到 C10、C13、...
你明白了……
我知道这只有Z才有可能......

但是为什么我不断收到错误消息？

我的 VBA 知识很少，很抱歉有明显的错误。

编辑:我接受了关于 & 周围空间的建议
但我仍然得到“对象不支持此属性或方法”

Sub WorksheetLoop()

    Dim AllWorksheets As Integer

    Dim Worksheet As Integer

    AllWorksheets = ActiveWorkbook.Worksheets.Count

    For Worksheet = 2 To AllWorksheets
        For CellAscii = 66 To (AllWorksheet + 66)
            Cell = Chr(CellAscii)
            Sheets(1).Select
            Range(Cell & "10").Value = Sheets(Worksheet).TextBox2.Text
            Range(Cell & "13").Value = Sheets(Worksheet).TextBox3.Text
            Range(Cell & "18").Value = Sheets(Worksheet).TextBox1.Text
            Range(Cell & "24").Value = Sheets(Worksheet).TextBox5.Text
            Range(Cell & "30").Value = Sheets(Worksheet).TextBox6.Text
            Range(Cell & "34").Value = Sheets(Worksheet).TextBox4.Text
        Next CellAscii
    Next Worksheet
End Sub

Answer 1

尝试访问文本框时只需尝试以下操作:

Sheets("SheetName").TextBoxes("TextBox Name").Text 

验证您的“SheetName”和“TextBox Name”是否正确。

希望这对你有用。