標題: [發問] 關於依指定儲存格值儲存至另一檔案的指定位置.. [打印本頁]

---

作者: dakiu    時間: 2016-6-3 10:29     標題: 關於依指定儲存格值儲存至另一檔案的指定位置..

有一主檔:A主
有多個副檔:B、C.............超出100個..

如果是1對1還好..因為是1對多，且不開啟的狀態下直接存入資料......實在有難度...

目前只會1檔取多檔資料.....但1檔存資料到多檔...卻仍難理解......還請老師指點......





[attach]24403[/attach]

---

作者: 准提部林    時間: 2016-6-3 16:38

不確定你的版本是否適用, 副檔名 ".xls" 自行更改：

1. Sub TEST()
   
2. Dim A As Range, B As Range, N%
   
3. Dim X As New Application, FN$, xB As Workbook
   
4. For Each A In [F4:G4]
   
5.     N = N + 1
   
6.     FN = ThisWorkbook.Path & "\" & A.Value & ".xls"
   
7.     If Dir(FN) = "" Then GoTo 101
   
8.     Set xB = X.Workbooks.Open(FN)
   
9. For Each B In [E5:E14]
   
10.     On Error Resume Next
    
11.     If Range(B.Value) Is Nothing Then GoTo 102
    
12.     On Error GoTo 0
    
13.     xB.Sheets(1).Range(B).Value = B(1, N + 1)
    
14. 102: Next
    
15.     xB.Close 1
    
16. 101: Next
    
17. End Sub

複製代碼

---

作者: dakiu    時間: 2016-6-3 17:01

回復 2# 准提部林


    謝謝版大，先細心研究了。感謝!

---

作者: dakiu    時間: 2016-6-3 18:01

回復 2# 准提部林


    版大:
再請教,path因有指定工作表,,我怎麼加都錯誤，可否再指導.....感謝!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)