- 帖子
- 47
- 主題
- 11
- 精華
- 0
- 積分
- 76
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-7-24
- 最後登錄
- 2024-2-5
|
既有VB，如何含註解複製過去?
本帖最後由 dakiu 於 2018-11-29 11:43 編輯
各位前輩好:
以下是1個sheet的內容分別依指定儲存格複製至很多依指定excel檔名的儲存格內，但現在需要含註解必需也能複製，但不知可否在程式碼內加入，目前註解無法複製中，懇請前輩指導，感謝!
Sub 回存一次二次資料()
''回存時須確認sheet指定位置是否正確
Dim A As Range, B As Range, N%
Dim X As New Application, 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
Set xB = X.Workbooks.Open(FN)
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
xB.Sheets(2).Range(B).Value = B(1, N + 1)
102: Next
xB.Close 1
101: Next
End Sub |
|
發表於 2018-11-29 11:42
| 
