如何在EXCEL很多文件下执行同样的操作

答案:2 悬赏:50 手机版

解决时间 2021-04-12 21:11

提问者网友：情歌越听越心酸
2021-04-12 04:45

如何在EXCEL很多文件下执行同一个操作

最佳答案

五星知识达人网友：愁杀梦里人
2021-04-12 05:10

新建一个EXCEL,在A1单元格输入要删除的文件夹路径:例如:C:\Users\admin\Desktop\Automation_Test\然后建一个CommandButton按钮,把以下代码复制到按钮里面:Private Sub CommandButton1_Click()On Error Resume NextApplication.ScreenUpdating = FalseDim sh As WorksheetRange("a3:b65536").ClearContentsmypath = Trim(Range("a1"))If Right(mypath, 1) <> "\" Then mypath = mypath & "\"n = 3myfile = Dir(mypath & "\*.*")Do While myfile <> ""Cells(n, 2) = myfileCells(n, 1) = mypath & myfilemyfile = Dirn = n + 1LoopIf n = 3 Then Exit Sub '如果N=3,则表示路径下没有提取到xls文件For j = 3 To n - 1Workbooks.Open Trim(Range("a" & j)) For Each sh In Trim(Range("b" & j)).Worksheets sh.Rows("1:10").DeleteNextWorkbooks(Trim(Range("b" & j))).Close true Next jApplication.ScreenUpdating = TrueEnd Sub

全部回答

1楼网友：孤独入客枕
2021-04-12 06:50

查找,包含的文字. 如果操作系统是win7,里面有个文件预览功能.可以直接实现你说的东西.

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！