iceandy6150

¦^´_ 1# kasl

§Ú¶K¤§«e¨Ó³oµo°Ýªº½d¨Ò¡A±z¦A§ï§ï¬Ý

¤£¦PÀɮ׶¡ªº½Æ»s
Sub ex()
Dim Ar(), fd$, fs$, s%
fd = "D:\10¤ë\" '§ó§ï¦¨§Aªº10¤ë¸ê®Æ§¨¥Ø¿ý    *****³oÃä§A´N§ï§A·Q¶}ªºÀɮתº¸ê®Æ§¨¥Ø¿ý
fs = Dir(fd & "*.xls")
Do Until fs = ""
With Workbooks.Open(fd & fs)
   With .Sheets("¼Ò»s")
   ReDim Preserve Ar(s)
      Ar(s) = Array(.[AP7].Value, .[AP10].Value, .[AP12].Value, .[G7].Value, .[G12].Value)
      s = s + 1
   End With
   .Close 0
End With
fs = Dir
Loop
[A2].Resize(s, 5).Value = Application.Transpose(Application.Transpose(Ar))
End Sub


§Ú·Q­«ÂI¦b
With Workbooks.Open(fd & fs)   
fd¬O³]¸ê®Æ§¨¥Ø¿ý   (¨Ò¦p  C:\test\abc  --->C¼Ñ¸Ì¡Atest¸ê®Æ§¨¸Ì¡Aabc¸ê®Æ§¨)
fs¬O³]ÀɦW+.xls  (¨Ò¦p  001.xls)  
¨ºfd&fs´N·|¬OC:\test\abc\001.xls
µM«áWith Workbooks.Open(fd & fs)´NÅܦ¨With Workbooks.Open(C:\test\abc\001.xls)
´N·|¥h¶}001.xlsÀɤF

With .Sheets("¼Ò»s")ªº¥\¯à¬OÅý§A¨Ï¥Î¸Ó¤u§@ªí
©Ò¥H§A¥i¥H§ï¼g¦¨With .Sheets(" ")     ¨â­Ó"¤¤¶¡©ñ¤J§Aªº¤u§@ªíªº¦W¦r

µM«á¦A¥hŪ¸ê®Æ¡A½Æ»s¨ì²{¥ÎªºÀɮ׸̭±ªº¬Y¤@­Ó¤u§@ªí(sheet)¤¤ªº°}¦C
³oÃä§Ú´N¤£¤Ó·|¤F¡A¤£¦n·N«ä¡A§Ú¤]¬O·s¤â

§Æ±æ¹ï§A¦³¤@ÂIÀ°§U