Excel_VBA 写资料

2012-12-24

Excel_VBA 写文件Function saveRecordsToTxt(ByVal records As String, ByVal path As String) As Boolean

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