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

[µo°Ý] EXCEL§ì¨ú¤£¦PÀɮתºSHEET

[µo°Ý] EXCEL§ì¨ú¤£¦PÀɮתºSHEET

·Q°Ý½Ð¤@¤U   ¦]¬°§Ú¤u§@»Ý­n°µ¨Ç¦Ò®Ö²Î­p

¨Ò¦p¨C¤@­Ó¤ë¨C­Ó¤H³£¦³¦hºØ«~¶µ¦Ò®Öªº (¨Ò¦p¦³¥X¶Ôªº¦Ò®Ö ¤u§@ªí²{ªº¦Ò®Ö  µ¥¦h­¶SHEET.)

¤§«á­n§â¥b¦~«×ªº¦Ò®Ö  °µ­Ó¥b¦~«×ªºÁ`¦X

­n«ç¼Ë¤~¯à¸óÀɮקֳt§ì¨ú§@¥[Á`   ¦]¬°§Ú¥u·| =[A.xlsx]¤u§@ªí1!$A$1   
¦ýÁ`¦@¶W¹L500­Ó­n¤â°Ê¿é¤J·|·w­Ë   ¤S¤£¯à¦V¤U©Ô

³ß±æ¦³°ª¤â¥i¥HÀ°§Ú    ¦]¬°¤p§ÌEXCEL¯uªº¤£¦æ   ©Ò¥H¥i¥Hªº¸Ü¥i¥H¸Ô²Ó»¡¤@¤U

¦]±zªº°ÝÃD¤£¬O«Ü¸Ô²Ó¡A©Ò¥H¤£ª¾¦p¦ó¸Ñµª¡A¸ÕµÛ±N=[A.xlsx]¤u§@ªí1!$A$1   
§ï¦¨=[A.xlsx]¤u§@ªí1!A1¦V¤U©Ô¸Õ¬Ý¬Ý!
cjw

TOP

¦^´_ 2# cjw

³o¤èªk¤£¦æ

ÞË  ©êºpªí¹Fªº¤£²M·¡
¹³§Ú¦³7­ÓÀɮפÀ§OÄÒ¦W1~7

7¸¹ÄÒsheet1­n§ì¨ú¤À§O1~6 sheet1¸Ìªº¬Y¤@ª½¦C½d³ò¸ÌªºÀÉ®×

¦]¬°­n§ì¨ú¦n¦hª½¦C  ©Ò¥H·Q°Ý¯à±µ§â¤À§O1~6ªºsheet1ÀÉ®×  ³s°Ê§ì¨ú¨ìÀÉ®×7¸Ì(³o¼Ë´N¥i¥H¥Î¤U©Ô)

¤£ª¾¹D³o¼Ë»¡©úÀ´¤£À´(ªí¹F®z®zªº)

TOP

´£¨Ñ±z¤@¬qµ{¦¡µ¹±z°Ñ¦Ò

Dim sData, TData As Workbook
Dim sSt As WorkSheet

'ChDir WPath

ChDir Application.ActiveWorkbook.Path
Set sData = Workbooks.Open(SourceData)
sData.Activate
Set sSt = sData.Worksheets(1)

TOP

A¦C                        B¦C
¬¡­¶Ã¯½s¸¹        ¤½¦¡
1                        =INDIRECT("[¬¡­¶Ã¯"& A2 & ".xlsx]¤u§@ªí1!$A$1")
2                        =INDIRECT("[¬¡­¶Ã¯"& A3 & ".xlsx]¤u§@ªí1!$A$1")
3                        =INDIRECT("[¬¡­¶Ã¯"& A4 & ".xlsx]¤u§@ªí1!$A$1")

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD