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

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

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

½Ð°Ý:
      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

test.rar (190.41 KB)

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

TOP

ÁÂÁ±z,·PÁÂ!

TOP

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

TOP

        ÀR«ä¦Û¦b : ¦a¤WºØ¤Fµæ¡A´N¤£©öªø¯ó¡F¤ß¤¤¦³µ½¡A´N¤£©ö¥Í´c¡C
ªð¦^¦Cªí ¤W¤@¥DÃD