Excel_VBA 写资料

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