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

[µo°Ý] Ãö©ó¨Ì«ü©wÀx¦s®æ­ÈÀx¦s¦Ü¥t¤@Àɮתº«ü©w¦ì¸m..

[µo°Ý] Ãö©ó¨Ì«ü©wÀx¦s®æ­ÈÀx¦s¦Ü¥t¤@Àɮתº«ü©w¦ì¸m..

¦³¤@¥DÀÉ:A¥D
¦³¦h­Ó°ÆÀÉ:B¡BC.............¶W¥X100­Ó..

¦pªG¬O1¹ï1ÁÙ¦n..¦]¬°¬O1¹ï¦h¡A¥B¤£¶}±Òªºª¬ºA¤Uª½±µ¦s¤J¸ê®Æ......¹ê¦b¦³Ãø«×...

¥Ø«e¥u·|1Àɨú¦hÀɸê®Æ.....¦ý1Àɦs¸ê®Æ¨ì¦hÀÉ...«o¤´Ãø²z¸Ñ......ÁٽЦѮv«üÂI......





test.zip (20.04 KB)

¤£½T©w§Aªºª©¥»¬O§_¾A¥Î, °ÆÀɦW ".xls" ¦Û¦æ§ó§ï¡G

  1. Sub TEST()
  2. Dim A As Range, B As Range, N%
  3. Dim X As New Application, FN$, xB As Workbook
  4. For Each A In [F4:G4]
  5.     N = N + 1
  6.     FN = ThisWorkbook.Path & "\" & A.Value & ".xls"
  7.     If Dir(FN) = "" Then GoTo 101
  8.     Set xB = X.Workbooks.Open(FN)
  9. For Each B In [E5:E14]
  10.     On Error Resume Next
  11.     If Range(B.Value) Is Nothing Then GoTo 102
  12.     On Error GoTo 0
  13.     xB.Sheets(1).Range(B).Value = B(1, N + 1)
  14. 102: Next
  15.     xB.Close 1
  16. 101: Next
  17. End Sub
½Æ»s¥N½X

TOP

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


    ÁÂÁª©¤j¡A¥ý²Ó¤ß¬ã¨s¤F¡C·PÁÂ!

TOP

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


    ª©¤j:
¦A½Ð±Ð,path¦]¦³«ü©w¤u§@ªí,,§Ú«ç»ò¥[³£¿ù»~¡A¥i§_¦A«ü¾É.....·PÁÂ!

TOP

        ÀR«ä¦Û¦b : §Ñ¥\¤£§Ñ¹L¡A§Ñ«è¤£§Ñ®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD