www.5878.com www.5462.com www.6460.com www.5407.com www.6465.com

23144香港马会开奖 > www.673344.com > 正文www.673344.com

VBA数组函数、好值的获得和应用FileCopy语句复造文

浏览次数:      日期:2020-01-19  

分享结果,随喜实能度。大师好,本日内容还是和人人分享VBA编程中经常使用的简略"积木"过程代码,这些内容大多是与至我编写的"VBA代码解决方案"教程中内容。NO.176-NO,十博网站.177容是:

NO. 180:在VBA中split和join对数组操做

NO. 181:在VBA中查找数组的差集

NO. 182:在VBA中使用FileCopy语句复制文件

VBA过程代码180:在VBA中split跟join对付数组草拟

Sub mynz()

Dim arr, myst As String

myst = "A-REW-E-RWC-2-RWC"

arr = Split(myst, "-")

MsgBox arr(0)

MsgBox Join(arr, ",")

End Sub

代码的解析解释:mynz过程使用split和join函数,显著数组的第一个数,再用","把数组的每一个值衔接成一个字符串。

VBA过程代码181:在VBA中查找数组的好散

Sub mynz()

Dim varArr1 As Variant

Dim varArr2 As Variant

Dim i As Integer

varArr2 = Array(1021, 1023, 1025)

varArr1 = Array(1021, 1022, 1023, 1024, 1025, 1026, 1027, 1028)

For i = 0 To UBound(varArr2)

varArr1 = VBA.Filter(varArr1, varArr2(i), False)

Next i

MsgBox Join(varArr1)

End Sub

代码的解析道明:mynz过程实现varArr2,varArr1两个数组的差值。使用filter函数在此是含混查找。

VBA过程代码182:在VBA中使用FileCopy语句复制文件。

Sub mynz()

Dim SourceFile As String

Dim DestinationFile As String

SourceFile = ThisWorkbook.Path & "\VBA代码解决方案(1-48).docx"

DestinationFile = ThisWorkbook.Path & "\ABC\abc.docx"

FileCopy SourceFile, DestinationFile

End Sub

代码的剖析阐明:mynz过程应用FileCopy语句将示例文件地点文件夹中的"\VBA代码解决方案(1-48).docx"文件复制到示例文件目次下的"ABC"文件夹中并从新定名为"abc.docx"。代码使用FileCopy语句复制文明。

VBA是完成自己小型办公主动化的有用手腕,我依据自己20多年的VBA现实利用经验,现推出了四部VBA教程,这些是我多年编程教训的记载,也是我"积木编程"思维的表现。每讲皆是较年夜块的"积木",可以自力的实现某些或许某类的进程,有须要的友人可以联系(WeChat:NZ9668)分享。应用这些可以进步本人的编程效力。其一:"VBA代码处理计划"PDF教程,是VBA中各个知识点的讲授,笼罩了尽年夜多半的常识面,是入门及中级以下职员必备;其发布"VBA数据库解决方案"PDF教程,数据库是数据处置的利器,对中级人员应当控制那个式样了。其三"VBA数组取字典解决圆案"PDF教程,讲解VBA的精髓----字典,是咱们翻开思绪,提下代码程度的必备。其四"VBA代码解决方案"视频教程。今朝正正在录造,"天天20分钟,半年粗进VBA",越早参加,回馈越多。当初录制到第三册的103讲,以上各教程的代码都是经由真测,能够拿去即用。