[µo°Ý] ¦³Ãö©ó¥t¦s·sÀɪº°ÝÃD

a703130

§Ú·Q½Ð°Ý¦U¦ì«e½ú
·í§Ú¥t¦s·sÀɤ§«á¡A¥Ø«eªº¤u§@µøµ¡´N·|¬O¥t¦s¤§«áªºµøµ¡
  
§Ú­n¦p¦ó¦b­I´º¥t¦sÀɮצӤu§@«Çµ¡¤´¬O­ì¥»¨º­Ó??

Á|¨Ò¡G
¤U­±¬O§Úµ{¦¡½X

1. Sub Save_As_ABC()  
   
2.     ChDir ActiveWorkbook.Path
   
3.     ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\ABC.abc", _
   
4.         FileFormat:=xlTextPrinter, Password:="", WriteResPassword:="", _
   
5.         ReadOnlyRecommended:=False, CreateBackup:=False

½Æ»s¥N½X

§Ú¦b Test.xls ¥t¦s¤@­Ó ABC.abc
  ¦sÀɧ¹¡A§Úªº½s¿èµøµ¡«K¬O ABC.abc
  §Ú§Æ±æ½s¿èµøµ¡¤´¬O Test.xls

GBKEE

¦^´_ 1# a703130
VBAªº»¡©ú:
SaveCopyAs ¤èªk
½Ð°Ñ¾\®M¥Î¦Ü½d¨Ò¯S©w±N«ü©w¬¡­¶Ã¯ªº³Æ¥÷Àx¦s¨ìÀɮסA¦ý¤£Åܧó°O¾ÐÅ餤¤w¶}±Òªº¬¡­¶Ã¯¡C
expression.SaveCopyAs(Filename)
expression     ¥²¿ï¡C¶Ç¦^ Workbook ª«¥óªº¹Bºâ¦¡¡C
Filename     ¥²¿ï¡C«ü©w³Æ¥÷ªºÀɮצWºÙ¡C
½d¨Ò
¦¹½d¨ÒÀx¦s¥Ø«e¬¡­¶Ã¯ªº°Æ¥»¡C
ActiveWorkbook.SaveCopyAs "C:\TEMP\XXXX.XLS"

a703130

¦^´_ 2# GBKEE

  ½Ð°ÝG¤j¡A­Y§Ú¨Ï¥ÎSaveCopyAS §Ú«K¤£¯à³]©w¦sÀÉÃþ«¬(FileFormat)¤F
  ¬O§_¦³¨ä¥L¤è¦¡¯à°÷¸Ñ¨M??

kimbal

¦^´_ 3# a703130

saveas «á­«·s¶}¥X¨Ó

   Dim strCurrPath As String, strCurrBook As String
    strCurrPath = ThisWorkbook.Path
    strCurrBook = strCurrPath & "\" & ThisWorkbook.Name
   
    ThisWorkbook.Save '¥ý¦Û¦æSAVE1¦¸
    ActiveWorkbook.SaveAs Filename:=strCurrPath & "\ABC.abc", _
        FileFormat:=xlTextPrinter, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Workbooks.Open (strCurrBook)
    ThisWorkbook.Close (False)

a703130

¦^´_ 4# kimbal


    ÁÂÁÂK¤j
    ³o¤]ºâ¬O¥t¤@ºØ¸Ñ¨M¤èªk
    ¤p§Ì¨ü±Ð¤F