¥t¦s·sÀÉ°ÝÃD

enoch

¨Ï¥Î ActiveWorkbook.SaveAs Filename:=newfilename ¥t¦s·sÀÉ®É
­YÀɮפw¦s¦b, ·|¥X²{ĵ§iµøµ¡, ¬O§_¨ú¥N²{¦³ÀÉ®×
·í¿ï¾Ü¤£¨ú¥N²{¦³ÀÉ®×, §Y¥X²{¿ù»~

½Ð°ÝÀ³¦p¦ó­×§ïµ{¦¡, ¥i¿ï¾Ü¨ú®ø¤£Àx¦s, ©Î§ó§ïÀɮצWºÙ¥t¦s·sÀÉ

¥t¥~, ­Y·Qª½±µ¨ú¥NÂÂÀÉ®×,  ¤£Åã¥Üĵ§i, ¤SÀ³¸Ó¦p¦ó

½Ð«ü±Ð

kimbal

§ä¥XÀɮ׬O¤£¬O¤w¸g¦s¦b,¦s¦bªº¸Ü,§âÀɦW¥[¤W®É¶¡¦s°_¨Ó. (¨Ò¦pc:\abc20120628133801.xls)

1. Dim strExist As String
   
2. dim strFolder as string
   
3. dim strFilename as string
   
4. strFolder = "c:\"
   
5. strFilename="abc"
   
6. strExist = Dir(strFolder & strFilename & ".xls")
   
7. If strExist = "" Then
   
8.    ActiveWorkbook.SaveAs Filename:=strFolder & newfilename & ".xls"
   
9. else
   
10.    ActiveWorkbook.SaveAs Filename:=strFolder & newfilename & format(now(),"yyyymmddhhmmss") & ".xls"
    
11. End If

½Æ»s¥N½X

ª½±µ¨ú¥N (§â´£¥Ü°±±¼)

1. application.displayalerts=false
   
2. ActiveWorkbook.SaveAs Filename:=newfilename
   
3. application.displayalerts=true

½Æ»s¥N½X

enoch

ÁÂÁ kimbal «ü±Ð, §Ú¸Õ¨ì¥t¥~¤èªk, ·Q¤À¨É¤@¤U



On Error Resume Next
ActiveWorkbook.SaveAs Filename:="book1"

If Err <> 0 Then '¨ú®ø¥t¦s·sÀÉ®ÉÅã¥Ü
Application.Dialogs(xlDialogSaveAs).Show

GBKEE

¦^´_ 3# enoch
On Error Resume Next  °£«D½T©w¿ù»~ÂI¥i©¿²¤ ,§_«h¤£»´©ö¨Ï¥Î

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim xlMsg As String, Newfilename As String, xlSave As Integer
   
4.     Newfilename = "D:\TEST.XLS"
   
5.     xlMsg = IIf(Dir(Newfilename) <> "", "Âл\ÀÉ®×", "Àx¦sÀÉ®×")
   
6.     xlSave = MsgBox(Newfilename & Chr(10) & xlMsg & ":¬O(Y), ¥t¦sÀÉ®×:§_(N),¤£¦sÀÉ®×:¨ú®ø", vbYesNoCancel)
   
7.     'xlSave ¶Ç¦^ vbYes, vbNo , vbCancel ¤T¿ï¤@
   
8.     Application.DisplayAlerts = False
   
9.     If xlSave = vbYes Then
   
10.         ActiveWorkbook.SaveAs Filename:=Newfilename
    
11.     ElseIf xlSave = vbNo Then
    
12.         With Application.FileDialog(msoFileDialogSaveAs)
    
13.             .InitialFileName = Newfilename
    
14.             If .Show = -1 Then ActiveWorkbook.SaveAs Filename:=.SelectedItems(1)
    
15.         End With
    
16.     End If
    
17.     Application.DisplayAlerts = True
    
18. End Sub

½Æ»s¥N½X

enoch

¦hÁÂGBKEE , ¯uªº±Ð¤F§Ú«Ü¦h

Application.FileDialog ¤ñ Application.Dialogs
§ó¥[¦n¥Î, ¥i¥H¥[¤W¤Þ¼Æ, ¹w¥ý³]©wÀɮצWºÙµ¥¸ê®Æ

¦]¬°¦³®É·Q¤£¨ì¨ä¥¦¤èªk,  ¤~·|¥Î
On Error Resume Next

­Y¥Î§¹¤§«á§Y®É¥[¤W
On error goto 0  ¥i¥H¶Ü


¸Õ§¹µ{¹L, ¦ý¦³¤Ö¤Ö°ÝÃD·Q¦A½Ð±Ð
¦p¦ó±±¨î¬OOFFICE 03 ".XLS" ÀɮשO?
¦]¬°µ{¦¡¥i¯à¦b¤£¦PEXCELª©¥»¤¤¨Ï¥Î
ÁöµM©úºÙ¬OTEST.XLS , ¦ýÀÉ®×Ãþ«¬³£¥i¯àÂà¤F¨ä¥¦ª©¥»

GBKEE

¦^´_ 5# enoch
µ{¦¡¤W ¬O¥i¥H¦p¦¹ªº

enoch

¦ý¸Õ¹L­Y°õ¦æµ{¦¡«e, §ó§ï¹LÀx¦sÀɮתºÃþ«¬,
¨Ò¦p¤§«e°õ¦æ¹LÀÉ®×>>¥t¦s·sÀÉ>>¿ï¾Ü¦sÀÉÃþ«¬¬°".CSV"
°õ¦æµ{¦¡®É´NºâÀɮ׫᭱¬O".XLS" §À, ³£·|§ó§ï¤F".CSV"

sillykin

¦^´_ 4# GBKEE


    ¤£¦n·N«ä¯à½Ð°Ý
¢Ï¬O­ìÀɮסA¦b³o¢ÏÀɮפ¤°õ¦æ¡y¥t¦s·sÀÉ¡z¡A²£¥Í¢ÐÀɮסD¡D¥H¦¹Ãþ±À¡D¡D
­n°Ýªº°ÝÃD¬O¡G¦b¢ÏÀÉ®×¥t¦s·sÀÉ«á(²£¥Í¢±ÀÉ®×)¡A¯à°±¯d¦b¢ÏÀɮ׶ܡH¡]¦]¨C¦¸¡y¥t¦s·sÀÉ¡z«á¡A¤u§@§¡°±¯d¦b¨C¦¸²£¥Í·sÀɮס^­n¦p¦ó°±¯d¦b¢Ïªº­ìÀɮשO¡H¡H

GBKEE

¦^´_ 8# sillykin

1. SaveCopyAs ¤èªk  ±N«ü©w¬¡­¶Ã¯ªº³Æ¥÷Àx¦s¨ìÀɮסA¦ý¤£Åܧó°O¾ÐÅ餤¤w¶}±Òªº¬¡­¶Ã¯¡C

½Æ»s¥N½X

1. Sub Ex()
   
2.     With ThisWorkbook
   
3.        .SaveCopyAs .Path & "\test.xls"   '
   
4.     End With
   
5. End Sub

½Æ»s¥N½X

sillykin

Dim xPath As String
Dim Arr As Variant

Arr = Array("¥Ó½Ð®Ñ", "«´¬ù®Ñ")
Sheets(Arr).Copy

ActiveWorkbook.SaveCopyAs Filename:= _
      "C:\" & TextBox1 & "(" & (Year(Date) & Month(Date)) & Day(Date) & ")" & "(" & TextBox2 & ")" & ".xlsm"
ActiveWorkbook.Close


       Unload Me
·Q½Ð°Ý¬°¦ó°õ¦æ¤W­zµ{¦¡¡A¬°¥t¦s¤G­Ósheet ,¨Ã¦s¬°¤@­Ó·sÀÉ¡A¦ý·|¦h¥X¤@­Ó·sªºÀɮסA¤p§Ì¬O§_¦³¦a¤è¥Î¿ù©O¡H¡H¡H¡H