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

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

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

§Ú·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

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

TOP

¦^´_ 2# GBKEE

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

TOP

¦^´_ 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)
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¦^´_ 4# kimbal


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

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD