[µo°Ý] ±NÁ`ªíªº¸ê®Æ, ¤À§O¶×¤J¤£¦PWORKBOOK«ü©wªºWORKSHEET¸Ì­±

idsmchow

°²³]SUMMARY SHEET.XLS ¸Ì­±ªºSHEET1,  A1: B100 Àx¦s©Ò¦³BRANCHªºSALE TURNOVER .
COLUMN A ¬O BRANCH CODE, COLUMN B ¬O SALE AMT.

­n±N©Ò¦³¸ê®Æ¶×¤J¬ÛÃöªº­Ó§OWORKBOOK. (­Ó§OWORKBOOK¦WºÙ = BRANCH CODE)
¨Ò¦p:  ­n±N¸ê®Æ©ñ¦^ 001 BRANCH.XLS¸Ì­±ªº SHEET 1,  C5Àx¦s®æ.

¦Ó©Ò¦³­Ó§OBRANCH FILE ©ñ¦b Q4 ANALYSIS ¸ê®Æ§¨¸Ì­±.

´N¦n¹³¤@­Ó "»æ" ¤Àµ¹«ü©wªº¤H¤@¼Ë.

¦]¬°¦³¤j¶qFILE»Ý­n³B²z, §Æ±æ¤j®a¯à°÷À°§U

GBKEE

¦^´_ 1# idsmchow
´N¦n¹³¤@­Ó "»æ" ¤Àµ¹«ü©wªº¤H¤@¼Ë.
§A­n¤W¶Ç½d¨Ò »¡²M·¡ "»æ" ­n¤À°e¥X¥hªº±ø¥ó,

kobo

¬Ý¤F±zªº°ÝÃD½d³ò¦n¹³¤j¤F¨Ç,­n§¹¾ã¸Ñµª¦ü¥G»Ý­n¦³¤@³s¦ê¬ÛÃöªºµ{§Ç
¥B°Ýªº¦³¨ÇÅ¢²Î,
«Øij±z§âÀɮפW¶Ç,°ÝÃD¤@¨B¨Bªº»¡²M·¡
©Î
¨Ì±z­n¦p¦ó¸Ñ¨Mªº¶¶§Ç,¤@­Ó¤@­Óªº´£°Ý

idsmchow

ÁÂÁ¤j®a¦^À³.

¨ä¹ê·§©À´N¦n¦ü (0939875756¼Ó¥D) µo°Ý: ¤£¦PÀɮ׸ê®Æ·J¾ã ªº°ÝÃD®t¤£¦h,  http://forum.twbts.com/thread-2036-1-1.html

¥u¤£¹Lµ{§Ç¬Û¤Ï, §Úªº°ÝÃD¬O¥Ñ (Á`ªí) Âà¥h (¬ÛÃö­Ó§OªºWorkbooks)
(¥Ñ¶°¤¤¦a¤è ¤À´²¥X¥h)

Á`ªíFILE ¦s©ñ¦bC:\Testing\Summary Sheet.xls
¬ÛÃö­Ó§OªºWorkbooks FILE ¦s©ñ¦bC:\Testing\Q4 ANALYSIS\001.xls.....

²{¤W¶ÇÀÉ®×, ½Ð¤j®aÀ°§U

¦]¬°¸g±`³£»Ý­n¨ä¥L³¡ªù´£¨Ñ¸ê®Æ(¨Ò¦p: human resources Dept ªºSalary & MPF......Sale Dept.....I.T. Dept.......), ¦A¤@¦¸¿é¤J, ¤~¯à°÷§¹¦¨report, »°deadline®É¶¡ºò­¢. §Æ±æ§Q¥ÎMacro¯à°÷§Ö¤@¨Ç§¹¦¨.

GBKEE

¦^´_ 4# idsmchow

1. Sub Ex()
   
2.     Dim E As Range, FilePath As String
   
3.     FilePath = "D:\TEST\"   'Workbooks File ¦s©ñªº¸ê®Æ§¨
   
4.     With Workbooks("Summary Sheet.xls").Sheets(1)
   
5.         For Each E In .Range(.[a2], .[a2].End(xlDown)) 'Branch Code ½d³ò
   
6.             With Workbooks.Open(FilePath & E & ".XLS")
   
7.                 .Sheets(1).[C16].End(xlUp).Offset(1) = E.Offset(, 1)
   
8.                 .Close True                            'Ãö³¬ ¦sÀÉ
   
9.             End With
   
10.         Next
    
11.     End With
    
12. End Sub

½Æ»s¥N½X

idsmchow

¦^´_ 5# GBKEE


    ÁÂÁ¸ѵª.:)

³o¸Ì¯u¬O¤@­Ó¾Ç²ßªº¦n¦a¤è.