麻辣家族討論版版 » Excel程式區 » 製指定 C檔位有檔名之檔案

返回列表下一主題上一主題發帖

製指定 C檔位有檔名之檔案

中學生 Rank: 2

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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-12-21 11:09 | 只看該作者

製指定 C檔位有檔名之檔案

DEAR  大大..

請教,如何改成, C1欄位..一直往下,
PS: 複製指定 C檔位有檔名之檔案

Sub file_move()

Set fds = CreateObject("Scripting.filesystemobject")
fd = [a1]
fo = [b1]
fa=[c1].value       ---> ?

fs = Dir(fd & fa)
Do Until fs = ""    --->??
If fds.FileExists(fo & fs) Then
MsgBox "目標資料夾,有來源之同檔名檔案,請確認", vbOKOnly, "錯誤訊息"
Exit Sub
End If

fds.copyfile fd & fs, fo & fs

fs = Dir
Loop
End Sub

再麻煩...

樓主熱帖

收藏

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-12-22 15:11 | 只看該作者

回復 1# tomking
是這樣嗎?

Option Explicit
Sub file_move()
Dim fds As Object, fd As String, fo As String, fs As String, i As Integer
Set fds = CreateObject("Scripting.filesystemobject")
fd = [a1]
fo = [b1]
i = 1
Do While Cells(i, "C") <> ""
fs = Dir(fd & Cells(i, "C"))
If fs = "" Then Exit Do
If fds.FileExists(fo & fs) Then
MsgBox "目標資料夾,有來源之同檔名檔案,請確認", vbOKOnly, "錯誤訊息"
Exit Sub
End If
fds.copyfile fd & fs, fo & fs
i = i + 1
Loop
End Sub

複製代碼

中學生 Rank: 2

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

3^#

發表於 2011-12-22 16:27 | 只看該作者

感謝版主

冬至將到 ,冬至快樂...

靜思自在 : 屋寬不如心寬。

返回列表下一主題上一主題