Sub Test()
'需要引入 ActiveX Data Objects(ADO)组件
' 即 Microsoft ActiveX Data Objects 2.5 Library 或者 Microsoft ActiveX Data Objects 2.6 Library
Dim fileSaveName As String
'创建文件并返回文件路径和名字
fileSaveName = Application.GetSaveAsFilename(fileName, fileFilter:="信息文件(*.txt), *.txt")
'创建写入数据的流
Set outStream = CreateObject("ADODB.Stream")
outStream.Open
outStream.Charset = "utf-8"
outStream.Type = adTypeText
Set binStream = CreateObject("ADODB.Stream")
binStream.Open
binStream.Type = adTypeBinary
' 开始写入数据
outStream.WriteText ("************************************" & vbCrLf)
outStream.WriteText ( Sheet1.Cells(5, 3) & vbCrLf) ' & vbCrLf 为换行符
outStream.WriteText ( Sheet1.Cells(5, 2) &a