照片分班求助

pxzpeng · 发表于 2023-4-18 07:35

各位老师，为了学籍核对，请各位老师帮忙：我现在有一个excel表格，表格中有学生的学籍号、姓名和班级信息，学生的照片已按学籍号命名，现在我需要将学生按照excel中的班级信息将照片按班级新建班级文件夹，并将该班级的照片存入该文件夹中。

pxzpeng · 发表于 2023-4-19 09:33

各位老师，帮帮忙

3190496160 · 发表于 2023-4-19 12:02

Sub 分类()
Application.ScreenUpdating = False
Dim ar As Variant
Set fso = CreateObject("Scripting.FileSystemObject")
lj = ThisWorkbook.Path & "\"
With Sheets("sheet1")
r = .Cells(Rows.Count, 1).End(xlUp).Row
If r < 2 Then MsgBox "数据表为空！": End
ar = .Range("a1:c" & r)
End With
For i = 2 To UBound(ar)
If Trim(ar(i, 3)) <> "" Then
      wjj = lj & ar(i, 3)
      If Not fso.folderexists(wjj) Then fso.CreateFolder wjj
      wj = lj & "照片\" & ar(i, 1) & ".jpg"
      If Dir(wj) <> "" Then
         'fso.movefile wj, wjj & "\" ''移动用这句
         fso.copyfile wj, wjj & "\" ''拷贝用这句
      End If
End If
Next i
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160 · 发表于 2023-4-19 12:03

3190496160 · 发表于 2023-4-19 12:03

我也是做教务工作的，必须要帮一把

姓名库.rar (699.32 KB, 下载次数: 20)

pxzpeng · 发表于 2023-4-20 10:52

正是我需要的，非常感谢！！！

pxzpeng · 发表于 2023-4-20 11:01

我如果想通过学籍号将照片一一对应的填写到excel表格中去怎么弄？再次请求帮助，谢谢！

pxzpeng · 发表于 2023-4-20 11:04

3190496160 发表于 2023-4-19 12:03
我也是做教务工作的，必须要帮一把

我想通过学籍号将照片一一对应的插入到excel表格中去，再次恳请帮助

whengfu · 发表于 2023-8-17 09:11

值得学习，

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

照片分班求助

评分