ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

²¾°Ê®ÄªG¤u§@ªí¨Ã¦¨¬°¤@­Ó³æ¿Wªº®ÄªGÀÉ®×

²¾°Ê®ÄªG¤u§@ªí¨Ã¦¨¬°¤@­Ó³æ¿Wªº®ÄªGÀÉ®×

²¾°Ê®ÄªG¤u§@ªí.rar (178.2 KB)
½Ð°Ý¦U¦ì¤j¤j¡J
±N²£¥Íªº®ÄªG¤u§@ªí²¾°Ê¡A¨Ã¦¨¬°¤@­Ó³æ¿Wªº®ÄªGÀÉ®×¥B³o­Ó®ÄªGÀɮתº¦WºÙ="Á`ªí"ªºªº»yªk¡C
ÁÂÁ¦U¦ì!

¦^´_ 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

TOP

¥»©«³Ì«á¥Ñ papaya ©ó 2019-3-20 14:39 ½s¿è

¦^´_ 2# jcchiang
J¤j:
´ú¸Õ¨S¦³¦¨¥\~



¥i§_½Ð±z°µ­Ó½d¨ÒÀɨѰÑ~ÁÂÁ±z!

PS:
1_®ÄªGÀɮפ]¬O¿é¥X¦b¦P¤@­Ó¸ê®Æ§¨¤º¡C
2_ª©¥»¬°Excel 2003

TOP

¦^´_ 1# papaya
½Ð±Ð­n¦p¦ó­×¥¿¤U¦Cªºµ{¦¡½X¤~¬O¥¿½Tªº?ÁÂÁÂ!

½Æ»s¤u§@ªí_VBA-2.rar (65.16 KB)

TOP

¦^´_ 4# papaya

³o¬O¾ã­Óµ{¦¡
1.­ì¥ý¬O­n¦¨¬°¤@­Ó³æ¿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

TOP

¦^´_ 5# jcchiang
J¤j:±z¦n!
´ú¸ÕOK¤F~·PÁ±z^^

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD