要求：利用vba代码将“湖南咨询-底稿”中的内容，按“成果”要求的vba根据模板批量生成表格一条条输出

来源：蜘蛛抓取(WebSpider) 时间：2024-05-17 08:16 标签： vba提取指定的数据到指定的地方
大家好，我们今日继续讲解VBA代码解决方案的第71讲内容：利用Windows Scripting Host(WSH)，复制文件夹如果需要复制文件夹，可以使用CopyFolder方法。应用于FileSystemObject对象的CreateObject方法从一个地方递归地复制一个文件夹到另一个地方，语法如下：object.CopyFolder source, destination[, overwrite]参数：a) object是必需的， FileSystemObject对象的名字。b) source是必需的，指明一个或多个被复制文件夹的字符串文件夹说明，可以包括通配符。c) destination是必需的，被复制文件夹和子文件夹的接受端的字符串，不允许有通配符。d) overwrite是可选的，表示已存在的文件夹是否被覆盖。如果为True，文件被覆盖，如果为False，文件不被覆盖。缺省值为True。特别注意点：如果参数source中包含通配符或参数destination以路径分隔符（）为结尾，则认为参数destination是一个已存在的文件夹，在其中复制相匹配的文件夹和子文件夹。否则认为参数destination是一个要创建的文件夹的名字。 讲完了上面本节要利用到的方法，我们再来学习一点关于FileSystemObject对象的知识， 要使用FileSystemObject对象，先要创建它。创建FileSystemObject对象要使用CreatObject函数。CreateObject 函数用来创建并返回一个对 ActiveX 对象的引用。这个函数的语法我在之前讲解过，再次的复习一下：语法：CreateObject(class,[servername])参数：class 是要创建的应用程序名称和类。；servername 要在其上创建对象的网络服务器名称。（如果要在远程计算机上创建对象才用）class 参数使用 appname.objecttype 这种语法，包括以下部分：appname 必需的；提供该对象的应用程序名。 objecttype 必需的；待创建对象的类型或类。因此，我们用下面的代码创建FileSystemObject对象:Dim fso As ObjectSet fso = CreateObject("Scripting.FileSystemObject")其中Scripting是类型库的名称，FileSystemObject就是要创建的对象的名字。同样我们可以创建Dictionary 对象如下：Dim dSet d = CreateObject("Scripting.Dictionary")好了就讲到这里，下面我们继续看文件夹的复制方法，看下面的代码： Sub MyCopyFolder() Dim MyFile As Object Set MyFile = CreateObject("Scripting.FileSystemObject") MyFile.CopyFolder ThisWorkbook.Path & "ABC", ThisWorkbook.Path & "ABC-1" Set MyFile = Nothing MsgBox "OK!"End Sub 代码解析：MyCopyFolder过程使CopyFolder方法将示例文件所在文件夹中的“ABC”文件夹复制并改名为“ABC-1”文件夹。第3行代码使用CreateObject函数创建FileSystemObject对象并将该对象赋给变量MyFile。第4行代码使用CopyFolder方法复制文件夹。运行CopyFolder过程将示例文件所在文件夹中的“ABC”文件夹复制并改名为“ABC-1”文件夹。代码窗口截图：运行后：生成一个新的文件夹ABC-1今日内容分回向：1 如何复制一个文件呢？CopyFolder的意义是什么？2 CreateObject(class,[servername])的作用是什么？ 欢迎大家到我的自媒体平台沟通交流：个人微信号“NZ9668”、头条号“VBA专家”、百家号“VBA与GO语言”、微信公众号“NZ_9668”、社群“VBA学习交流群”。这一系列文章是根据我多年的工作经验编写的，也是一直在利用的工具，非常方便好用。现在分享出来，希望能对同样在职场打拼的朋友有些许的帮助，使你的工作更加高效、流畅。朋友们有问题请随时提出来，我们一起探讨学习。对数据分析有需要的公司、组织或个人可以直接联系我，及时为你提供专业的定制技术支持。工作不是一切。工作是每个人安身立命、成长发展的基础。但你要知道工作是永远也做不完的，时间会抹去很多问题。多关注自己、家人和朋友，这些才是我们生活中更为重要的东西。

我要回帖

更多关于 vba提取指定的数据到指定的地方 的文章

 

随机推荐