[已解决]如何用VBA批量删除制定文件夹中，多个Exce文件l的前两行

kings00861

最佳答案

月排行榜 / 总排行榜

limonet

2022-3-23 10:24

Sub RowsDelete()
    Dim MyPath$, Filename$
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show Then MyPath = .SelectedItems(1) Else Exit Sub
    End With
    Filename = Dir(MyPath & "\*.xls?")
    Do While Filename <> ""
        With Workbooks.Open(Filename:=MyPath & "\" & Filename)
            Rows("1:2").Delete
            .Close True
            Filename = Dir
        End With
    Loop
End Sub

跳转到最佳答案楼层

limonet

Sub RowsDelete()
    Dim MyPath$, Filename$
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show Then MyPath = .SelectedItems(1) Else Exit Sub
    End With
    Filename = Dir(MyPath & "\*.xls?")
    Do While Filename <> ""
        With Workbooks.Open(Filename:=MyPath & "\" & Filename)
            Rows("1:2").Delete
            .Close True
            Filename = Dir
        End With
    Loop
End Sub

kings00861

如何用VBA批量删除指定文件夹中，多个Exce文件的前两行。
不好意思，标题有错别字

limonet

Sub RowsDelete()
    Dim MyPath$, Filename$
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show Then MyPath = .SelectedItems(1) Else Exit Sub
        Filename = Dir(MyPath & "\" & "*.xls?")
        Do While Filename <> ""
            With Workbooks.Open(Filename:=MyPath & "\" & Filename)
                Rows("1:2").Delete
                .Close True
                Filename = Dir
            End With
        Loop
    End With
End Sub

kings00861

limonet 发表于 2022-3-23 10:24
Sub RowsDelete()
    Dim MyPath$, Filename$
    With Application.FileDialog(msoFileDialogFolderPic ...

谢谢您，解决大问题了！

金樽空对月

kings00861 发表于 2022-3-23 10:28
如何用VBA批量删除指定文件夹中，多个Exce文件的前两行。
不好意思，标题有错别字

1. Sub mydelete()
   
2. Application.ScreenUpdating = False
   
3. Dim myfile, x, wb As Workbook
   
4. mypath = ThisWorkbook.Path & "\*.xls*"
   
5. myfile = Dir(mypath)
   
6. Do
   
7.     If myfile <> ThisWorkbook.Name Then
   
8.         Set wb = Workbooks.Open(ThisWorkbook.Path & "" & myfile)
   
9.         wb.Worksheets(1).Rows("4:5").Delete
   
10.         wb.Save
    
11.         wb.Close False
    
12.         Set wb = Nothing
    
13.     End If
    
14.     myfile = Dir
    
15. Loop Until myfile = ""
    
16. Application.ScreenUpdating = True
    
17. End Sub

复制代码