VBA循环生成Excel模板插入OLE对象仅首次成功问题排查

这个问题我碰到过好几次了，核心问题出在你代码里依赖的ActiveSheet和Select操作在循环中没有正确关联到新生成的模板上，导致后续的OLE对象插入操作根本没在新模板上执行，自然看不到效果，也不会报错——因为代码本身语法没有问题，只是操作对象不对，相当于一直在第一个模板上重复操作，新模板完全没被处理。

具体问题点 #

• Select和ActiveSheet的依赖陷阱：你的代码用Range("I17").Select和ActiveSheet.OLEObjects.Add，这些操作都完全依赖当前活动工作表。当你循环生成新模板时，如果没有主动切换活动工作表到新生成的模板，ActiveSheet会一直停留在第一个模板上，后续所有的OLE插入都还是在第一个表上操作，新模板全程没被触及。
• 无报错的原因：代码本身没有语法错误，只是执行对象不符合你的预期，所以VBA不会抛出任何错误提示。

修复方案（推荐方案二，更稳定可靠） #

方案一：确保循环中激活新生成的模板

如果你还是习惯用ActiveSheet的写法，那在生成新模板后，必须主动激活它，让后续操作指向新模板：

' 假设你循环生成新工作表的代码框架如下
For i = 1 To 5 ' 示例循环次数，可根据你的需求修改
    ' 生成新模板工作表并保存引用
    Set newTemplate = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    newTemplate.Name = "模板_" & i ' 给新模板命名，方便识别
    
    ' 关键步骤：激活新生成的模板，让ActiveSheet指向它
    newTemplate.Activate
    
    ' 插入OLE对象（可以去掉冗余的Select操作，直接执行插入）
    ActiveSheet.OLEObjects.Add _
        Filename:="C:\Users\Chandra\Desktop\Report.xlsx", _
        Link:=False, _
        DisplayAsIcon:=True, _
        IconFileName:="C:\windows\Installer\{90160000-000F-0000-0000-0000000FF1CE}\xlicons.exe", _
        IconIndex:=0, _
        IconLabel:="C:\Users\Chandra\Desktop\Report.xlsx"
Next i

方案二：完全避免Select和ActiveSheet（更专业的写法）

在VBA开发中，依赖Select和ActiveSheet是常见的坑，因为活动对象可能被意外改变（比如用户手动点击了其他工作表）。更可靠的方式是直接引用工作表对象，明确指定操作的目标：

For i = 1 To 5 ' 示例循环次数
    ' 生成新模板工作表并保存对象引用
    Set newTemplate = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    newTemplate.Name = "模板_" & i
    
    ' 直接通过工作表对象插入OLE对象，无需激活或选择任何单元格
    newTemplate.OLEObjects.Add _
        Filename:="C:\Users\Chandra\Desktop\Report.xlsx", _
        Link:=False, _
        DisplayAsIcon:=True, _
        IconFileName:="C:\windows\Installer\{90160000-000F-0000-0000-0000000FF1CE}\xlicons.exe", _
        IconIndex:=0, _
        IconLabel:="C:\Users\Chandra\Desktop\Report.xlsx"
    
    ' 如果需要精准指定插入位置到I17单元格，可添加Left和Top参数（同样无需Select）
    ' newTemplate.OLEObjects.Add _
    '     Filename:="C:\Users\Chandra\Desktop\Report.xlsx", _
    '     Link:=False, _
    '     DisplayAsIcon:=True, _
    '     IconFileName:="C:\windows\Installer\{90160000-000F-0000-0000-0000000FF1CE}\xlicons.exe", _
    '     IconIndex:=0, _
    '     IconLabel:="C:\Users\Chandra\Desktop\Report.xlsx", _
    '     Left:=newTemplate.Range("I17").Left, _
    '     Top:=newTemplate.Range("I17").Top
Next i

额外提示 #

• 如果你不需要显示嵌入文件的图标，可以把DisplayAsIcon设为False，这样会直接嵌入Excel文件的内容。
• 注意IconFileName的路径有效性，不同版本的Office可能这个路径会有变化，如果路径无效，VBA会自动使用默认图标，但不会报错。

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