有没有固定的代码配自己录用的宏，可以实现批量处理同一文件夹下的文件。

420045140

小白一个。因为处理数据量大，经常需要批量处理。自己录制的宏，可以重复处理数据，但是要打开每个文件，依旧费时费力。

现来求助有没有固定的代码配自己录用的宏，可以实现批量处理同一文件夹下的文件。

谢谢各位大佬。
另外问一下怎么悬赏？注册没多久，发帖的时候没看到悬赏的选项。

lsc900707

参考资料：
跟我学 【喜迎2015立春】遍历文件夹(含子文件夹)方法 ABC
http://club.excelhome.net/thread-1185089-1-1.html
(出处: ExcelHome技术论坛)

420045140

lsc900707 发表于 2018-6-6 20:29
参考资料：
跟我学 【喜迎2015立春】遍历文件夹(含子文件夹)方法 ABC
http://club.excelhome.net/thread- ...

嗯。谢谢您。
我先看看学习一下。编程基础薄弱不知道能不能学以致用。

420045140

网上找的代码。可简单批量处理excel。侵删。。。。将自己录制的宏替换蓝色字体那一行就好。测试了一下批量改字体，删除行列都可以，但是排序录制宏默认的是当前表格，对其他表格无效（所以并不是所有的都可以）楼主也是小白。并不清楚要如何修改。

Sub mysub()

Dim ShApp As Object, mysheet As Object

Dim TF As Boolean, i As Integer

Dim aTable As Object, n As Integer

On Error Resume Next

n = 0

With Application.FileDialog(msoFileDialogFilePicker)

       .Title = "请选定要处理的excel文档"

       .Filters.Add "excel文档", "*.xls"  '暂定扩展名为xls的excel文档

       .AllowMultiSelect = True

       If .Show <> -1 Then Exit Sub

       Set ShApp = GetObject(, "Excel.Application")

       If Err <> 0 Then

           TF = True

           Set ShApp = CreateObject("Excel.Application")

       End If

       Application.ScreenUpdating = False

       For i = 1 To .SelectedItems.Count

           Set mysheet = ShApp.Workbooks.Open(.SelectedItems(i))

                With mysheet.Sheets(1)

                     .range("a1:a6").entirerow.delete

End With

                n = n + 1

           mysheet.Close True

       Next i

   End With

   If TF = True Then ShApp.Quit

   Set ShApp = Nothing

   MsgBox "处理完毕，共处理了" & n & "个excel文档。"

   Application.ScreenUpdating = True

End Sub

opiona

http://club.excelhome.net/thread-1409141-1-1.html

内有自定义函数：获取文件清单

420045140

朱荣兴 发表于 2018-6-6 23:34
上传附件，

不好意思。没有附件。只是突然想到有没有什么通用的代码可以搭配自己录用的宏来实现批量处理一些数据。
因为数据较多每一步处理都相当的费时。就我做的气候的数据来说，站点的数量还有模型的数量都是不一致的，经常需要小的改动才能得到想要的结果。

420045140

opiona 发表于 2018-6-7 08:34
http://club.excelhome.net/thread-1409141-1-1.html

内有自定义函数：获取文件清单

谢谢您。我先看看，学习一下

420045140

顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶

420045140

opiona 发表于 2018-6-7 08:34
http://club.excelhome.net/thread-1409141-1-1.html

内有自定义函数：获取文件清单

这个是我自己录的按行并扩展的排序代码（后边还有其他操作，代码没放全）。因为代码默认的是工作表的名称（红色），导致宏不能在其他表中使用该宏。怎么修改成当前工作表呢？
Sub 测试12()
'
' 测试12 宏
'

'
    Rows("1:1").Select
    ActiveWorkbook.Worksheets("Cal-monthly-T-Aheqi-1971-1999").Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("Cal-monthly-T-Aheqi-1971-1999").Sort.SortFields.Add _
        Key:=Range("A1:AH1"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Cal-monthly-T-Aheqi-1971-1999").Sort
        .SetRange Range("A1:AH349")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
    End With