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

[µo°Ý] ½Ð±Ð:¿ï¾Üªí³æ«áÂà¼g«ü©w½d³ò¤ºªº­È

[µo°Ý] ½Ð±Ð:¿ï¾Üªí³æ«áÂà¼g«ü©w½d³ò¤ºªº­È

¥»©«³Ì«á¥Ñ minture3 ©ó 2015-4-30 17:27 ½s¿è

½Ð±Ð«e½ú¸Ñµª
¤p§Ì¦b¤u§@ªí¤¤°µ¤F¤@­Ó«ö¶s
ÂI¿ï«ö¶s«á¿ï¾ÜÀÉ®×
¨Ã±NÀɮפ¤ªº¸ê®ÆÂà¼g¨ì¤u§@ªí¤¤
¸ê®Æ«¬¦¡¦p¤U"(¸ê®Æ«¬¦¡©T©w­n±qA8§ì¨ì¥ÑM8¶}©lªº³Ì«á¤@®æ)

¤u§@ªí:

§¹¦¨«á§Æ±æ¦p¦¹:


½Ð±Ðµ{¦¡½X11:16À³¸Ó¦p¦ó­×¥¿
  1. Sub ¿ï¾Ü¬¡­¶Ã¯¤§«áÂà¼g()
  2.     Dim myName As Variant, myBook As Workbook
  3.     Dim copyRange As Range, pasteRange As Range, myList As Variant
  4.     myList = Application.GetOpenFilename( _
  5.         FileFilter:="¤p­p¥Î¬¡­¶Ã¯,*.xlsx", _
  6.         Title:="½Ð¿ï¾Ü­n²Î¾ãªº¬¡­¶Ã¯", _
  7.         MultiSelect:=True)
  8.     If IsArray(myList) = False Then
  9.         MsgBox "©|¥¼¿ï¨ú¥ô¦óÀÉ®×"
  10.     Else
  11.         For Each myName In myList
  12.             Set pasteRange = Range("K8:W438")
  13.             Set myBook = Workbooks.Open(Filename:=myName)
  14.             Set copyRange = copyRange("A8:M27")
  15.             copyRange.Copy pasteRange
  16.             myBook.Close
  17.         Next
  18.     End If
  19. End Sub
½Æ»s¥N½X

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD