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

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

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

¥»©«³Ì«á¥Ñ idsmchow ©ó 2012-1-4 00:04 ½s¿è

°²³]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

Summary Sheet.rar (1.5 KB)

001.rar (6.57 KB)

002.rar (6.59 KB)

¦^´_ 5# GBKEE


    ÁÂÁ¸ѵª.:)

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

TOP

¦^´_ 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

TOP

¥»©«³Ì«á¥Ñ idsmchow ©ó 2012-1-4 00:18 ½s¿è

ÁÂÁ¤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¯à°÷§Ö¤@¨Ç§¹¦¨.

Summary Sheet.rar (1.5 KB)

001.rar (6.57 KB)

002.rar (6.59 KB)

TOP

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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD