[µo°Ý] ¦X¨Ö¼Æ­Ó¤u§@ﳡ¤ÀÀx¦s®æ¸ê®Æ¦Ü¤@¤u§@襤

spermbank

½Ð°Ý:
      1.¦X¨Ö¼Æ­Ó¤u§@ï(Àɮצì©ó\base\)³¡¤ÀÀx¦s®æ¸ê®Æ¦Ü¤@¤u§@ï(test.xlsm)¤¤¡A¨ä¤¤¶×¤J¸ê®Æ¥H¤u§@ï¹ïÀ³³¡¤ÀÀx¦s®æ¥HÃC¦âªí¥Ü
      ­n«ç»ò°õ¦ætest.xlsm¤¤¤u§@ªí2¤¤ªº"¶×¤J¸ê®Æ"«ö¶s¡A±N¦ì©ó\base\ªºÀɮסA¨Ì¾Ú¤u§@ªí1¤¤ªº¥N¸¹¡A±N¸ê®Æ¦X¨Ö¦Ü¨ä¤¤¡C
      PS:§Ú¹Á¸Õ§Q¥Î¤§«eG¤jÀ°§Úªº¦X¨Ö¼Æ­Ó¤u§@襤¬YÄæ¸ê®Æ¡AÂà¸m¦X¨Ö¦Ü¤@¤u§@諸¦C¦ì¤¤¡A¦ý¦]³o¦¸¸ê®Æ¬°³¡¤ÀÀx¦s®æ¡A¸Õ¼g´ú¸Õ´X¤Ñ¡A¤´µL¸Ñ¡A
           ½Ð«ü±Ð¡C

spermbank

¦^´_ 2# GBKEE


        ·PÁÂG¤j¡A§V¤O«÷´êµ{¦¡¡A²×©ó¦¨¥\^^
¥t¥~·Q½Ð°Ý¤@­Ó°ÝÃD:
sub ex()
Application.ScreenUpdating = False

...(§Ú­n«ç»ò¼Ë¦b¤£§ó·s¿Ã¹õ¡A¦ý¬O­n§ó·sÀx¦s®æCells(1,"A")­pºâ¨Ã¥B«ùÄòÅã¥Ü"¥¨¶°"°õ¦æ¶}©l¦Ü²×¤î®É¶¡(¬í)©O??)

Application.ScreenUpdating = False
end sub

linlinda20

ÁÂÁ±z,·PÁÂ!

GBKEE

¦^´_ 1# spermbank
¸Õ¸Õ¬Ý

1. Sub Ex()
   
2.     Dim R As Integer, EPath As String, Ar(), Wb As Workbook
   
3.     EPath = "D:\base\"
   
4.     With Sheets("¤u§@ªí1")
   
5.         For R = 2 To .Range("A1").End(xlDown).Row 'ªÑ²¼½d³ò
   
6.             Set Wb = Workbooks.Open(EPath & .Cells(R, "A") & ".xlsx")
   
7.             With Wb.Sheets("BASIC")
   
8.                 Ar = Array(.[E9], .[E13], .[E12], .[C16], .[C7])
   
9.             End With
   
10.             .Cells(R, "C").Resize(1, 5) = Ar                                           '¬õ°Ï
    
11.             .Cells(R, "H").Resize(1, 8) = Wb.Sheets("FR").[B15].Resize(1, 8).Value     'ºñ°Ï
    
12.             .Cells(R, "P").Resize(1, 8) = Wb.Sheets("BASIC").[B32].Resize(1, 8).Value  '¶À°Ï
    
13.             Wb.Close False
    
14.      Next
    
15.     End With
    
16. End Sub

½Æ»s¥N½X