²¾°Ê®ÄªG¤u§@ªí¨Ã¦¨¬°¤@Ó³æ¿Wªº®ÄªGÀÉ®×
- ©«¤l
- 234
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 276
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-1-7
- ³Ì«áµn¿ý
- 2021-10-7
|
¦^´_ 1# papaya
½Ð¸Õ¸Õ
Application.DisplayAlerts = False
Sheets("A").Delete
Sheets("Á`ªí").Delete
ActiveWorkbook.SaveAs Filename:="C:\²¾°Ê®ÄªG¤u§@ªí\Á`ªí.xls", _
FileFormat:=xlExcel8, CreateBackup:=False '³o¬O¿é¥X¦ì¸m©MÀɮצWºÙªº¦a¤è
Workbooks("Á`ªí.xls").Close savechanges:=True
Application.DisplayAlerts = True |
|
|
|
|
|
|
- ©«¤l
- 234
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 276
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-1-7
- ³Ì«áµn¿ý
- 2021-10-7
|
¦^´_ 4# papaya
³o¬O¾ãÓµ{¦¡
1.ì¥ý¬On¦¨¬°¤@Ó³æ¿Wªº®ÄªGÀÉ®×,©Ò¥H¥t¥~Àx¦s¬°"Á`ªí"
2.c:\²¾°Ê®ÄªG¤u§@ªí\Á`ªí.xls-->½Ð¦Û¦æ§ï¬°nÀx¦sªº¸ô®|,§ÚµLªk±oª¾§Aªº¸ê®Æ§¨ªº¦WºÙ
3.ºô¸ô¨îµLªk¤W¶ÇÀÉ®×,©Ò¥HµLªk´£¨Ñ,¤£¦n·N«ä
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
For i = 1 To 49
Sheets("Á`ªí").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Á`ªí" & Format(i, "00")
Next i
'½Ð°Ý:²¾°Ê®ÄªG¤u§@ªí,¨Ã¦¨¬°¤@Ó³æ¿Wªº®ÄªGÀÉ®×¥B³oӮĪGÀɮתº¦WºÙ="Á`ªí"ªºªº»yªk¡CÁÂÁÂ!
Application.DisplayAlerts = False
Sheets("A").Delete
Sheets("Á`ªí").Delete
ActiveWorkbook.SaveAs Filename:="c:\²¾°Ê®ÄªG¤u§@ªí\Á`ªí.xls", _
FileFormat:=xlExcel8, CreateBackup:=False '³o¬O¿é¥X¦ì¸m©MÀɮצWºÙªº¦a¤è
Workbooks("Á`ªí.xls").Close savechanges:=True
Application.DisplayAlerts = True
End Sub |
|
|
|
|
|
|