ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

§ì¨ú¥t¤@­ÓexcelÀÉ¸ê®Æ

¦^´_ 1# imzues
  1. Sub Ex()
  2.     Dim MySheet As Worksheet
  3.     Set MySheet = ActiveSheet
  4.     With Workbooks.Open("d:\test\¥~³¡¸ê®Æ.xls")
  5.         .Sheets(1).Range("a1:a10").Copy MySheet.Range("a1")
  6.         .Close 0
  7.     End With
  8. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD