VBA创建工作表时复制Frontsheet图片出现编译错误求助

错误原因 #

出现Compile error: Expected variable or procedure, not module的核心原因是VBA工程中存在与内置对象同名的模块：

• 你可能创建了名为Worksheets的模块，导致编译器把代码里的Worksheets("Frontsheet")识别为自定义模块，而非Excel内置的工作表集合对象，从而触发编译错误。
• 另外原代码中Range、Rows未指定父对象（即新创建的工作表），会默认引用活动工作表，属于潜在的逻辑bug。

解决步骤 #

1. 修正模块命名冲突
   打开VBA编辑器，在工程资源管理器中找到名为Worksheets的模块，重命名为非内置对象名（比如Mod_SheetCreator）。

2. 规范对象引用
   在With CreateStandardSheet代码块内，所有Range、Rows调用前必须加.，明确指定父对象为新创建的工作表，避免引用活动工作表。

3. 优化图片引用逻辑
   粘贴图片后，不要用固定名称ClientLogo查找（多次复制后图片名称会自动加序号，比如ClientLogo 2），改用Shapes(Shapes.Count)直接引用最后粘贴的形状，保证定位准确。

4. 合理处理错误
   移除不必要的On Error Resume Next，或在错误处理后恢复错误捕获（On Error GoTo 0），避免隐藏其他代码问题。

修正后的完整代码 #

Function CreateStandardSheet(wkb As Workbook, SheetName As String) As Worksheet
    Set CreateStandardSheet = wkb.Sheets.Add(After:=wkb.Sheets(wkb.Sheets.Count))
    
    With CreateStandardSheet
        .Name = SheetName
        .Tab.Color = RGB(255, 0, 0)
        Union(.Columns("A"), .Columns("S")).ColumnWidth = 0.88
        .Columns("M:P").ColumnWidth = 13
        .Rows(1).RowHeight = 3
        .Rows(49).RowHeight = 3
        
        '--------------------------------2.1 Major working area ------------------------------------------
        With .Range("B2:L48")
            .Merge
            .BorderAround ColorIndex:=1, Weight:=xlMedium
        End With
        
        '---------------------------------2.2 Logo section -------------------------------------------------
        With .Range("M41:P46") '....2.2.1 CLIENT LOGO....
            .Merge
            .BorderAround ColorIndex:=1, Weight:=xlMedium
        End With
        
        '复制并粘贴Logo
        wkb.Worksheets("Frontsheet").Shapes("ClientLogo").Copy
        .Paste
        
        '调整刚粘贴的Logo位置和大小
        With .Shapes(.Shapes.Count)
            .Top = 570
            .Left = 600
            .Width = 170
        End With
    End With
End Function

内容的提问来源于stack exchange，提问作者Geographos