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