ªð¦^¦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 : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD