Sub 导出当前客户达成分析()
Application.ScreenUpdating = False
myName1 = Sheets("日期统计表").Range("B1") '客户名称
myName = Sheets("配送明细报表").Range("BA2")
mypath = ThisWorkbook.Path
If Len(Dir(mypath & myName, vbDirectory)) < 1 Then
MkDir mypath & "\" & myName
End If
Sheets("日期统计表").Select
Sheets("日期统计表").Copy
ActiveSheet.Unprotect Password:=123
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ActiveSheet.Shapes.Range(Array("Button 1")).Select
Selection.Delete
Range("B1:C1").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
ActiveWorkbook.SaveAs Filename:=mypath & "\" & myName & "\" & myName1 & ".xlsm", FileFormat _
:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWindow.Close
Application.ScreenUpdating = True
End Sub

最新文章

1. Perforce: 常用功能。
2. Android引用项目出现ClassNotFoundException
3. asp.net C# cookies 的使用方法
4. Leetcode: Nested List Weight Sum II
5. 换个角度说工作单元（Unit Of Work）：创建、持有与API调用
6. cocos2d-x创建精灵动画方式汇总
7. Web Api 控制器
8. OSG-3.4.0 简要说明(Readme)
9. ASP.NET C# 有程序集加不了解决办法
10. [Leetcode][Python]43: Multiply Strings
11. Java多线程之synchronized（二）
12. 个人作业1——四则运算题目生成程序（基于java）
13. 2019-04-05 Spring Boot学习记录
14. Django 在Django项目里单独运行某个py文件
15. 使用163.com邮箱发送邮件
16. 将mnist获得的数据还原成图片形式
17. String.IsNullorEmpty()方法的使用
18. spring cloud:Edgware.RELEASE版本中zuul回退方法的变化
19. 查找第K大的数
20. mysql 连表查询

热门文章

1. MySQL数据库（二）——库相关操作、表相关操作（一）、存储引擎、数据类型
2. 牛客练习赛48 D 小w的基站网络
3. Java split的用法
4. 【VUE/JS】vue和js禁止浏览器页面后退
5. Cause: java.sql.SQLDataException: ORA-01861: 文字与格式字符串不匹配
6. 前端 css 补充内容
7. visual studio 2013下搭建 安卓，ios，wp app开发平台
8. JUC 一 ReentrantLock 可重入锁
9. NX二次开发-UFUN打开二进制STL文件函数UF_STD_open_binary_stl_file
10. NX二次开发-UFUN获取点在面上U,V方向的位置UF_MODL_ask_face_parm【转载】