Excel如何批量插入Excel文件？

最新推荐文章于 2026-03-24 00:41:29 发布

原创

最新推荐文章于 2026-03-24 00:41:29 发布 · 1.4k 阅读

标签

#microsoft #excel #办公

收录于

1.首先，打开Excel

2.按“Alt”+"F11"打开宏，按照操作顺序进行插入模块，输入代码，然后关闭宏

3.确定自己电脑存放需要插入Excel文件的路径和命名好文件

Sub InsertExcelObjectsAsIcons()
    Dim ws As Worksheet
    Dim FilePath As String
    Dim FileName As String
    Dim i As Integer, j As Integer
    Dim SampleIndex As Integer
    Dim rng As Range
    Dim oleObj As Object

    ' 修改为你的工作表名称
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 修改为你的Excel文件夹路径
    FilePath = "C:\Users\FQ\Desktop\1\" ' 请将此路径修改为实际文件路径
    
    ' 初始化样机索引
    SampleIndex = 1
    
    ' 遍历指定范围内的单元格
    For Ea