- ©«¤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°Ý] 2003ª©µ{¦¡©ó2007ª©EXCELµLªk°õ¦æ
DEAR ALL ¤j¤j
1 ¦pªí¤@µ{¦¡©ó2003 EXCEL®Ñ¼g«á©ó2003 °õ¦æ§¡µL°ÝÃD ,¦P¨Æ¸g¿ì¹q¸£¬°2007ª©¥»°õ¦æ«á²£¥Í¦p¤UBUG -
1.1°õ¦æ«á¥X²{ "EXCELµLªk±N¤u§@ªí´¡¤J¥Øªº¦a¬¡·~ï,¦]¬°¥¦¥]§tªº¦C»PÄæ¤ñ¨Ó·½¬¡¶Ã¯¤Ö,Yn²¾°Ê©ÎÂлs¸ê®Æ¨ì¥Øªº¦a¬¡¶Ã¯,¥i¥H¿ï¨ú¸ê®Æ,µM«á¨Ï¥Î
"Âлs"»P"¶K¤W"©R¥t±N¥L´¡¤J¥t¤@Ó¬¡¶Ã¯ªº¤u§@ªí"
1.2 µ{¦¡²§±`³B°±©ó Sh.Copy after:=a.Sheets(a.Sheets.Count) ¦¹³B.
2½Ð±Ð¦U¦ì¥ý¶i ªí¤@ ¦p¦óקï¤èµL¦¹ BUG.
2.1 ·Ð¤£§[½ç±Ð THANKS *10000
ªí¤@
Sub yy()
Dim a As Workbook, f$, fn$, k%
Dim p$, Sh As Worksheet
Set a = ThisWorkbook
p = "C:\AAA\"
f = Dir(p & "*.CSV")
Application.ScreenUpdating = False
Do While f <> ""
Workbooks.Open p & f
k = 0
For Each Sh In Worksheets
If Not IsEmpty(Sh.UsedRange) Then
fn = IIf(k = 0, Replace(f, ".xls", ""), Replace(f, ".xls", "_") & k)
Sh.Copy after:=a.Sheets(a.Sheets.Count)
ActiveSheet.Name = fn
k = k + 1
End If
Next
Windows(f).Close True
f = Dir
Loop
Application.ScreenUpdating = True
Sheet14.Select
Range("A1").Select
End Sub |
|