学步园

       做了机房收费系统后发现有一个功能块是几乎不用动的，那就是到处excel,原谅我只是打了一遍，因为我发现每次都是不用变的，下面就把这段代码分享给大家。

Dim newXls As Excel.Application
    Dim newsheet As Excel.Worksheet
    Dim newBook As Excel.Workbook
    Dim X As Integer
    Dim Y As Integer
    Dim txtSQL As String
    Dim Msgtext As String
    Dim mrc As ADODB.Recordset
    
    txtSQL = "select * from line_info where card_id= '" & Trim(txtCardno.Text) & "'"
    Set mrc = ExecuteSQL(txtSQL, Msgtext)
    
    If mrc.RecordCount = 0 Then
        MsgBox "没有要导出的记录", vbOKOnly + vbExclamation, "警告"
    Else
        Set newXls = CreateObject("excel.Application")
'        Set newsheet = newBook.Worksheets
        
        Set newBook = newXls.Workbooks.Add   '创建工作簿
        Set newsheet = newBook.Worksheets(1) '创建工作表
        
        For X = 1 To MyFlexGrid.Rows
            For Y = 1 To MyFlexGrid.Cols
        
                newsheet.Cells(X, Y) = "'" & MyFlexGrid.TextMatrix(X - 1, Y - 1)
            Next Y
        Next X
        
        newXls.Visible = True
        Set newXls = Nothing
      
      End If
      
    
End Sub

貌似就是这样都不用改吧，方法还有很多，希望大家多多提意见啊