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

Ãö©ó­«½Æ°µ¶}±Ò¤£¦PÀÉ®×¥h°µ¦P¼Ë½Æ»s¶K¤W

Ãö©ó­«½Æ°µ¶}±Ò¤£¦PÀÉ®×¥h°µ¦P¼Ë½Æ»s¶K¤W

ChDir _
        "C:\Users\user\Google ¶³ºÝµwºÐ\2015\³½"
    Workbooks.Open Filename:= _
        "C:\Users\user\Google ¶³ºÝµwºÐ\2015\³½\³½-¨t²Î.xlsx" _
        , UpdateLinks:=0


Windows("new¸ê®Æ®w.xlsm").Activate
    Sheets("³øªí").Select
    Cells.Select
    Selection.Copy
   
    Windows("³½-¨t²Î.xlsx").Activate
    Sheets("³øªí").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
     
     Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False



½Ð°Ý¦U¦ì¤j¤j
§Ú·Q ¤À§O¶}±Ò
³½ ½¼ ¤û Âû ¦Ï ¤­­Óxlsx
¨C¤@­Ó¶}°_¨Ó«á ³£·|Àɮ׶K¹L¥h
¦³¤H¥i¥Hª¾¹D¦p¦ó°µ¶Ü?

¦]¬°§Ú¤@­Ó­Ó¿ý³y¦¨ ½s¿è¹L¤j
§Úªº·Qªk¬O§Ú¦³¶}¤@­Ó¦WºÙ¸ê®Æ­¶
¤À§O¦b¤W­±¥´¤W³½ ½¼ ¤û Âû ¦Ï
µM«á ¤@¸ô¦V¤U°µ
¤£ª¾¹D³o¸Ó¦p¦ó°õ¦æ©O

¥»©«³Ì«á¥Ñ starry1314 ©ó 2016-2-26 21:29 ½s¿è

¦^´_ 1# vavashop

§Ú¦Û¤vªº°µªk,¥ý½Æ»s¦n¸ê®Æ®w­n¶K¦Ü¥t¤@Àɮתºªº½d³ò,
¦b°õ¦æ§A­n°õ¦æªº¥¨¶°
  1. Sub §å¦¸­×§ï()

  2. ' ¿Ã¹õ¨ê·s,Ãö³¬
  3. Application.ScreenUpdating = False

  4.    Dim filenames As Variant

  5. ''³]¸m¼Æ²Õµ¹Åܶq©M¯u¬°¦h¿ï
  6.    ' set the array to a variable and the True is for multi-select
  7.    filenames = Application.GetOpenFilename(, , , , True)

  8.       counter = 1

  9.       ' ¿ï¾Ü­n¶}±ÒªºÀÉ®×
  10.       While counter <= UBound(filenames)

  11.          '¥´¶}¿ï©wªº¤å¥ó
  12.          Workbooks.Open filenames(counter)
  13.          
  14.          '¥¨¶°---------------------
  15.          
  16.          
  17.          
  18.          
  19.          
  20.          
  21.          
  22.          
  23.          
  24.          
  25.          
  26.          '¥¨¶°---------------------

  27.    
  28.         
  29.          
  30.          
  31.               'Ãö³¬¿ï¾ÜªºÀÉ®×
  32.          
  33.          ActiveWorkbook.Close True
  34.          


  35.          '¶}±Ò·sÀÉ®×
  36.          counter = counter + 1

  37.       Wend
  38.       
  39.       ' ¿Ã¹õ¨ê·s,¶}±Ò
  40. Application.ScreenUpdating = True

  41.    End Sub
½Æ»s¥N½X

TOP

·PÁ¤j¤j ¥i¥H¤F

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD