解释按钮及窗体的代码

清风明月名字

解释按钮及窗体的代码
可以将解释内容输出为文本文件

Private Sub CommandButton8_Click()

'建一个原不存在的文本文件的VBA代码适用于CAD\EXCEL\WORD
Dim tFile As Object, TSO As Object
Set TSO = CreateObject("Scripting.FileSystemObject")
'新建一个原不存在的文本文件
Set tFile = TSO.CreateTextFile("F:\00解释某控件或窗体的文字相当于帮助文件.txt", True)
'输入内容
  tFile.Close
Set tFile = Nothing
Set TSO = Nothing




'可以在一个文本文件最后面另起一行连续反复输入内容的EXCEL的VBA宏代码.
Dim FSO As Object, sFile As Object
Const ForReading = 1, ForWriting = 2, ForAppending = 8, TristateFalse = 0
Set FSO = CreateObject("Scripting.FileSystemObject")

'下一句并不新建文本文件，而是指明打开文件时操作的方法。第二参数ForWriting是指定删除原内容再写入。如果填ForAppending则是在原内容后面写入
Set sFile = FSO.OpenTextFile("F:\00解释某控件或窗体的文字相当于帮助文件.txt", ForWriting, TristateFalse)
'输入内容到文本文件
sFile.WriteLine "解释“命令示范”按钮"
sFile.WriteLine "--------"
sFile.WriteLine "说明这个按钮的作用及适用范围"
sFile.Close
Set FSO = Nothing

Set sFile = Nothing

'打开文本文件

Shell ("C:\WINDOWS\NOTEPAD.EXE F:\00解释某控件或窗体的文字相当于帮助文件.txt")


End Sub