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

°ÝÃD¡A¨D±Ï~~«ô°U

¦^´_ 1# ªü©v

³oºØ°ÝÃD¦Û¤v¿ý»s¤@¦¸´Nª¾¹D¦p¦ó­×§ï
¤£ª¾ ¹D¦Û¤v½m²ß¤F¶Ü¡H

¥ý¨D¦³¡A¦A¨D¦n¡I

¿ý»s½d¨Ò¡G
  1. Sub Macro1()

  2.     Sheets("Sheet1").Select
  3.     Range("A1").Select
  4.     Selection.Copy
  5.     ChDir "C:\Users\Joey\Desktop"
  6.     Workbooks.Open Filename:="C:\Users\Joey\Desktop\b.xls"
  7.     Range("A1").Select
  8.     ActiveSheet.Paste
  9.     Application.CutCopyMode = False
  10.     ActiveWorkbook.Save
  11.     ActiveWindow.Close
  12.     Range("A1").Select
  13. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¦a¤WºØ¤Fµæ¡A´N¤£©öªø¯ó¡F¤ß¤¤¦³µ½¡A´N¤£©ö¥Í´c¡C
ªð¦^¦Cªí ¤W¤@¥DÃD