首页 > 编程语言 >关于VBA的TextStream StdOut相关程序的学习——源代码(刘永富博士的ExcelVBA编程开发)

关于VBA的TextStream StdOut相关程序的学习——源代码(刘永富博士的ExcelVBA编程开发)

时间:2023-05-29 15:02:28浏览次数:46  
标签:VBA Set ExcelVBA gif TextStream 源代码 TS2 IWshRuntimeLibrary TS1

Sub test3() '标准输出-查找相关目录下所有的GIF格式文件。
Dim TS1 As IWshRuntimeLibrary.TextStream
Dim TS2 As IWshRuntimeLibrary.TextStream
Set WShell = New IWshRuntimeLibrary.WshShell
Set WE = WShell.Exec("cmd.exe /k")
Set TS1 = WE.StdIn
TS1.WriteLine Text:="cd /d E:\Chess & Dir *.gif /a /b /s"
TS1.Close
WE.Terminate
Do While WE.Status = WshRunning
DoEvents
Loop
Set TS2 = WE.StdOut
Dim i As Integer
Do Until TS2.AtEndOfStream
i = i + 1
Range("a" & i).Value = TS2.ReadLine
Loop
TS2.Close
End Sub

程序中关于 Dir *.gif /a /b /s的理解,如下表分析可看出,

是找到目录下所有.gif的文件-属性显示-拓展名和文件名。

 

标签:VBA,Set,ExcelVBA,gif,TextStream,源代码,TS2,IWshRuntimeLibrary,TS1
From: https://www.cnblogs.com/linerning/p/17440426.html

相关文章

  • 二叉排序树的三种遍历方式和实现源代码
    二叉排序树(BinarySearchTree)是一种特殊的二叉树,它满足以下性质:对于树中的每个节点,其左子树中的所有节点的值都小于该节点的值,而右子树中的所有节点的值都大于该节点的值。这种特性使得对于二叉排序树的遍历具有一定的规律。前序遍历(PreorderTraversal)是一种遍历二叉树的方法。......
  • 源代码管理工具介绍----Github
        源代码管理工具是软件开发中非常重要的工具,它们用于追踪、管理和协调团队成员之间的代码更改。源代码管理工具使开发团队能够跟踪代码的版本历史。这意味着你可以回顾代码的先前状态、比较不同版本之间的差异,并且能够轻松地恢复到先前的工作状态。这对于修复错误、撤销......
  • 执行VBA出现3706错误的解决方案
    现在自用电脑只安装wps,没有安装office了,执行vba居然报3706错误,代码调试好了没改动,那么只有一种可能就是数据库连接有问题了。出现这个提示,安装AccessDatabaseEngine.exe,即可Access 2010数据库引擎:https://download.csdn.net/download/weixin_42750611/12409896安装注意事项:①......
  • 源代码管理工具——Github
    简介:GitHub是一个面向开源及私有软件项目的托管平台,因为只支持Git作为唯一的版本库格式进行托管,故名GitHub。作为开源代码库以及版本控制系统,Github拥有超过千万的开发者用户。随着越来越多的应用程序转移到了云上,Github已经成为了管理软件开发以及发现已有代码的首选方法......
  • GitHub: 掌控源代码的强大工具
    什么是GitHub?GitHub是一个提供Git协议的软件源代码托管服务,于2008年上线,由ChrisWanstrath、PJHyett和TomPreston-Werner共同创办。GitHub是开发者和项目合作者的聚集地,它提供了一个平台,让他们可以在任何地方,任何时候管理和分享代码。GitHub的本质是一个基于网页的分布式版本......
  • 源代码管理工具:提升团队协作与开发效率的利器
    在软件开发领域,源代码管理是一项至关重要的任务。随着团队规模的扩大和项目复杂性的增加,有效地管理和协调代码的变更变得尤为重要。为了应对这一挑战,源代码管理工具应运而生。本文将介绍源代码管理工具的概念、作用以及一些流行的工具,以帮助读者理解并选择适合自己团队的工具。......
  • 源代码管理工具——GitHub
    GitHub——敏捷开发,CI/CD的倡导者和受益者1.简介GitHub是一个面向开源及私有软件项目的托管平台,因为只支持Git作为唯一的版本库格式进行托管,故名GitHub。Github拥有1亿以上的开发人员,400万以上组织机构和3.3亿以上资料库。2.发展历程GitHub平台于2007年10月1日开始开发,由GitHu......
  • solidworks vba 导出数据到文本文件
    Thismacroexportsalltheinformationintotheoutputtextfileinthefollowingformat:OptionExplicitConstcurrentDirAsString="D:\"'DimswAppAsSldWorks.SldWorksSubmain()DimfilePathAsStringfilePath=currentDi......
  • 一些源代码管理工具介绍
    首先,是源代码管理工具能为我们做什么。源代码管理工具的部分作用如下:1.能够追踪一个项目从诞生到一直定案的过程2.记录一个项目所有内容的变化3.方便查阅特定版本的修订情况4.源代码管理工具可以判断每一行代码里面每一个字符是谁写的。而我们使用源代码管理工具,1.由于使用简单,......
  • 源代码管理工具--GitHub
    一.GitHub简介Github是一个基于Git的代码托管平台,主要为开发者提供基于Git仓库的版本托管服务,并提供一个web界面。其由ChrisWanstrath,PJHyett与TomPreston-Werner三位开发者在2008年4月创办。总部位于美国旧金山。使用上,付费用户可以建私人仓库,免费用户只能使用公共仓库,也......