- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 244
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-10
|
¦^´_ 13# yanto913
µ{¦¡³]pÀ³ºÉ¶qÁקK¿ù»~²£¥Í¤~¬O¥¿¹D- Sub test()
- Dim sht()
- Application.ScreenUpdating = False 'Ãö³¬¿Ã¹õ§ó·s
- fd = ThisWorkbook.Path & "\" 'ÀɮשҦb¥Ø¿ý
- For Each a In [A1:A5]
- fs = fd & a & ".xls"
- fb = Dir(fs)
- If fb <> "" Then
- a.Offset(, 1) = "OK"
- With Workbooks.Open(fd & fb)
- Set sh = .Sheets(1)
- ReDim Preserve sht(s) '°O¦í©Ò¦³¤u§@ªí¦WºÙ
- sht(s) = sh.Name
- s = s + 1
- sh.Copy after:=ThisWorkbook.Sheets(1) '½Æ»s¤u§@ªí
- .Close 0 'Ãö³¬ÀÉ®×
- End With
- End If
- Next
- Sheets(sht).Move '²¾°Ê©Ò¦³½Æ»sªº¤u§@ªí¨ì·sÀÉ®×
- Application.ScreenUpdating = True '«ì´_¿Ã¹õ§ó·s
- End Sub
½Æ»s¥N½X |
|