设为首页 收藏本站 SEO博客大全 SEO学院 SEO服务 SEO学习 官方公告 开启辅助访问
 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

只需一步,快速开始

VBA代码如何移动文件、复制文件

查看: 4554| 评论: 0| 发布者: 低调无语

??? ??С
简介:分享成果,随喜真能量。大家好,今日内容仍是和大家分享VBA编程中常用的简单"积木"过程代码,这些内容大多是取至我编写的"VBA代码解决方案"教程中内容。NO.183-NO.184内容是:NO. 183:在VBA中使用MoveFile ...
分享成果,随喜真能量。大家好,今日内容仍是和大家分享VBA编程中常用的简单"积木"过程代码,这些内容大多是取至我编写的"VBA代码解决方案"教程中内容。NO.183-NO.184内容是:

NO. 183:在VBA中使用MoveFile方法将示例文件移动

NO. 184:在VBA中使用CopyFile方法复制

VBA代码如何移动文件、复制文件

VBA过程代码183:在VBA中使用MoveFile方法将示例文件移动

Sub mynz()

Dim MyFile As Object

On Error Resume Next

Set MyFile = CreateObject("Scripting.FileSystemObject")

MyFile.MoveFile ThisWorkbook.Path & "\\abc.docx", ThisWorkbook.Path & "\\ABC\\"

Set MyFile = Nothing

MsgBox "OK!"

End Sub

代码解析:mynz过程使用MoveFile方法将示例文件所在文件夹中的"abc.docx"文件移动到"ABC"文件夹中。代码使用CreateObject函数创建FileSystemObject对象并将该对象赋给变量MyFile。代码使用MoveFile方法移动文件。过程将示例文件所在文件夹中的"abc.docx"文件移动到同一目录中的"ABC"文件夹。

VBA代码如何移动文件、复制文件

VBA过程代码184:在VBA中使用CopyFile方法复制

Sub mynz()

Dim MyFile As Object

On Error Resume Next

Set MyFile = CreateObject("Scripting.FileSystemObject")

MyFile.CopyFile ThisWorkbook.Path & "\\abc.docx", ThisWorkbook.Path & "\\ABC\\"

Set MyFile = Nothing

MsgBox "OK!"

End Sub




代码解析:mynz过程使用CopyFile方法将示例文件所在文件夹中的"abc.docx"文件复制到"ABC"文件夹中。代码使用CreateObject函数创建FileSystemObject对象并将该对象赋给变量MyFile。代码使用CopyFile方法复制文件。过程将示例文件所在文件夹中的"abc.docx"文件复制到"ABC"文件夹中。

VBA代码如何移动文件、复制文件

VBA是实现自己小型办公自动化的有效手段,我根据自己20多年的VBA实际利用经验,现推出了四部VBA教程,这些是我多年编程经验的记录,也是我"积木编程"思想的体现。每一讲都是较大块的"积木",可以独立的完成某些或者某类的过程,有需要的朋友可以联络(WeChat:NZ9668)分享。利用这些可以提高自己的编程效率。其一:"VBA代码解决方案"PDF教程,是VBA中各个知识点的讲解,覆盖了绝大多数的知识点,是初学及中级以下人员必备;其二"VBA数据库解决方案"PDF教程,数据库是数据处理的利器,对于中级人员应该掌握这个内容了。其三"VBA数组与字典解决方案"PDF教程,讲解VBA的精华----字典,是我们打开思路,提高代码水平的必备。其四"VBA代码解决方案"视频教程。目前正在录制,"每天20分钟,半年精进VBA",越早参与,回馈越多。现在录制到第三册的103讲,以上各教程的代码都是经过实测,可以拿来即用。

【免责声明】本文仅代表作者或发布者个人观点,不代表SEO研究协会网(www.seoxiehui.cn)及其所属公司官方发声,对文章观点有疑义请先联系作者或发布者本人修改,若内容涉及侵权或违法信息,请先联系发布者或作者删除,若需我们协助请联系平台管理员,邮箱cxb5918@163.com(本平台不支持其他投诉反馈渠道,谢谢合作)。若需要学习以上相关知识请到巨推学院观看视频教程,网址www.jutuiedu.com。
已有 0 人参与

会员评论

推荐阅读

    2020-02-26 02:35
  • 作者:mtfukankan

    买苹果手机的人真的是“人傻钱多”吗?业内人说出了真相

    买苹果手机的人真的是“人傻钱多”吗?内行人说出了真相智能手机的普及让我们都体验到了移动互联网带来的种种好处,线上娱乐,线上学习,便捷支付等等,只要手中有一部智能手机就能解决了。如今的智能手机我们普通消

  • 2020-02-26 02:28
  • 作者:泊头企业号

    微信小程序开发工具挑选及使用教程

    随着移动互联网发展,小程序已经越来越常见,现在的线下商家若没有自己的小程序,那就将失去一个重要的引流获客渠道。不过大多数商家都是不懂技术的小白,这种情况下,若想顺利做出一个微信小程序,只能使用模板类小

  • 2020-02-26 02:05
  • 作者:周口李辉

    如何写营销推广文案?(下)

    在上篇中,我们讨论了写营销文案应该准备的四个方面;在中篇中,我们讨论了营销文案的创业从哪里来;你会发现我们写个营销推广文案准备的时间有点长,准备的内容有点多。但是这一切都是值得的,所谓磨刀不误砍柴工,

  • 2020-02-26 02:00
  • 作者:fanpeng1100

    远程办公加速,写字楼承压期拉长?

    2月3日起,李乐每天的工作,从早上九点的一张自拍开始。在互联网公司做运营的李乐看来,虽然公司一直使用钉钉作为办公软件,之前也时不时远程办公过,但这是第一次正式的长时间在家办公,感觉还是不一样。首先,早上

  • 2020-02-26 01:51
  • 作者:linyufan

    风靡全球的MOBA经典之作-英雄联盟手游预约地址 下载地址

    一旦你进入英雄联盟,你将拥有一个新的身份-召唤师。在英雄联盟的世界中,您与心中的英雄作战,并不断为胜利而增强自己。英雄联盟是一个属于全球召唤者的独特世界。今天是英雄联盟成立10周年,我很高兴在特定时刻传

  • 2020-02-26 01:16
  • 作者:太原sem

    方案征集 | 以科制疫!ICT行业抗疫技术方案征集等你来

    一场突如其来的新冠病毒横行肆虐,在中华大地上空笼罩了一层阴霾。激流之下,一场看不见硝烟的战争悄然打响。医疗行业冲锋陷阵,与病魔顽强搏斗;信息通信行业逆行而上,尽己所能,用科技助力早日战胜病魔。技术至善

  • 2020-02-26 01:05
  • 作者:jnkf131

    企业网站建设选择外包的好处

    软件外包行业的发展为非互联网企业开发软件提供了极大的便利,不只是大型企业,还有很多中小公司,初创企业,想要开发一款软件应用的时候,都愿意找专业的软件外包公司合作,不管是把完整项目外包出去,或是自己做展

  • 2020-02-26 00:56
  • 作者:sxz0377

    为什么国内许多公司外包PCB设计

    PCB设计是根据电路原理图使用Allegro、PADS、Mentor、AD等EDA工具进行布局布线,实现硬件电路的功能。优秀的PCB设计工程师不仅要精通EDA软件,还要懂电路原理、SI\PI\EMC知识,有成本意识,考虑PCB板厂工艺可制造

  • 2020-02-26 00:48
  • 作者:lixueli0226

    智览电商:网络营销外包能给传统企业带来什么?

    随着社会的发展,人们的需求越来越高。在这个快速发展的阶段,人工成本成了一项非常大的开支,物价上涨也是导致这些的原因,00年左右那时的猪肉价格才4-5元钱一斤,现在的价格却涨了300%。房价就更不用说了,上涨到

  • 2020-02-26 00:35
  • 作者:陈仓河谷

    发量少星人看过来,这种方法能让盘发更加丰盈饱满

    当代年轻人的最大烦恼之一人未老,头已秃很多喜欢的造型没法做因为发量少做!不!到!啊!.就拿盘发来说别人的发髻那么饱满一个而你的发髻可能只有别人的一半大发量少星人就要与盘发无缘吗?先别急着否定跟着毛戈平

文章排行

TOP ARTICLES

返回顶部