分享成果，随喜真能量。大家好，今日内容仍是和大家分享VBA编程中常用的简单"积木"过程代码，这些内容大多是取至我编写的"VBA代码解决方案"教程中内容。NO.183-NO.184内容是：
NO. 191：在VBA中使用Shell函数自动关闭电脑
NO. 192：在VBA中使用OpenTextFile方法打开文件，并将数据导入到工作表中
VBA过程代码191：在VBA中使用Shell函数自动关闭电脑
Sub mynz()
Shell ("Shutdown.exe -s -t 30")
End Sub
代码解析：mynz过程使用Shell函数在30秒后自动关闭电脑。Windows系统的关机可以通过调用程序 shutdown.exe来实现的。
VBA过程代码192：在VBA中使用OpenTextFile方法打开文件，并将数据导入到工作表中
Sub mynz()
Dim MyFile As Object
Dim mArr() As String
Dim j As Integer, i As Integer
j = 1
Sheets("76").UsedRange.ClearContents
Set MyFile = CreateObject("Scripting.FileSystemObject") _
.OpenTextFile(ThisWorkbook.Path & "\" & "人员表.txt")
Do While Not MyFile.AtEndOfStream
mArr = Split(MyFile.ReadLine, "，")
For i = 0 To UBound(mArr)
Sheets("76").Cells(j, i + 1) = mArr(i)
Next
j = j + 1
Loop
MyFile.Close
Set MyFile = Nothing
End Sub
代码解析：mynz过程使用OpenTextFile方法打开示例文件所在文件夹中的"人员表.txt"文件并将数据导入到工作表中。代码使用OpenTextFile方法打开文本文件。代码开始对文本文件进行读操作。应用于TextStream对象的AtEndOfStream属性指示文件指针是否位于TextStream文件中的结尾，如果是返回True，否则返回False。代码使用Split函数将逐行读取的字符串以逗号进行分隔后赋给数组mArr。应用于TextStream对象的ReadLine方法从一个TextStream文件读取一整行（到换行符但不包括换行符）并返回得到的字符串，代码将数组元素写入到工作表的单元格。使用Close方法关闭打开的文本文件。mynz过程将"人员表.txt"文件的数据导入到工作表中。
VBA是实现自己小型办公自动化的有效手段，我根据自己20多年的VBA实际利用经验，现推出了四部VBA教程，这些是我多年编程经验的记录，也是我"积木编程"思想的体现。每一讲都是较大块的"积木"，可以独立的完成某些或者某类的过程。利用这些可以提高自己的编程效率。其一："VBA代码解决方案"PDF教程，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点，是初学及中级以下人员必备；其二"VBA数据库解决方案"PDF教程，数据库是数据处理的利器，对于中级人员应该掌握这个内容了。其三"VBA数组与字典解决方案"PDF教程，讲解VBA的精华----字典，是我们打开思路，提高代码水平的必备。其四"VBA代码解决方案"视频教程。目前正在录制，"每天20分钟，半年精进VBA"，越早参与，回馈越多。现在录制到第三册的109讲,以上各教程的代码都是经过实测，可以拿来即用。
本文来自投稿，不代表本人立场，如若转载，请注明出处：http://www.souzhinan.com/kj/300009.html