Sub Test1()
ActiveSheet.OLEObjects.Delete
End Sub
Sub Test2()
Dim p$, f$, i%
Application.ScreenUpdating = False
Call Test1
p = ThisWorkbook.Path & "\"
f = Dir(p & "*.txt")
Do While f <> ""
i = i + 5
Cells(i, "C").Select
ActiveSheet.OLEObjects.Add Filename:=p & f
f = Dir
Loop
End Sub
新建文件夹.rar
(16.79 KB, 下载次数: 20)