如何利用VBA來達到 "連結" 效果?

返回列表下一主題上一主題發帖

RCRG

　暱稱: RCRG滾奶滾企

中學生 Rank: 2

帖子: 95
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2015-11-10
最後登錄: 2020-5-25

11^# 跳轉到 »

發表於 2016-1-28 18:29 | 顯示全部帖子

回復 17# 准提部林

如果來源檔( 修改檔)與目標檔(使用檔)都被保護著，那麼VBA我自己改成如下，但用起來感覺有點怪怪的，好像有時會複製成功，有時會沒複製到，是那兒有問題嗎?

Private Sub Workbook_Open()
Dim MyB As Workbook, xB As Workbook, xFile$
Set MyB = ThisWorkbook
xFile = ThisWorkbook.Path & "\修改資料夾\修改檔.xls" '路徑檔名自行修改
Application.ScreenUpdating = False
Set xB = Workbooks.Open(xFile, ReadOnly:=True)

ActiveSheet.Unprotect "123" '先取消保護

xB.Sheets("工作表A").[A1:H500].Copy MyB.Sheets("工作表a").[A1]
xB.Sheets("工作表B").[AA1:AB20].Copy MyB.Sheets("工作表b").[AA1]
xB.Close 0

ActiveSheet.Protect "123" '重新設定保護
End Sub

TOP

RCRG