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

[µo°Ý] ½Ð°Ý2007ª©ªºexcel«ç»ò·|¨S¿ìªk¶]

[µo°Ý] ½Ð°Ý2007ª©ªºexcel«ç»ò·|¨S¿ìªk¶]

½Ð°Ý¦U¦ì¹F¤H
¥H¤U¦b2010ªºª©¥»³£¥i¥H¥Î
¦ýµ¹2007ªºª©¥»´N¤£¯à¥Î¤F
Åã¥ÜWorkbooks("DailyProcessYield-" & today).Close (False)
³o¥y¿ù»~
½Ð°Ý¬O­þ¸Ì¿ùªº°Ú~


Sub DailyProcessYield()

Application.DisplayAlerts = False
Dim today, Q, Q1, Q2, Q3, Q4, Q5, u
today = InputBox("¿é¤J¤é´ÁYYYY-MM-DD")
'Range("b6:p200").Delete
Worksheets("¨C¤é¸ê®Æ").Delete
Worksheets.Add after:=Worksheets("¾ã²z¸ê®Æ")
Worksheets(2).Name = "¨C¤é¸ê®Æ"

Data1 = "http://rptap/report/Daily/DailyProcessYield/DailyProcessYield-" & today & ".xls"
Workbooks.Open Filename:=Data1
Worksheets("´¹¤ù").Select
Cells.Select
Selection.Copy
ThisWorkbook.Sheets("¨C¤é¸ê®Æ").Activate
Range("A1").Select
ActiveSheet.Paste
Q1 = Range("a2").CurrentRegion.Rows.Count
Workbooks("DailyProcessYield-" & today).Close (False)

¦^´_ 1# 52ee24
§A¤W­±ªº :

Data1 = "http://rptap/report/Daily/DailyProcessYield/DailyProcessYield-" & today & ".xls"
Workbooks.Open Filename:=Data1

©³¤U«o¬O :

Workbooks("DailyProcessYield-" & today).Close (False)

§ï¦¨

Workbooks("DailyProcessYield-" & today & ".xls").Close (False)

¸Õ¸Õ. (2010 ¥i¥H¬Ù²¤ªº 2007 ¤£¤@©w¥i¥H)

TOP

¦^´_ 2# luhpro


   ÁÂÁ¤j¤j
¥i¥H¥Î¤F
¤£¹L¦b§ó·s¼Ï¯Ã®É¤S¤£¥i¥H¤F
Åã¥Ü³o¥y¤£¦æActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:=FF

¥H¤U¦³§Oªº¼gªk¶Ü
ÁÂÁÂ
Dim FF As Range, h
    h = Range("a1").CurrentRegion.Columns.Count
    Set FF = Worksheets("¨C¤é¸ê®Æ").Range(Cells(1, 1), Cells(QQ, h))
    Sheets("¾ã²z¸ê®Æ").Select
    Range("b8").Select
    ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:=FF
    ActiveSheet.PivotTables("¾ã²z¸ê®Æ").PivotCache.Refresh
    Sheets("¼Ï¯Ãªí").Select

TOP

¦^´_ 3# 52ee24

¾¨¶q¦A¦h´£¨Ñ¤@¨Ç¸ê®Æ¤~¸û¦nµû¦ô¥i¯à°ÝÃDÂI³á.

¨t²Î¨qªº¿ù»~°T®§¬O¬Æ»ò?

FF ªº¤º®e¤S¬O¬Æ»ò?
(¥i¥H³æ¨B°õ¦æ©Îµo¥Í°ÝÃD®É«ö¤U°»¿ù«ö¶s, µM«á¦b§Y®É¹Bºâµøµ¡¤¤¥´¤W ?FF.Address )

¥t¥~¦b Excel 2007 ¤¤ SourceData ¬O§_¥i¥H¸ó¤u§@ªí³o¤]¬O»Ý­n§A½T»{ªº¦a¤è.

TOP

        ÀR«ä¦Û¦b : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD