msflegrid数据快速向EXCEL 导出？

Question

msflegrid数据快速向EXCEL 导出？

Answer 1

msflegrid数据来自何处？是否绑定了记录集？

Answer 2

来自输入一定参数后数值计算的结果，数据比较多，在mshflegrid中显示，想尽快保存出来，没有使用记录集

Answer 3

http://community.csdn.net/Expert/topic/4934/4934537.xml?temp=.1385614of123:帮我看下这个问题，谢谢先

Answer 4

Rem 快速保存的数据文件格式CSV，可以用EXCEL打开
Private Sub MnuCsv_Click()
Dim i As Integer''写入CSV文件，EXCEL可以打开的文件Dim FileName As String                       '''''''''''将数据保存到Excel表里
CommDiag1.FileName = ""
CommDiag1.Filter = "Excel表|*.csv"
CommDiag1.ShowSave
FileName = CommDiag1.FileName
If FileName = "" Then
  Exit Sub
End If
  Open FileName For Output As #1
     Print #1, " 步进序号"; ",";                          ''''' '这里是写CSV的第一行，固定的列头
     Print #1, "1"; ",";
     Print #1, "2"; ",";
     Print #1, "3"; ",";
     Print #1, "4"; ",";
     Print #1, "5"; ",";
     Print #1, "6"; ",";
     Print #1, "7"; ",";
     Print #1, "8"; ",";
     Print #1, vbNullString                        ''''结束换行
     
   ''''''写入数据
   For i = 1 To 546
     Print #1, Val(MSHFlexGrid1.TextMatrix(i, 0)); ",";      ''csv是一个逗号一个逗号‘’隔开的,直接生成文本文件就是了
     Print #1, Val(MSHFlexGrid1.TextMatrix(i, 1)); ",";
     Print #1, Val(MSHFlexGrid1.TextMatrix(i, 2)); ",";
     Print #1, Val(MSHFlexGrid1.TextMatrix(i, 3)); ",";
     Print #1, Val(MSHFlexGrid1.TextMatrix(i, 4)); ",";
     Print #1, Val(MSHFlexGrid1.TextMatrix(i, 5)); ",";
     Print #1, Val(MSHFlexGrid1.TextMatrix(i, 6)); ",";
     Print #1, Val(MSHFlexGrid1.TextMatrix(i, 7)); ",";
     Print #1, Val(MSHFlexGrid1.TextMatrix(i, 8)); ",";
     Print #1, vbNullString
   Next
   Close #1
End Sub