怎么批量新建文件夹并把对应的图片移动到新建文件夹里面

木子Lee2018

求大神帮忙做一个程序，新建文件夹，并把表格里面对应的图片移动到对应的新建文件夹里面

不知道为什么

py代码，参考：

import openpyxl, os, shutil

path = r'C:\Users\martin\Desktop\怎么把图片移动到对应新建文件夹里'
os.chdir(path)
wb = openpyxl.load_workbook('要求.xlsx')
ws = wb['Sheet1']
data = ws.values
for row in list(data)[1:]:
    new_path = os.path.join(path, row[1])
    if not os.path.exists(new_path):
        os.mkdir(new_path)
        shutil.move(os.path.join(path, str(row[0]) + '.jpg'), new_path)
    else:
        shutil.move(os.path.join(path, str(row[0]) + '.jpg'), new_path)

不知道为什么

代码审核中，图片参考：

不知道为什么

效果如下图：

stonelee2018

新建文件夹用mkdir，建好文件夹按照要求移动就可以了

xiangbaoan

Sub test()
  Dim ar, i As Long, Pth As String, Fld As String, Fil As String
  ar = Range("a1").CurrentRegion
  Pth = ThisWorkbook.Path & "\"
  With CreateObject("Scripting.FileSystemObject")
    For i = 2 To UBound(ar)
      If Len(ar(i, 1)) * Len(ar(i, 2)) Then
        Fld = Pth & ar(i, 2) & "\"
        If Not .FolderExists(Fld) Then .CreateFolder Fld
        Fil = Pth & ar(i, 1) & ".jpg"
        If .FileExists(Fil) Then .MoveFile Fil, Fld
      End If
    Next
  End With
End Sub

木子Lee2018

xiangbaoan 发表于 2020-11-8 10:43
Sub test()
  Dim ar, i As Long, Pth As String, Fld As String, Fil As String
  ar = Range("a1").Cur ...

谢谢大神，非常可

木子Lee2018

不知道为什么 发表于 2020-11-7 20:27
py代码，参考：

import openpyxl, os, shutil

谢谢大神，

limonet

关键字：hashtable split

limonet

Sub limonet()
    Dim i%, Dic As Object, H$
    Set Dic = CreateObject("scripting.dictionary")
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        Dic(Cells(i, "B").Value) = Dic(Cells(i, "B").Value) & "￥" & Cells(i, "A") & ".jpg"
    Next i
    For i = 0 To Dic.Count - 1
        H = H & "';'" & Dic.keys()(i) & "'='" & Mid(Dic.items()(i), 2)
    Next i
    CreateObject("wscript.shell").Run "powershell push-location " & ThisWorkbook.Path _
    & ";$h=@{" & Mid(H, 3) & "'};md $h.keys;foreach ($i in $h.keys) { move ($h[$i] -split '￥') $i}", 0
End Sub