VBA常用技巧代码解析

zhengady · 发表于 2009-6-6 16:03

谢谢很有帮助

rockrocker · 发表于 2009-6-6 16:28

谢谢了，好东西，学习学习

eyaofy · 发表于 2009-6-6 18:20

学习贵在坚持，坚持下去，定有收获。

lenovo5104 · 发表于 2009-6-6 22:49

谢谢分享！

yuanzhuping · 发表于 2009-6-7 08:22

技巧175 创建和删除文件夹
可以在程序运行时创建和删除文件夹，如下面的代码所示。

#001 Sub TempFolder()
#002 On Error Resume Next
#003 MkDir ThisWorkbook.Path & "\Temp"
#004 End Sub

复制代码

代码解析：
   TempFolder过程使用MkDir语句在示例所在的文件夹中创建“Temp”文件夹。MkDir语句创建一个新的目录或文件夹，语法如下：
   MkDir path
   参数path是必需的，指定所要创建的目录或文件夹的字符串表达式，可以包含驱动器。如果没有指定驱动器，则在当前驱动器上创建新的目录或文件夹。
   第2行代码启动错误处理程序，因为在创建过程中如果文件夹中已存在相同名称的“Temp”文件夹会发生 “路径未找到”错误，所以使用On Error Resume Next语句忽略错误。
   第3行代码使用MkDir语句创建“Temp”文件夹。
   如果需要删除不需要的文件夹可以使用RmDir语句，如下面的代码所示。

#001 Sub RmFolder()
#002 On Error Resume Next
#003 RmDir ThisWorkbook.Path & "\Temp"
#004 End Sub

复制代码

代码解析：
   RmFolder过程使用RmDir语句删除在示例所在的文件夹中创建“Temp”文件夹。RmDir语句删除一个存在的目录或文件夹，语法如下：
   RmDir path
   参数path是必需的，指定所要创建的目录或文件夹的字符串表达式，可以包含驱动器。如果没有指定驱动器，则在当前驱动器上创建新的目录或文件夹。
   第2行代码启动错误处理程序，因为在使用RmDir语句删除并不存在的文件夹或删除含有文件的文件夹时会发生 “路径未找到”错误，所以使用On Error Resume Next语句忽略错误。
   第3行代码使用RmDir语句删除“Temp”文件夹。如果“Temp”文件夹中含有文件可以在删除文件夹之前，先使用Kill语句来删除所有文件。

yuanzhuping · 发表于 2009-6-7 09:03

技巧176 重命名文件或文件夹
使用Name语句可以重命名文件或文件夹，如下面的代码所示。

#001 Sub Filename()
#002 On Error Resume Next
#003 Name ThisWorkbook.Path & "\123" As ThisWorkbook.Path & "\ABC"
#004 Name ThisWorkbook.Path & "\123.xls" As ThisWorkbook.Path & "\ABC\ABC.xls"
#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文件。

lbl016 · 发表于 2009-6-7 09:21

yuanzhuping 版主，请告诉我你的邮箱好吗？

lxh1 · 发表于 2009-6-7 09:32

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

lbl016 · 发表于 2009-6-7 09:50

yuanzhuping 版主，请告诉我你的邮箱好吗？因为今天要修改好，明天好使用该系统吗

lbl016 · 发表于 2009-6-7 10:15

yuanzhuping 版主，请告诉我你的邮箱好吗？我的附件太大（8M），无法在论坛中上传呀

		自动登录	找回密码
密码			免费注册

VBA常用技巧代码解析

第10部分文件操作

第10部分文件操作

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

VBA常用技巧代码解析

第10部分 文件操作

第10部分 文件操作

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

第10部分文件操作

第10部分文件操作