如何用代码将数据写如EXCel

Question

是不是不用VBA???我这里有现成的，有从datagrid\flexgrid和用游标从数据库直接导出到EXcel的。多点分，我给你说，有点麻烦。

Answer 1

'要试用此例,请在窗体上加一个FlexGrid和一个按钮
'然后在代码窗体中粘贴如下代码
'在"应用"中请选择Microsoft Excel 8.0 Objects LibraryPrivate Sub Command1_Click()
  Dim lngRow As Long
  Dim lngCol As Long
  Dim lngN As Long
  
  Dim xlApp As Excel.Application
  Dim xlBook As Excel.Workbook
  Dim xlSheet As Excel.Worksheet
  
  Set xlApp = CreateObject("Excel.Application")
  xlApp.WindowState = xlMaximized
  xlApp.Visible = True
  Set xlBook = xlApp.Workbooks.Add
  Set xlSheet = xlBook.Worksheets(1)
  
    For lngRow = 1 To MSFlexGrid1.Rows - 1
        For lngCol = 1 To MSFlexGrid1.Cols - 1
            xlSheet.Cells(lngRow, lngCol) = MSFlexGrid1.TextMatrix(lngRow, lngCol)
        Next
    Next
  xlApp.Visible = True
  Set xlApp = Nothing
  
End SubPrivate Sub Form_Load()
    Me.MSFlexGrid1.TextMatrix(1, 1) = "adsf"
    Me.MSFlexGrid1.TextMatrix(1, 2) = "4343"
    Me.MSFlexGrid1.TextMatrix(1, 3) = "bvchy"
    Me.MSFlexGrid1.TextMatrix(1, 4) = "2552525"
End Sub
  

Answer 2

最好加上visible和redraw属性这样能快一些.

Answer 3

用游标从数据库直接导出到EXcel的,谢谢

Answer 4

foolishtiger(吴文智)　:
  感谢，我从你的代码中得到了提示，问题解决了，希望以后多指点