如何批量删除文件夹中Excel表格中第二行?
发布网友
发布时间：2022-04-27 02:22
共5个回答
热心网友
时间：2022-06-22 06:21
热心网友
时间：2022-06-22 06:22
在文件夹内的最顶层（不是最里面啊）新建一个工作簿--打开此工作簿--同按CTRL+F11这两个键调出VBA编辑窗口--插入--模块--在右边空窗粘贴以下代码：
Dim a(), Fso As New FileSystemObject
Public Sub Ipbox88()
'递归法历遍当前文件夹、以及子文件夹的所有文件，删除第一个工作表的第二行
Application.ScreenUpdating = False
ReDim a(40000)
Dim brr(1 To 40000, 1 To 26)
Zdir InputBox("请输入路径:", , ThisWorkbook.Path), i
ReDim Preserve a(i - 1)
MyName = ThisWorkbook.Path & "\" & ThisWorkbook.Name
For Each F In a '
If InStr(F, MyName) = 0 Then '排除重复打开当前工作簿
'If InStr(F, ".xlsx") <> 0 Then '排除不是.xlsx的文件
Set wb = Workbooks.Open(F) '循环打开Excel文件
wb.Sheets(1).Rows(2).Delete '删除第一个工作表的第二行
ActiveWorkbook.Close True '关闭活动工作簿
'End If
End If
Next
MsgBox "打完收工！请勿重复操作！！！"
Application.ScreenUpdating = True
End Sub
Sub Zdir(P, i)
For Each F In Fso.GetFolder(P).Files
a(i) = F
i = i + 1
Next
For Each s In Fso.GetFolder(P).SubFolders
Zdir s, i
Next
End Sub
按F5键即可运行此代码
PS：操作前请先做好数据备份！！！切记切记！！！
热心网友
时间：2022-06-22 06:22
友情提醒： 操作前请将数据文件在电脑上其他位置另作备份，因操作不当导致的数据丢失，本人概不负责！！！
Sub 提取文件信息()
Dim fName$, sPath$
sPath = ThisWorkbook.Path & "\" '设定要遍历的文件所在的路径与当前程序所在工作簿在同一文件夹下
fName = Dir(sPath & "*.xls*") '遍历到的文件名称
Application.ScreenUpdating = False '关闭屏幕刷新
'On Error Resume Next '忽略错误继续运行
Do While fName <> "" And fName <> ThisWorkbook.Name '如果查找到的文件名与本代码工作簿不同名则往下执行
Workbooks.Open (sPath & fName) '打开找到的文件
If Not Workbooks(fName).Sheets("Sheet1") Is Nothing Then '若打开的文件中存在Sheet1则往下执行
Workbooks(fName).Sheets("Sheet1").Rows("2:2").Delete '删除第2行
Else '和If的条件相反则退出运行
MsgBox (fName & "中不存在Sheet1,请检查后重试")
Exit Sub
End If
Application.DisplayAlerts = False '忽略警告窗口
Workbooks(fName).Close 1 '保存修改过的工作簿
Application.DisplayAlerts = True
Application.Wait Now + TimeValue("00:00:03") '程序延迟3秒后继续运行
''''这里批量操作工作簿消耗系统资源较多，请根据电脑配置优劣设定相应的延迟
''''避免程序假死或出错。
fName = Dir
Loop
Application.ScreenUpdating = True
End Sub
热心网友
时间：2022-06-22 06:23
获取文件夹内所有Excel文件，循环（打开excel文件处理（删除sheet1第二行），关闭文件）。
你自己去试试看。
热心网友
时间：2022-06-22 06:23
