我得到了以下简单的代码 用于导出 CSV 文件 。
"http://www.falseperens.com/files/ViewCSVPrint.txt" rel = "nofollow" >[Link]
fileNum% = Freefile()
Open filename For Output As fileNum%
use the view column titles as the CSV headers
Forall c In view.Columns
If cns = "" Then
cns = c.title
Else
cns = cns + +"," + c.title
End If
End Forall
Print #fileNum%, cns
now get and print the values for each row and column
Set vc = view.AllEntries
Set entry = vc.GetFirstEntry()
While Not entry Is Nothing
rowstring = ""
Forall colval In entry.ColumnValues
If rowstring = "" Then
rowstring = colval
Else
rowstring = rowstring + +"," + colval
End If
End Forall
Print #fileNum%, rowstring
Set entry = vc.GetNextEntry(entry)
Wend
Close fileNum%