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

[µo°Ý] ¼È¥ý¤£¸Ñ¨M¤F,½Ð²¾°£,ÁÂ

[µo°Ý] ¼È¥ý¤£¸Ñ¨M¤F,½Ð²¾°£,ÁÂ

¥»©«³Ì«á¥Ñ vpower ©ó 2011-6-29 16:50 ½s¿è

¼È¥ý¤£¸Ñ¨M¤F,½Ð²¾°£,ÁÂ

¦^´_ 1# vpower


        .SaveAs ThisWorkbook.Path & "\" & TextBox1 & ".xls" '¦¹¦æ¬° ±Ntextbox1ªº¦WºÙÀx¦s¦¨ÀɮפΠ¬¡­¶Ã¯¦WºÙ ¨Ã±N¨äÂà´«¦¨2003ª©¥»
         .SaveAs ThisWorkbook.Path & "\" & TextBox1      '¦¹¦æ¬° ¬°office 2007¹w³]®æ¦¡«¬ºA(.xlsx)

TOP

ActiveWorkbook.RemovePersonalInformation = False
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ vpower ©ó 2011-6-29 16:50 ½s¿è

¼È¥ý¤£¸Ñ¨M¤F,½Ð²¾°£,ÁÂ

TOP

¤j¤j±z¦n,¤£¤Ó²M·¡±zªº·N«ä,TextBox¬O¦Û¤v·s¼W¤@­Ó¥i¥H¿é¤JªºªÅ¶¡´Î¨ººØ¶Ü?ÁÙ¬O?
ÁÙ¬O»¡¤@­Ó¬O¦s ...
vpower µoªí©ó 2011-6-13 23:14



    ³o¦æ¬O»¡   ±NÀɮצWºÙ(´N¬O textboxªº¤º®e)Àx¦s¦¨ 2003ª©¥»(.xls) ©Î2007ª©¥»(.xlsx)   ¤èªk¬O¥Ñ Hª©¤j©Ò´£¨Ñ )
©ÎªÌ ¼Ó¥D¤]¥i¥H¥ÎHª©¤j¶Kªº¨º¦æ¸ÕÅç

TOP

¥»©«³Ì«á¥Ñ vpower ©ó 2011-6-29 16:50 ½s¿è

¼È¥ý¤£¸Ñ¨M¤F,½Ð²¾°£,ÁÂ

TOP

¥»©«³Ì«á¥Ñ mark15jill ©ó 2011-6-14 08:42 ½s¿è

¦^´_ 6# vpower
¼Ó¥D §Aofficeª©¥»¬O»¡¤Ö??
·|¥X²{¨º­Ó°T®§ ³q±`¬O 2007 ¨S¦³¿ï¾Ü Àx¦s¬° §t¦³¥¨¶° ¤~·|¦³¨º­Óµe­±
¦pªG¦s¦¨ 2003ª©¥» ´N¤£·|¥X²{(¦Ü¤Ö§Ú¨S¥X²{ = =!! )

³o­Óµ{¦¡½X »Ý­n¤¸¥ó¦³ TEXTBOX ©M  OPTIONBUTTON  C0MMANDBUTTON


¥H¤U¬O§Úªº¦sÀÉ¥\¯à«ö¶sªºµ{¦¡½X ¬Ý¬Ý§a... (¸ê®Æ¨Ó·½¬° Hsieh ªO¤j ¥t¸g¤p­×§ï)
  1. Private Sub CommandButton2_Click()

  2. '¦¹°Ï¬°¦sÀÉ¥\¯àªºµ{¦¡½X

  3.     Dim Sh As Object

  4.     On Error Resume Next
  5. Application.ScreenUpdating = False
  6.     Set Sh = ThisWorkbook.Sheets(1)

  7.    
  8.     With Workbooks.Add(xlWBATWorksheet)
  9.           Sheets("sheet1").Select
  10.           Sheets("sheet1").Name = TextBox1
  11.           Sh.UsedRange.Offset(1).Copy .Sheets(1).[A1]
  12.             
  13.            Application.ScreenUpdating = True
  14.         If OptionButton6.Value = True Then   '³o¬O§Ú¥t¥~±±¨îªº³¡¤À(¦pªG¿ï¶µ6= ®Ö¿ï «h°õ¦æ¤U¦Cµ{¦¡½X  §_«h °õ¦æ else ¤U­±ªºµ{¦¡½X)
  15.          .SaveAs ThisWorkbook.Path & "\" & ÅÜ & ".xls"  '¦¹¦æ¬° ±Ntextbox1ªº¦WºÙÀx¦s¦¨ÀɮפΠ¬¡­¶Ã¯¦WºÙ ¨Ã±N¨äÂà´«¦¨2003ª©¥»
  16.          .SaveAs ThisWorkbook.Path & "\" & ÅÜ  '¦pªG·|¥X²{¨º­Óµe­±  §â³o¦æ²¾°£
  17.         
  18.         Else
  19.          .SaveAs ThisWorkbook.Path & "\" & TextBox1 & ".xls" '¦¹¦æ¬° ±Ntextbox1ªº¦WºÙÀx¦s¦¨ÀɮפΠ¬¡­¶Ã¯¦WºÙ ¨Ã±N¨äÂà´«¦¨2003ª©¥»
  20.          .SaveAs ThisWorkbook.Path & "\" & TextBox1 '¦pªG·|¥X²{¨º­Óµe­±  §â³o¦æ²¾°£
  21.         End If
  22.         .Close 0

  23.     End With

  24. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD