請問1些搬移的問題 - Excel程式區

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

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

2^#

發表於 2011-5-16 15:39 | 顯示全部帖子

回復 4# mark15jill
因為如果是同磁碟區可行的話那就不用把比對表搬移過去,如果不可行的話那就得搬移過去了
看不懂你的意思
Name "D:\TEST.XLS" As "C:\TEST1.XLS"
是可行的

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

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

3^#

發表於 2011-5-18 11:22 | 顯示全部帖子

回復 7# mark15jill

Sub Ex()
Dim E As Range, TheFile$, A$, F$
For Each E In Range("G2", Cells(Rows.Count, "G").End(xlUp))
If E <> "" Then
TheFile = ThisWorkbook.Path & "\" & "excel存放區\" & E & ".xls"
A = Dir(TheFile)
If A <> "" Then
F = ThisWorkbook.Path & "\" & "資料夾存放區\" & E(1, 2)
Name TheFile As F & "\" & A
End If
End If
Next
End Sub

複製代碼

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

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

4^#

發表於 2011-5-18 14:59 | 顯示全部帖子

回復 9# mark15jill
請查看 vba的說明錯誤的檔案名稱或數目 (錯誤 52)
檢查看看你有犯到那裡的錯誤

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

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

5^#

發表於 2011-5-18 19:03 | 顯示全部帖子

本帖最後由 GBKEE 於 2011-5-18 20:32 編輯

回復 11# mark15jill
你有看沒有懂!
沒有你的檔案及目錄我也無法度.
請如1樓附檔般,再將有錯誤的檔案附上來.

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

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

6^#

發表於 2011-5-19 10:46 | 顯示全部帖子

回復 13# mark15jill
抱歉,根據附檔找不到錯誤.

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

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

7^#

發表於 2011-5-19 14:16 | 顯示全部帖子

回復 15# mark15jill
我所謂的錯誤有2
1.就是上面的那種情形和圖
2.沒辦法搬移到個別資料夾
不是錯誤的檔案名稱或數目 (錯誤 52) 嗎?
已依據你上傳檔案測試沒有發生啊!

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

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

8^#

發表於 2011-5-19 14:52 | 顯示全部帖子

回復 17# mark15jill
再測試一次了,還是沒有錯誤!
檔案都搬到指定的資料夾.