- ©«¤l
- 129
- ¥DÃD
- 25
- ºëµØ
- 0
- ¿n¤À
- 159
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-12-24
- ³Ì«áµn¿ý
- 2022-12-12
|
¦^´_ 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 |
|