ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: yuanzhuping

VBA常用技巧代码解析

    [复制链接]

TA的精华主题

TA的得分主题

发表于 2009-6-6 16:03 | 显示全部楼层
本帖已被收录到知识树中,索引项:开发帮助和教程
谢谢 很有帮助

TA的精华主题

TA的得分主题

发表于 2009-6-6 16:28 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
谢谢了,好东西,学习学习

TA的精华主题

TA的得分主题

发表于 2009-6-6 18:20 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2009-6-6 22:49 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
谢谢分享!

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-6-7 08:22 | 显示全部楼层

第10部分 文件操作

技巧175         创建和删除文件夹
       可以在程序运行时创建和删除文件夹,如下面的代码所示。
  1. #001  Sub TempFolder()
  2. #002      On Error Resume Next
  3. #003      MkDir ThisWorkbook.Path & "\Temp"
  4. #004  End Sub
复制代码
代码解析:
       TempFolder过程使用MkDir语句在示例所在的文件夹中创建“Temp”文件夹。MkDir语句创建一个新的目录或文件夹,语法如下:
       MkDir path
       参数path是必需的,指定所要创建的目录或文件夹的字符串表达式,可以包含驱动器。如果没有指定驱动器,则在当前驱动器上创建新的目录或文件夹。
       第2行代码启动错误处理程序,因为在创建过程中如果文件夹中已存在相同名称的“Temp”文件夹会发生 “路径未找到”错误,所以使用On Error Resume Next语句忽略错误。
       第3行代码使用MkDir语句创建“Temp”文件夹。
       如果需要删除不需要的文件夹可以使用RmDir语句,如下面的代码所示。
  1. #001  Sub RmFolder()
  2. #002      On Error Resume Next
  3. #003      RmDir ThisWorkbook.Path & "\Temp"
  4. #004  End Sub
复制代码
代码解析:
       RmFolder过程使用RmDir语句删除在示例所在的文件夹中创建“Temp”文件夹。RmDir语句删除一个存在的目录或文件夹,语法如下:
       RmDir path
       参数path是必需的,指定所要创建的目录或文件夹的字符串表达式,可以包含驱动器。如果没有指定驱动器,则在当前驱动器上创建新的目录或文件夹。
       第2行代码启动错误处理程序,因为在使用RmDir语句删除并不存在的文件夹或删除含有文件的文件夹时会发生 “路径未找到”错误,所以使用On Error Resume Next语句忽略错误。
       第3行代码使用RmDir语句删除“Temp”文件夹。如果“Temp”文件夹中含有文件可以在删除文件夹之前,先使用Kill语句来删除所有文件。

技巧175 创建和删除文件夹.rar

6.4 KB, 下载次数: 1122

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-6-7 09:03 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

第10部分 文件操作

技巧176         重命名文件或文件夹
       使用Name语句可以重命名文件或文件夹,如下面的代码所示。
  1. #001  Sub Filename()
  2. #002      On Error Resume Next
  3. #003      Name ThisWorkbook.Path & "\123" As ThisWorkbook.Path & "\ABC"
  4. #004      Name ThisWorkbook.Path & "\123.xls" As ThisWorkbook.Path & "\ABC\ABC.xls"
  5. #005  End Sub
复制代码
Filename过程使用Name语句重命名示例文件所在文件夹中的“123”文件夹和“123.xls”Excel文件并将重命名后的Excel文件移动到重命名后的文件夹中。
       Name语句重新命名一个文件、目录、或文件夹,语法如下:
       Name oldpathname As newpathname
       参数oldpathname是必需的,字符串表达式,指定已存在的文件名和位置,可以包含目录或文件夹、以及驱动器。
       参数newpathname是必需的,字符串表达式,指定新的文件名和位置,可以包含目录或文件夹、以及驱动器。
       第2行代码启动错误处理程序,因为在重命名过程中如果参数oldpathname指定的文件或文件夹不存在会发生 “文件未找到”错误,所以使用On Error Resume Next语句忽略错误。
       第3行代码使用Name语句将示例文件所在文件夹中的“123”文件夹重命名为“ABC”文件夹。
       第4行代码使用Name语句将示例文件所在文件夹中的“123.xls”Excel文件重命名为“ABC.xls”文件并移动到“ABC”文件夹中。
       在运行Filename过程前请确认示例文件所在文件夹中包含一个“123”文件夹和一个“123.xls”Excel文件。

技巧176 重命名文件或文件夹.rar

9.84 KB, 下载次数: 1043

TA的精华主题

TA的得分主题

发表于 2009-6-7 09:21 | 显示全部楼层
yuanzhuping 版主,请告诉我你的邮箱好吗?

TA的精华主题

TA的得分主题

发表于 2009-6-7 09:32 | 显示全部楼层

老师不遗余力令我非常敬仰!

老师不遗余力令我非常敬仰!

TA的精华主题

TA的得分主题

发表于 2009-6-7 09:50 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
yuanzhuping 版主,请告诉我你的邮箱好吗?因为今天要修改好,明天好使用该系统吗

TA的精华主题

TA的得分主题

发表于 2009-6-7 10:15 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
yuanzhuping 版主,请告诉我你的邮箱好吗?我的附件太大(8M),无法在论坛中上传呀
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 22:46 , Processed in 0.044399 second(s), 6 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表