- ©«¤l
- 560
- ¥DÃD
- 159
- ºëµØ
- 0
- ¿n¤À
- 723
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2014-9-10
- ³Ì«áµn¿ý
- 2023-10-31
|
[µo°Ý] ¸ê®Æ§¨¤ºALL EXCEL ·J¾ã¤è¦¡½Ð±Ð
DEAR ALL ¤j¤j
1.¦p¤Uµ{¦¡½X¬°«e½ú°w¹ï«ü©w¸ê®Æ§¨ALL-EXCEL¦Û°Ê·J¾ã¦ÜÁ`ªí¤è¦¡(¦h¤u§@ªí)-¤u§@ªí¦WºÙ¬Û¦P-ªÅ¥Õ¤u§@ªí¤£¤©COPY
2.½Ð±Ð«eÃD¬O ¨C¤@ EXCEL ¤§®æ¦¡³£¬Û¦P ¦p¦ó«ü©w¸ê®Æ§¨ALL-EXCEL¦Û°Ê·J¾ã¦ÜÁ`ªí¤è¦¡(³æ¤@EXCEL)-¤u§@ªí¦WºÙ¬Û¦P-ªÅ¥Õ¤u§@ªí¤£¤©COPY
2.1 ´N¬O ¸ê®Æ§¨ ALL EXCEL ¤º¤§ SHEETS ¤§®æ¦¡³£¬Û¦P.n±N¸ê®Æ·J¾ã¦P¤@ EXCEL ¤§¦P¤@ SHEETS («Ø¥ß¸ê®Æ®wÁ`ªí)
2.2 ·Ð¤£§[½ç±Ð THANKS*10000
Sub yy()
Dim a As Workbook, f$
Dim p$, sh As Worksheet
Set a = ThisWorkbook
p = "C:\AAA\"
f = Dir(p & "*.xls")
Application.ScreenUpdating = False
Do While f <> ""
Workbooks.Open p & f
For Each sh In Worksheets
X = WorksheetFunction.CountA(sh.Range("a1:iv65536"))
Y = ActiveWorkbook.Name
If X <> 0 Then
sh.Copy after:=a.Sheets(a.Sheets.Count)
End If
Next
Windows(f).Close True
f = Dir
Loop
Application.ScreenUpdating = True
Sheet1.Select
Range("A1").Select
End Sub |
|