Sub 另存為()
? Set sht = Sheet4
? Set mf = Sheet1
? ? NewFileName = sht.Range("AE4") & "銷(xiāo)售訂單錄入" & Year(Date) & "-" & Month(Date) & "-" & Day(Date)? '擬擬取名
? ? On Error Resume Next
' ###########檢查C盤(pán)下有沒(méi)有此文件 #############
? ? Dim ObjFSO
? ? Set ObjFSO = CreateObject("Scripting.FileSystemObject")
? ? ? If ObjFSO.FileExists("C:\" & NewFileName & ".xls") Then
? ? ? ? MsgBox "C盤(pán)下已有此文件名橱赠，請(qǐng)重新命名蟹但！"
? ? ? ? GoTo 0
? ? ? End If
' ###########如果沒(méi)有此文件則復(fù)制新增 #############
? ? mf.Copy '復(fù)制工作表
? ? ActiveWorkbook.SaveAs Filename:="C:\" & NewFileName & ".xls" '保存新增的文件并重命名到C盤(pán)下
? ? ActiveWorkbook.Close True? ? ? ? ? ? '關(guān)閉文件
0
End Sub
