求助 代码

458863601

有办法导入的班级按照顺序导入啊？

好像从1班到10班，10班要排在9班的后面

好像导入的班级 按照

导入的顺序按照B列的顺序导入

chxw68

楼主的需求就几十个字，其中就有2个”好像“，真的不明白再说什么呢。

458863601

chxw68 发表于 2020-2-16 20:20
楼主的需求就几十个字，其中就有2个”好像“，真的不明白再说什么呢。

就是在导入的工作表里把汇总文件夹全部工作簿中的表一导入

chxw68

458863601 发表于 2020-2-16 20:23
就是在导入的工作表里把汇总文件夹全部工作簿中的表一导入

你的文件里面已经有代码了，有什么问题？

458863601

chxw68 发表于 2020-2-16 20:20
楼主的需求就几十个字，其中就有2个”好像“，真的不明白再说什么呢。

文件夹导入的顺序 按照一年级（1）一年级（2）班一年级（3）班一年级（4）班一年级（5）班一年级（6）班

chxw68

458863601 发表于 2020-2-16 20:23
就是在导入的工作表里把汇总文件夹全部工作簿中的表一导入

如果是导入以后的顺序不对，可以利用辅助列，用函数或代码把班级换算成数值，然后对辅助列排序就可以了。

458863601

chxw68 发表于 2020-2-16 20:25
如果是导入以后的顺序不对，可以利用辅助列，用函数或代码把班级换算成数值，然后对辅助列排序就可以了。

导入的代码 运行不了  错误的

chxw68

详见附件。

458863601

chxw68 发表于 2020-2-16 20:29
详见附件。

按钮 3 哪个代码 用不了

Sub 按钮3_Click()
    Dim brr(1 To 99999, 1 To 13)
    Application.ScreenUpdating = False
    Set FSO = CreateObject("scripting.filesystemobject")
   
    Path = GetDirName("", "请选择数据源文件夹")
   
    For Each f In FSO.getfolder(Path).Files
        If InStr(f.Name, "2020春季学生信息总表") = 0 Then
            Set WB = Workbooks.Open(f)
            arr = WB.Sheets(1).[a2].CurrentRegion 'a2代表行数据除去标题
            For i = 3 To UBound(arr)
                m = m + 1
                For j = 1 To 13
                    brr(m, j) = arr(i, j)
                Next
            Next
            WB.Close False
        End If
    Next
    If m Then
        [a2].CurrentRegion.Offset(1).ClearContents 'a2代表行数据除去标题
        [a2].Resize(m, 13) = brr
    End If
    Application.ScreenUpdating = True
   
    MsgBox "导入完成！"
End Sub

458863601

chxw68 发表于 2020-2-16 20:29
详见附件。

导入后的 可不可以按照班级 的顺序排列