帖子: 34
主題: 10
精華: 0
積分: 56
點名: 0
作業系統: WINDOWS10
軟體版本: office 2016
閱讀權限: 20
性別: 男
註冊時間: 2011-4-17
最後登錄: 2020-7-16

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-4-17 20:42 | 只看該作者

移動檔案或資料夾

在EXCEL A1 欄位  為 C:\A
            B1 欄位  為 D:\SAVE\
            C1 欄位:  為 E:\SAVE\

如何用巨集,將  A資料夾移動至 D:\SAVE\ 中
            再將 A資料夾 COPY至  D:\SAVE\ 中

麻煩.

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 98
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-4-17 22:35 | 只看該作者

不就是複製2次然後刪除嗎?

Sub ex()
Set fd = CreateObject("Scripting.FileSystemObject")
fd.copyfolder [A1], [B1] '複製到D:\TEST\
fd.copyfolder [A1], [C1] '複製到E:\TEST\
fd.DeleteFolder [A1] '刪除C:\A
End Sub

複製代碼

學海無涯_不恥下問

TOP

tomking

中學生 Rank: 2

帖子: 34
主題: 10
精華: 0
積分: 56
點名: 0
作業系統: WINDOWS10
軟體版本: office 2016
閱讀權限: 20
性別: 男
註冊時間: 2011-4-17
最後登錄: 2020-7-16

3^#

發表於 2011-4-18 08:23 | 只看該作者

版主.謝謝,

那再請教, 如只是移動資料夾內之所有檔案..不知,應如何寫?

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 98
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2011-4-18 09:21 | 只看該作者

回復 3# tomking

Sub nn()
Set fds = CreateObject("Scripting.filesystemobject")
fd = "C:\A\" '來源檔案資料夾
fs = Dir(fd) '來源檔案資料夾內的檔案名
Do Until fs = "" '直到讀取檔案名是空字串
If fds.FileExists("D:\TEST\" & fs) Then Kill "D:\TEST\" & fs '如果檔案已經存在就先刪除檔案
fds.movefile fd & fs, "D:\TEST\" '移動檔案到目標資料夾
fs = Dir '下一個檔案
Loop
End Sub

複製代碼

學海無涯_不恥下問

TOP

tomking

中學生 Rank: 2

帖子: 34
主題: 10
精華: 0
積分: 56
點名: 0
作業系統: WINDOWS10
軟體版本: office 2016
閱讀權限: 20
性別: 男
註冊時間: 2011-4-17
最後登錄: 2020-7-16

5^#

發表於 2011-4-18 16:11 | 只看該作者

感謝.. 版主,

TOP

tamami

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 6
點名: 0
作業系統: window xp
軟體版本: office 2003
閱讀權限: 10
性別: 女
來自: TAIWAN
註冊時間: 2011-3-23
最後登錄: 2011-8-24

6^#

發表於 2011-8-24 19:04 | 只看該作者

回復 1# tomking

這個巨集我剛好需要謝謝:D

KELLY

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

7^#

發表於 2015-6-5 09:31 | 只看該作者

回復 4# Hsieh

版主~想請問如果想移動指定檔案移動到另一資料夾呢?
同目錄
ex:
目前使用巨集是以一個[檔案1] 建立[檔案2]並自動依儲存格名稱存檔至
D:\目錄\進行
檔案1.xls          ActiveWorkbook.SaveAs Filename:="D:\目錄\進行 " &  Range("B5") & "-" & Format(Range("B2"), "yyyymmddhhss") & Range("C2") & ".xlsm"
因我有再[檔案2]呼叫檔案名稱並貼至[檔案1]AN3,想請問要怎麼讓路徑可以是用讀取儲存格來做變動呢?
移動至以下路徑
指定檔名  D:\目錄\進行\[AN3]
移動至    D:\目錄\結束

TOP