Excel_VBA 写文件
Function saveRecordsToTxt(ByVal records As String, ByVal path As String) As Boolean '写文件
If isNullOrEmpty(path) Then
saveRecordsToTxt = False
End If

Open path For Output As #1
Print #1, records
Close #1
saveRecordsToTxt = True
End Function