请教如何实现对同一文件夹下所有excel文件的批量操作

18438550577

现有一文件夹下有大量文件（如附件），需对其中所有文件进行如下操作：


Rows("1:5").Select
    Selection.Delete Shift:=xlUp
    Columns("A:C").Select
    Selection.NumberFormatLocal = "0.00000000000000_ ;[红色]-0.00000000000000 "
    ActiveWindow.SmallScroll Down:=192
    Rows("202:202").Select
    Selection.Delete Shift:=xlUp
    ChDir "C:\Users\86184\Desktop\111"
    ActiveWorkbook.SaveAs Filename:="C:\Users\86184\Desktop\111\" & Workbooks(Workbooks.Count).Name & ".txt", _
        FileFormat:=xlText, CreateBackup:=False
    Application.Quit
End Sub
以上是录制的宏，每次打开一个文件再用快捷键的宏操作还是太过麻烦，有没有办法一次性对其所有进行操作？
请问代码应该怎么写？谢谢！

liulang0808

https://club.excelhome.net/thread-1258425-1-1.html
https://club.excelhome.net/thread-1613618-1-1.html

3190496160

上传你需要查操作的文件，具体描述你的需求，只看代码是没法真正了解你的真实意图的，还是录制的宏

yellowhawk

请发附件！否则无法帮助，二楼的参考资料真的很好，我收藏了。

18438550577

3190496160 发表于 2022-11-23 09:18
上传你需要查操作的文件，具体描述你的需求，只看代码是没法真正了解你的真实意图的，还是录制的宏

代码是录制的宏，老师，附件已上传，具体描述在帖子里现已更改，请求帮助，谢谢老师！

18438550577

yellowhawk 发表于 2022-11-23 09:28
请发附件！否则无法帮助，二楼的参考资料真的很好，我收藏了。

已上传，具体描述在帖子中现已更改，谢谢老师

ykcbf1100

这应该能满足你的要求了吧。

yellowhawk

18438550577 发表于 2022-11-23 10:31
已上传，具体描述在帖子中现已更改，谢谢老师

附件是上传了，全部是CVS文件，是不是只把宏加载就行了么？

3190496160

Sub 批量操作()
Application.ScreenUpdating = False
ljj = ThisWorkbook.Path
VBA.ChDir ljj
Set dlgOpen = Application.FileDialog(msoFileDialogFolderPicker)
With dlgOpen
    If .Show <> -1 Then MsgBox "您没有选择文件夹！": Exit Sub
    lj = .SelectedItems(1)
End With
f = Dir(lj & "\*.csv")
Do While f <> ""
    If f <> ThisWorkbook.Name Then
        Set wb = Workbooks.Open(lj & "\" & f)
        sl = Len(Trim(wb.Name))
        mc = Mid(wb.Name, 1, sl - 4)
        With wb.Worksheets(1)
            r = .Cells(Rows.Count, 1).End(xlUp).Row
            .Rows(r).Delete
            .Rows("1:5").Delete
            .Range("a1:c" & r).NumberFormatLocal = "0.00000000000000_ ;[红色]-0.00000000000000 "
        End With
        wb.SaveAs Filename:=ljj & "\txt文件\" & mc & ".txt", FileFormat:=xlText, CreateBackup:=False
        wb.Close
    End If
f = Dir
Loop
Application.ScreenUpdating = True
MsgBox "操作完毕！"
End Sub

3190496160

flease.rar (363.48 KB, 下载次数: 3)

2022-11-23 15:46 上传

点击文件名下载附件