- 帖子
- 2848
- 主題
- 10
- 精華
- 0
- 積分
- 2903
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2026-7-25
|
本帖最後由 准提部林 於 2018-12-1 11:57 編輯
還是用直接開啟檔案吧!!!
Sub 回存一次二次資料()
Dim A As Range, B As Range, N%
Dim FN$, xB As Workbook
For Each A In [$e$2:$bs$2] ''受評人數範圍-僅工號列
N = N + 1
FN = ThisWorkbook.Path & "\" & "5--自評完成資料" & "\" & A.Value & ".xlsm" ''本檔放在抓取檔案上一層
If Dir(FN) = "" Then GoTo 101
Application.ScreenUpdating = False
Set xB = Workbooks.Open(FN)
ThisWorkbook.Activate
For Each B In [$e$4:$e$55] ''選擇回存的儲存格位置
On Error Resume Next
If Range(B.Value) Is Nothing Then GoTo 102
On Error GoTo 0
B(1, N + 1)copy xB.Sheets(2).Range(B)
102: Next
xB.Close 1
101: Next
End Sub |
|
發表於 2018-12-1 11:54
| 