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

½Ð°Ý¦p¦ó¥u¶K¤W¼Æ¦r

½Ð°Ý¦p¦ó¥u¶K¤W¼Æ¦r

¦U¦ì¹F¤H¦n~
§Ú¬Ovbaªº·s¤â
·Q½Ð°Ý¤@¤U
§Ú·Q±q¤@­Óexcelªí½Æ»s¨ì¥t¤@­Óexcelªí
§Ú¼gªº¦p¤U
¥i¬O¶K¹L¥h«á¡A§âºâ¦¡ÁÙ¦³®æ¦¡³£¶K¤W¤F
¦ý§Ú¥u·Q¶K¤W¼Æ­È
§Ú¸Ó¦p¦ó§ï
ÁÂÁÂ
Application.DisplayAlerts = False
Dim y, m, d
y = InputBox("¿é¤J¤ë¥÷(yyyy)")
m = InputBox("¿é¤J¤ë¥÷(MM)")
d = InputBox("¿é¤J¤é´Á(DD)")
Data1 = "http://rptap/report/Daily/DailyWaferYield/DailyWaferYield-" & y & "-" & m & "-" & d & ".xls"
Workbooks.Open Filename:=Data1

Range("d4:ah4").Copy ThisWorkbook.Sheets("data-" & m).Range("d7:ah7")
End Sub

ThisWorkbook.Sheets("data-" & m).Range("d7:ah7") = Range("d4:ah4").Value

TOP

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


    ÁÂÁ°Õ~
   ­ì¨Ó¥i¥H³o¼Ë¡A¤p§Ì¤Ó²L¤F
   ÁÂÁ±оÉ

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD