- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
本帖最後由 GBKEE 於 2015-3-24 07:43 編輯
回復 1# li_hsien - Option Explicit
- Sub Ex() '不要Copy,給值 Value*******************
- Dim Rng As Range
- Application.AskToUpdateLinks = True
- Set Rng = Workbooks("Ex.XLS").Sheets(1).[A5:F10]
- With Workbooks("TEST.XLS")
- .Sheets(2).[C2].Resize(Rng.Rows.Count, Rng.Columns.Count) = Rng.Value
- End With
- End Sub
- Sub Ex_All() '如給值 Value,不是你要的期望.**********
- '執行一次,再重新你的檔案程式
-
- 'UpdateLinks 屬性 設定 XlUpdateLink 常數，此常數可指出活頁簿更新內嵌 OLE 連線的設定。讀/寫。
- 'XlUpdateLinks 可以是這些 XlUpdateLinks 常數之一。
-
- 'xlUpdateLinksAlways 永遠更新指定活頁簿的內嵌 OLE 連線。
- 'xlUpdateLinksNever 永遠不更新指定活頁簿的內嵌 OLE 連線。
- 'xlUpdateLinksUserSetting 根據使用者對指定活頁簿的設定來更新內嵌的 OLE 連線。
-
- Dim WB As Workbook
- For Each WB In Workbooks
- WB.UpdateLinks = xlUpdateLinksAlways
- WB.Close True
- Next
- End Sub
|
|
發表於 2015-3-24 07:22
| 
