[發問] 請問1些搬移的問題

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 2011-5-16 13:42 | 只看該作者

回復 1# mark15jill

+.+ 是我表達不夠清楚嗎

帖子: 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-16 14:49 | 只看該作者

回復 2# mark15jill
Name陳述句重新命名檔案並將之移到一個不同的目錄或資料夾中。如有必要，Name可跨越磁碟機移動檔案。但當newpathname和oldpathnamebut都在相同的磁碟機中時，只能重新命名已經存在的目錄或資料夾。Name不能建立新檔案，目錄或資料夾。
使用 Name 指令在一個已開啟的檔案上，將會產生錯誤，想要改變一個已開啟檔案的名稱之前，你必須先關閉它，Name 引數不能包括萬用字元 ( * 和 ? )。

Sub Ex()
Dim TheFile$, A$, F$
For Each e In Range("G2", [G2].End(xlDown))
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
Next
End Sub

複製代碼

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

4^#

發表於 2011-5-16 15:10 | 只看該作者

回復 3# GBKEE

版大那些程式的話是只能限定於同磁碟嗎??(如 C 對 C )
還是說可以不同磁碟區???
因為如果是同磁碟區可行的話那就不用把比對表搬移過去
如果不可行的話那就得搬移過去了

帖子: 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-16 15:39 | 只看該作者

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

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

6^#

發表於 2011-5-16 17:03 | 只看該作者

回復 5# GBKEE

就是那個意思.... 謝謝板大
因為常常為了要搬移上千個檔案而導致眼花撩亂= =!! 手極度痠痛

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

7^#

發表於 2011-5-18 09:43 | 只看該作者

本帖最後由 mark15jill 於 2011-5-18 10:41 編輯

回復 5# GBKEE

大大不好意思有點小問題ˇˇ!!!
如果碰到非連續的資料
如 (號碼1 3 4 7 8 9 10 11 15 19 20 ) 類似這樣

就會沒有動靜

帖子: 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-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

複製代碼

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

9^#

發表於 2011-5-18 11:47 | 只看該作者

本帖最後由 mark15jill 於 2011-5-18 11:55 編輯

回復 8# GBKEE
目前我的方式是

123
-比對表
-excel存放區(G攔的資料) <有187筆>
      89年度-002
   89年度-004
   89年度-027
-資料夾存放區(H欄位資料) <有187筆>
   89年度-002-王1
   89年度-004-王4
   89年度-027-王27

但是  跑到這行的時候會出現以下圖片訊息
Name TheFile As F & "\" & A

錯誤訊息.jpg

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

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

10^#

發表於 2011-5-18 14:59 | 只看該作者

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