- 帖子
- 549
- 主題
- 152
- 精華
- 0
- 積分
- 691
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-8-10
- 最後登錄
- 2022-9-7
 
|
回復 1# PKKO
'已經找到下方語法,但是LinkChange裡面要如何知道是哪個dde變更呢?- Sub TEST()
- Links = ActiveWorkbook.LinkSources(xlOLELinks)
- If Not IsEmpty(Links) Then
- For I = 1 To UBound(Links)
- ActiveWorkbook.SetLinkOnData Links(I), "LinkChange"
- Next I
- Else
- MsgBox "This workbook does not contain any links " & _
- "to other workbooks"
- End If
- End Sub
- Sub LinkChange()
- MsgBox "linked"
- End Sub
複製代碼 |
|