准提部林

回復 20# RCRG


Set xB = Workbooks.Open(xFile, ReadOnly:=True)
xB.Sheets("工作表A").Protect "123"
With MyB.Sheets("工作表a")
　　.Unprotect "123"
　　xB.Sheets("工作表A").[A1:H500].Copy .[A1]
　　.Protect "123"
End With
　
xB.Sheets("工作表B").Protect "123"
With MyB.Sheets("工作表b")
　　.Unprotect "123"
　　xB.Sheets("工作表B").[AA1:AB20].Copy .[AA1]
　　.Protect "123"
End With
xB.Close 0

既然已知語法，為何不自己去試作？
這VBA就是要自己動手去試作，從錯誤中去修去改，才能了解其機制，
只用問來的直接去貼用，永遠學不了！！！

RCRG

回復 21# 准提部林


   謝謝准大指教，有時間的話的確自己測試遠比貼上收穫的多，也很羨慕你們能用專業替他人解答，這是我們新手努力的目標，再次謝謝解題。