做了机房收费系统后发现有一个功能块是几乎不用动的,那就是到处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
貌似就是这样都不用改吧,方法还有很多,希望大家多多提意见啊