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

18438550577 · 发表于 2022-11-23 00:15

本帖最后由 18438550577 于 2022-11-23 10:24 编辑

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

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 · 发表于 2022-11-23 07:46

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

3190496160 · 发表于 2022-11-23 09:18

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

yellowhawk · 发表于 2022-11-23 09:28

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

18438550577 · 发表于 2022-11-23 10:29

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

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

18438550577 · 发表于 2022-11-23 10:31

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

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

ykcbf1100 · 发表于 2022-11-23 13:32

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

yellowhawk · 发表于 2022-11-23 15:31

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

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

3190496160 · 发表于 2022-11-23 15:46

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 · 发表于 2022-11-23 15:46

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

		自动登录	找回密码
密码			免费注册

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

评分