[發問] 關於依指定儲存格值儲存至另一檔案的指定位置..

dakiu

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

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

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





test.zip (20.04 KB)

下載次數: 10

2016-6-3 10:19

准提部林

不確定你的版本是否適用, 副檔名 ".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

回復 2# 准提部林


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

dakiu

回復 2# 准提部林


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