- ©«¤l
- 215
- ¥DÃD
- 70
- ºëµØ
- 0
- ¿n¤À
- 290
- ÂI¦W
- 0
- §@·~¨t²Î
- window xp
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2012-6-27
- ³Ì«áµn¿ý
- 2024-1-29
|
½Ð°Ý§Ú¹B¦æ³oÓVBA, ¦³30ÓSHEETS, ¦ý¹BÂà¤F5¤ÀÄÁÁÙ¨S¦³°±¹y, ¬O¦³¬Æ»ò¿ù»~©O? ¤S¦p¦ó¥H¥H¦b§¹¦¨¦sÀÉ«á¦Û°ÊÃö³¬ÀÉ®×?
½Ð½ç±Ð!
Sub Splitbook()
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
xWs.Copy
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xls"
Application.ActiveWorkbook.Close True
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub |
|