GBKEE

¦^´_ 1# freeffly
Sheet1.Name = Format(Date, "mmdd")

GBKEE

¦^´_ 5# freeffly
Sheet1.Name = Format(Date, "mmdd")&"¸ê®Æ"   ¬O«ü©w¤u§@ªí¦WºÙ
­n·s¼W¤u§@ªí¦p¤U

1. Sub Ex()
   
2.     With Sheets.Add   '·s¼W¤u§@ªí
   
3.         .Name = Format(Date, "mmdd") & "¸ê®Æ"
   
4.     End With
   
5. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# freeffly
sheets.add.name="0322¸ê®Æ"   »yªk¿ù»~
¥Î WITH  ¬O«K©ó³B¸Ì  WITH ª«¥óªºÄÝ©Ê, ¤èªk.
Sub Ex()
    With Sheets.Add
        .Name = "0322¸ê®Æ"
        .Range("A1:C1") = Array(1, 2, 3)
        .Range("A1:C1").Select
     End With
End Sub
¦P¤W
Sub Ex()
    Sheets.Add
    ActiveSheet.Name = "0322¸ê®Æ"
    ActiveSheet.Range("A1:C1") = Array(1, 2, 3)
    ActiveSheet.Range("A1:C1").Select
End Sub

GBKEE

¦^´_ 10# diabo
sheets.add.name="0322¸ê®Æ"   ¯uªº¥i¥H, §Aµ¹§Ú¤W¤F¤@½Ò ÁÂÁ§A.
vba ªº»yªk »¡©ú
«Ø¥ß·s¤u§@ªí¡B¹Ïªí©Î¥¨¶°¤u§@ªí¡C¸Ó¤u§@ªí±N¦¨¬°¨Ï¥Î¤¤¤u§@ªí¡C
expression.Add(Before, After, Count, Type)
expression     ¥²¿ï¡C¸Ó¹Bºâ©Î·|¶Ç¦^¤W­z¨ä¤¤¤@­Óª«¥ó¡C
Before     ¿ï¾Ü©Êªº Variant¡C¦b·s¤u§@ªí³Q·s¼W¤§«e«ü©w¤u§@ªíªºª«¥ó¡C
After     ¿ï¾Ü©Êªº Variant¡C¦b·s¤u§@ªí³Q·s¼W¤§«á«ü©w¤u§@ªíªºª«¥ó¡C
Count     ¿ï¾Ü©Êªº Variant¡C­n·s¼Wªº¤u§@ªí¼Æ¥Ø¡C¹w³]­È¬°¤@¡C
Type     ¿ï¾Ü©Êªº Variant¡C«ü©w¤u§@ªíÃþ«¬¡C¥i¬°¤U¦C XlSheetType ±`¼Æ¤§¤@¡GxlWorksheet¡BxlChart¡BxlExcel4MacroSheet ©Î xlExcel4IntlMacroSheet¡C¦pªG±z®Ú¾Ú²{¦sªº½d¥»´¡¤J¤u§@ªí¡A½Ð«ü©w¸ô®|µ¹¸Ó½d¥»¡C¹w³]­È¬° xlWorksheet¡C