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

mark15jill

因資料太多 如果一筆一筆慢慢搬移 會手廢掉= =!!
故做了一個比對表 和一個按鈕 想請問說 能否弄個VBA 將想要的資料 搬移到想要的資料夾名稱...

需求簡易說明
1.壓縮檔內有  需求說明文件  比對表  EXCEL存放區 和 資料夾存放區 兩個資料夾
    而在 EXCEL存放區內 有13份EXCEL檔案   資料夾存放區內 有 13個資料夾

2.想請問說 能否在比對表內 的 搬移 按鈕按下時候
    依照 比對表內的 TEXTbox 內容 將 EXCEL存放區內的檔案 放置該目錄下的 資料夾名稱
    如  TEXTBOX內容為 (D:\90年度\) 按下搬移後  EXCEL檔案 (90年度-001 ) 會搬移到 D:\90年度\90年度-001-王1 的資料夾內


檔案附帶於此   (479K才是正確的ˇˇ  另外一個是誤傳)
[attach]6158[/attach]

mark15jill

回復 1# mark15jill


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

GBKEE

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

1. Sub Ex()
   
2.     Dim TheFile$, A$, F$
   
3.     For Each e In Range("G2", [G2].End(xlDown))
   
4.         TheFile = ThisWorkbook.Path & "\" & "excel存放區\" & e & ".xls"
   
5.         A = Dir(TheFile)
   
6.         If A <> "" Then
   
7.             F = ThisWorkbook.Path & "\" & "資料夾存放區\" & e(1, 2)
   
8.             Name TheFile As F & "\" & A
   
9.         End If
   
10.     Next
    
11. End Sub

複製代碼

mark15jill

回復 3# GBKEE


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

GBKEE

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

mark15jill

回復 5# GBKEE


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

mark15jill

回復 5# GBKEE


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


就會沒有動靜

GBKEE

回復 7# mark15jill

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

複製代碼

mark15jill

回復 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

下載 (12.94 KB)

2011-5-18 11:47

GBKEE

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