2022年1月12日 星期三

VBA_移動檔案_資料夾

移動檔案,整個資料夾移動, 


Sub 移動檔案_資料夾()

'2022/1/12  21:56

Application.ScreenUpdating = False


Dim objFile As File

Dim objFolder As Folder

Dim objFSO As FileSystemObject

Dim in_原始夾 As String

Dim in_目標夾 As String

in_原始夾 = "C:\Users\arthur\Desktop\C槽桌面\TESTA"

in_目標夾 = "C:\Users\arthur\Desktop\C槽桌面\TEST"

Set objFSO = New FileSystemObject

Set objFolder = objFSO.GetFolder(in_原始夾)


For Each objFile In objFolder.Files

'If (objFile.Name <> ThisWorkbook.Name) And (InStr(1, objFile.Name, ".xls") Or InStr(1, objFile.Name, ".csv")) Then

objFile.Move (in_目標夾 & "\" & objFile.Name)

'End If


Next objFile


End Sub

沒有留言:

張貼留言

凌晨 3:30 的失眠日記

今天凌晨三點半,難得失眠。或許是因為今天是我們部門要向老闆報告的日子,心裡不免有些擔憂:報告能否順利?會不會有遺漏? 這種情境讓我想起曾在 A 公司時的自己。那時也常在半夜驚醒,翻來覆去睡不著。因為在 A 公司,我能接觸到帳務與成本資料,於是總覺得自己應該發揮能力,把分析後的數據...