返回当前默认文件路径： 
Application.DefaultFilePath

返回应用程序完整路径 
Application.Path

返回当前工作薄的路径 
ThisWorkbook.Path

Application.ActiveWorkbook.Path   只返回路径 
Application.ActiveWorkbook.FullName   返回路径及工作簿文件名 
Application.ActiveWorkbook.Name   返回工作簿文件名

将当前路径设置为选择文件对话框的默认路径：

Set target = Worksheets(SHEET_CONFIG).Range(RNG_CFG_TEMPLATE)
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "。。。"
.InitialFileName = Application.ActiveWorkbook.Path //将当前路径设置为默认路径
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "文件模板", "*.xls"

If .Show = True Then
target.Value = .SelectedItems(1)
End If
End With

sum函数的使用--

With outBook.Worksheets(SHEET_DATA_TRHKSK)
.Cells(6, 8).Value = WorksheetFunction.Sum(.Range(.Cells(3, 8), .Cells(5, 8)))
End With

行的copy，paste

With outBook.Worksheets(SHEET_DATA_TRHKSK)
.Rows(1).Copy
.Rows(2).PasteSpecial Paste:=xlAll

End With

最新文章

1. AngularJS 简介
2. Spring MVC 文件上传下载
3. 解决tomcat占用8080端口问题图文教程
4. Lucene 对文档打分的规则整理记录
5. oc中的类学习笔记1
6. sharepoint查询超出阈值
7. 【转载】laravel的MVC
8. linux面试题集锦3《转》
9. Python自学笔记-列表生成式（来自廖雪峰的官网Python3）
10. UWP 圆形菜单
11. docker容器持久化卷讲解
12. 基于mave的dubbo分别架构
13. Linux mmc framework1：软件架构
14. 比beanutil更加灵活的dto转换工具dozer
15. jQuery源码学习扒一扒jQuery对象初使化
16. 3D物体识别的如果检验
17. 20165310_Exp2实验三《敏捷开发与XP实践》
18. ZooKeeper参数调优
19. Android 视频缩放/放大
20. DQ8通关攻略

热门文章

1. STM32用JLINK 烧写程序时出现NO Cortex-m device found in JTAG chain现象和解决方案
2. 关于 redis、memcache、mongoDB 的对比
3. BZOJ 1876: [SDOI2009]SuperGCD
4. chorme浏览器调试Android设备
5. （转载）哈夫曼编码（Huffman）
6. 加密算法中BASE64、MD5、SHA、HMAC等之间的区别
7. 【翻译】如何在AJAX生成的内容中再次运行Prism.js
8. 解决virtualbox装ghost xp装驱动时报portcls.sys蓝屏的问题
9. photoshop常见抠图方法
10. java的锁机制