我用了Sheet(r, c).Value = format(tbr.GetValue("预算金额"), "##,###.##")
可以有千分号，但在表格单元显示的文本，能否既是数值型又带千分号
这个没有办法。建议不要格式化直接导出数字，然后到execl里设置列格式
可以定义样式，格式化数据：
http://www.foxtable.com/webhelp/topics/1146.htm
Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Style.Format= "##,###.##" '设置样式
Sheet.Cols(c).Style = Style