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

[µo°Ý] ½Ð°Ý¦p¦ó±N«ü©wªº¤u§@ªí!¥t¦s¦¨¤@­Ó·sªº¬¡­¶Ã¯(.xlsÀÉ)!

[µo°Ý] ½Ð°Ý¦p¦ó±N«ü©wªº¤u§@ªí!¥t¦s¦¨¤@­Ó·sªº¬¡­¶Ã¯(.xlsÀÉ)!

¥»©«³Ì«á¥Ñ ´Ñ»y³¾»ï ©ó 2011-11-12 14:06 ½s¿è

½Ð°Ý¦p¦ó§Q¥Îvba·s¼W¤@­Ó.xlsÀÉ¡A¨Ã©ñ¤J«ü©w°Ï°ì(B2)¡AÅý·s¼WªºÀɮצWºÙ¬°B1ªº¤å¦r!³Ì«á±N¦¹sheetªº¤º®e»P¤u§@ªí¦WºÙ©ñ¤J!(À³¸Ó»¡±N¦¹SHEETªº¤º®e¥t¦s¦Ü·sªº¬¡­¶Ã¯¤¤)
¨Ò:©óC:\¤U²£¥Í¤@­Ó"´ú¸ÕA.xls"¡A¨Ã±N¦¹¤u§@ªí»P ´ú¸Õ.rar (12.81 KB) ¤º®e©ñ¤J!

¦^´_ 1# ´Ñ»y³¾»ï
  1. Sub Ex()
  2.     With ActiveWorkbook      '§@¥Î¤¤ªº¬¡­¶Ã¯
  3.         'ThisWorkbook        'µ{¦¡½X©Ò¦bªº¬¡­¶Ã¯
  4.         'WorkbookS(1)        '«ü©w ¶}±Ò¬¡­¶Ã¯¤¤ªº¯Á¤Þ­È
  5.         'WorkbookS("Test")   '«ü©ú¶}±Ò¬¡­¶Ã¯¤¤ªº¦WºÙ
  6.         .SaveCopyAs Sheets(1).[B2] & Sheets(1).[B1] & "." & Split(.Name, ".")(1)
  7.         '.SaveCopyAs   ¥t¦s·sÀɪº¤èªk
  8.         'Split(.Name, ".")(1) ->¶Ç¦^¬¡­¶Ã¯ªº°ÆÀɦW
  9.     End With
  10. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ ´Ñ»y³¾»ï ©ó 2011-11-12 18:13 ½s¿è

¦^´_ 2# GBKEE
½Ð°Ý"GBKEE"¤j¤j¡A
1.¦p¦ó­×§ï¦¹¥¨¶°¡AÅý¥¦¥u¥t¦s«ü©wªºsheet(³æ¤@­Ósheet)´N¦n¡A¦Ó¤£­n¾ã­ÓÀɮ׳£¹L¥h(¥¨¶°¤]¤£­n¹L¥h)!
2.¦p¦ó±N¦¹ÀÉ®×Åܦ¨2003ªº.xls®æ¦¡?

TOP

¦^´_ 3# ´Ñ»y³¾»ï
  1. Option Explicit
  2. Sub Ex()
  3.     Dim E As Object
  4.     ActiveWorkbook.Sheets(1).Copy     '½Æ»sSheets(1) ¤@±i¤u§@ªí¨ì·sªº¬¡­¶Ã¯
  5.     With ActiveWorkbook               '½Æ»s«áªº·s¬¡­¶Ã¯¬O  **§@¥Î¤¤ªº¬¡­¶Ã¯**
  6.         For Each E In .VBProject.VBComponents                       '¬¡­¶Ã¯±M®×¤¤¤¸¥óªº¶°¦Xª«¥ó
  7.             E.CodeModule.DeleteLines 1, E.CodeModule.CountOfLines   '§R°£©Ò¦³ªºµ{¦¡½X
  8.         Next
  9.         .SaveCopyAs .Sheets(1).[B2] & .Sheets(1).[B1] & "." & Split(.Name, ".")(1)
  10.         .Close False                  'Ãö³¬ÀÉ®× (¤£¦sÀÉ)
  11.     End With
  12. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# GBKEE
³o¥y¤£ª¾­þ¸Ì¥X¿ù==>For Each E In .VBProject.VBComponents                       '¬¡­¶Ã¯±M®×¤¤¤¸¥óªº¶°¦Xª«¥ó
¥X²{¿ù»~1004:
¤£«H¥ô¥Hµ{¦¡³]­p¤è¦¡¦s¨úvisual Basic±M®×

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2011-11-13 00:11 ½s¿è

¦^´_ 5# ´Ñ»y³¾»ï
¦]¬°§Úªº¬O Excel 2003 ¬ÛÃö³]©wªºµe­±¬O©³¤U³o¼Ë :

«H¥ô¦s¨ú Visual Basic ±M®×

«H¥ô¦s¨ú Visual Basic ±M®×

«H¥ô¦s¨ú Visual Basic ±M®×(V).JPG
2011-11-13 00:09


¦Ü©ó§Aªº Excel 2007 µe­±»P¦ì¸m¥i¯à¦³©Ò¤£¦P,
½Ð°Ñ¾\©³¤U³o¤@½g¤å³¹ªº¤º®e:

½Ð°Ý¦p¦óÃö±¼EXCEL 2007 "³]­p¼Ò¦¡"?


§ä§ä¬Ý¬O§_¬O§A¥Ø«eªº³]©wªý¾×¤Fµ{¦¡ªº°õ¦æ.

½Ð¯d·N :
¤£¬O­n§A·ÓµÛ¥Lªº¤è¦¡³]©w,
¦Ó¬O§Æ±æ§A¯à§ä§ä¬Ý§Aªº¹q¸£¤W¦b¨º­Óµøµ¡¸Ì­±, (³£§ä§ä¬Ý, ¤×¨ä¬O "«H¥ô¤¤¤ß" ¨º­Ó­¶­±¤º)
¬O§_¦³»Ý­n§A°µ¶}©ñ©Î½Õ¾ãªº³]©w¶µ¥Ø.

TOP

²{¦bÅܦ¨³o¬q==>.SaveCopyAs .Sheets(1).[B2] & .Sheets(1).[B1] & "." & Split(.Name, ".")(1)
°}¦C¯Á¤Þ¶W¥X½d³ò!

TOP

¦^´_ 7# ´Ñ»y³¾»ï
  1. Sub Ex()
  2.     Dim Bo As Workbook, E As Object, S As String
  3.     Set Bo = ActiveWorkbook
  4.     Bo.Sheets(1).Copy     '½Æ»sSheets(1) ¤@±i¤u§@ªí¨ì·sªº¬¡­¶Ã¯
  5.     With ActiveWorkbook               '½Æ»s«áªº·s¬¡­¶Ã¯¬O  **§@¥Î¤¤ªº¬¡­¶Ã¯**
  6.         For Each E In .VBProject.VBComponents                       '¬¡­¶Ã¯±M®×¤¤¤¸¥óªº¶°¦Xª«¥ó
  7.             E.CodeModule.DeleteLines 1, E.CodeModule.CountOfLines   '§R°£©Ò¦³ªºµ{¦¡½X
  8.         Next
  9.         .SaveCopyAs .Sheets(1).[B2] & .Sheets(1).[B1] & "." & IIf(Bo.Path <> "", Split(Bo.Name, ".")(1), "xls")
  10.         .Close False                  'Ãö³¬ÀÉ®× (¤£¦sÀÉ)
  11.     End With
  12. End Sub
½Æ»s¥N½X

TOP

¦^´_ 8# GBKEE
ªO¤j:¤£¦n·N«ä¡A¤S­n³Â·Ð±z­×§ï¤F!
1.²{¦b¥i¥HÂà¥XÀɮפF!¤£¹L~Âà¥X¨Ó®æÀɮ׮榡¤£¹ï(ÀÉ®×»P¤@¶}©lªº®æ¦¡¤@¼Ë¡A¥B¤£¯à¶}±Ò¡A­n¦Û¦æ§ï¦¨.xls¤~¯à¶}±Ò)
2.½Ð°Ý¦pªG§Ú­nÂà¥Xªºsheet¬°sheet2­n¦p¦ó­×§ï¨ä¥¨¶°¡AÀɦW©M¸ô®|ÁÙ¬O¦bsheet1!

TOP

¦^´_ 9# ´Ñ»y³¾»ï
  1. Sub Ex()
  2.     Dim Bo As Workbook, Save_Name  As String, E As Object
  3.     With ActiveWorkbook             '***  ­n½Æ»sªº¬¡­¶Ã¯ ***
  4.                                     'ActiveWorkbook      '§@¥Î¤¤ªº¬¡­¶Ã¯
  5.                                     'ThisWorkbook        'µ{¦¡½X©Ò¦bªº¬¡­¶Ã¯
  6.                                     'WorkbookS(1)        '«ü©w ¶}±Ò¬¡­¶Ã¯¤¤ªº¯Á¤Þ­È
  7.                                     'WorkbookS("Test")   '«ü©ú¶}±Ò¬¡­¶Ã¯¤¤ªº¦WºÙ'
  8.         Save_Name = .Sheets(1).[B2] & .Sheets(1).[B1] & ".xls"
  9.         .Sheets("¤u§@ªí¦WºÙ").Copy     '«ü©w½Æ»s¤@±i¤u§@ªí¨ì·sªº¬¡­¶Ã¯
  10.     End With
  11.     With ActiveWorkbook               '½Æ»s«áªº·s¬¡­¶Ã¯¬O  **§@¥Î¤¤ªº¬¡­¶Ã¯**
  12.         For Each E In .VBProject.VBComponents                       '¬¡­¶Ã¯±M®×¤¤¤¸¥óªº¶°¦Xª«¥ó
  13.             E.CodeModule.DeleteLines 1, E.CodeModule.CountOfLines   '§R°£©Ò¦³ªºµ{¦¡½X
  14.         Next
  15.         .SaveCopyAs Save_Name
  16.         .Close False                  'Ãö³¬ÀÉ®× (¤£¦sÀÉ)
  17.     End With
  18. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD