请教：怎样把flexGrid中的数据导入excel中

Question

同上

Answer 1

'*********************************************************  
'*  名称：OutDataToExcel  
'*  功能：将MsFlexGrid控件中显示的内容输出到Excel表格中进行打印  
'*********************************************************  
Public  Sub  OutDataToExcel(Flex  As  MSFlexGrid)        '导出至Excel  
       Dim  s  As  String  
       Dim  i  As  Integer  
       Dim  j  As  Integer  
       Dim  k  As  Integer  
       On  Error  GoTo  Ert  
       Me.MousePointer  =  11  
       Dim  Excelapp  As  Excel.Application  
       Set  Excelapp  =  New  Excel.Application  
       On  Error  Resume  Next  
       DoEvents  
       Excelapp.SheetsInNewWorkbook  =  1  
       Excelapp.Workbooks.Add  
       Excelapp.ActiveSheet.Cells(1,  3)  =  s  
       Excelapp.Range("C1").Select  
       Excelapp.Selection.Font.FontStyle  =  "Bold"  
       Excelapp.Selection.Font.Size  =  16  
       With  Flex  
               k  =  .Rows  
               For  i  =  0  To  k  -  1  
                       For  j  =  0  To  .Cols  -  1  
                             DoEvents  
                             Excelapp.ActiveSheet.Cells(3  +  i,  j  +  1)  =  "'"  &  .TextMatrix(i,  j)  
                       Next  j  
               Next  i  
       End  With  
       Me.MousePointer  =  0  
       Excelapp.Visible  =  True  
       Excelapp.Sheets.PrintPreview                
Ert:  
       If  Not  (Excelapp  Is  Nothing)  Then  
               Excelapp.Quit  
       End  If  
End  Sub  

Answer 2

参考：
http://www.csdn.net/develop/read_article.asp?id=14952

Answer 3

To :lihonggen0(李洪根,用.NET，标准答案来了) 
谢谢，佩服佩服！！！

Answer 4

使用EXCEL的CELL(单元),将值取出后放到EXCEL的单元中.