移動檔案用清單的方式,這是我覺得比較方便的方式,試了之後很快,下面可以看到來源夾剩一個檔案,故意留下來看看是不是我要的結果,目標夾全移過去了。
為了整理凌亂的檔案,這是其中一個步驟。
移動檔案的清單 |
移動檔案的來源夾 |
移動檔案的目標夾 |
Sub 移動檔案_清單方式()
'2022/1/12 22:15
Application.ScreenUpdating = False
With ActiveSheet
For i = 2 To 8
in_原始 = .Cells(i, 1).Text
in_新位置 = .Cells(i, 2).Text
Name in_原始 As in_新位置
Next
End With
End Sub
沒有留言:
張貼留言