­ã´£³¡ªL

¦^´_ 20# RCRG


Set xB = Workbooks.Open(xFile, ReadOnly:=True)
xB.Sheets("¤u§@ªíA").Protect "123"
With MyB.Sheets("¤u§@ªía")
¡@¡@.Unprotect "123"
¡@¡@xB.Sheets("¤u§@ªíA").[A1:H500].Copy .[A1]
¡@¡@.Protect "123"
End With
¡@
xB.Sheets("¤u§@ªíB").Protect "123"
With MyB.Sheets("¤u§@ªíb")
¡@¡@.Unprotect "123"
¡@¡@xB.Sheets("¤u§@ªíB").[AA1:AB20].Copy .[AA1]
¡@¡@.Protect "123"
End With
xB.Close 0

¬JµM¤wª¾»yªk¡A¬°¦ó¤£¦Û¤v¥h¸Õ§@¡H
³oVBA´N¬O­n¦Û¤v°Ê¤â¥h¸Õ§@¡A±q¿ù»~¤¤¥h­×¥h§ï¡A¤~¯à¤F¸Ñ¨ä¾÷¨î¡A
¥u¥Î°Ý¨Óªºª½±µ¥h¶K¥Î¡A¥Ã»·¾Ç¤£¤F¡I¡I¡I

RCRG

¦^´_ 21# ­ã´£³¡ªL


   ÁÂÁ­ã¤j«ü±Ð¡A¦³®É¶¡ªº¸Üªº½T¦Û¤v´ú¸Õ»·¤ñ¶K¤W¦¬Ã¬ªº¦h¡A¤]«Ü¸r¼}§A­Ì¯à¥Î±M·~´À¥L¤H¸Ñµª¡A³o¬O§Ú­Ì·s¤â§V¤Oªº¥Ø¼Ð¡A¦A¦¸ÁÂÁ¸ÑÃD¡C