怎样将一份excel导入,然后经组合数据再导出一份新的excel!我想请教大家一下
我把一份excel文件导入一个VB程序,然后经过combobox组合,在SSDBGird列出数据,然后再导出一份新的excel.我是菜鸟,所以想大家帮忙一下. 问题点数：100、回复次数：2Top
1 楼lhappyb（悍匪）回复于 2006-05-04 16:07:51 得分 0
导入的数据先存入数据库，然后根据条件选择导出，我是这么想的，听楼下高见Top
2 楼ondogdog（IT人）回复于 2006-05-04 17:33:40 得分 100
Private Sub cmdExportExcel_Click()
Dim myexcel As Excel.Application
Dim mybook As New Excel.Workbook
Dim mysheet As New Excel.Worksheet
Dim rsExcel As New ADODB.Recordset
Set myexcel = CreateObject("Excel.Application")
Set mybook = myexcel.Workbooks.Add
Set mysheet = mybook.Worksheets(1)
Me.MousePointer = 11
myexcel.Visible = False
rsExcel.Open "SELECT * FROM TABLE_TESTRECORD", mconServer, adOpenStatic, adLockReadOnly, -1
mysheet.Cells.CopyFromRecordset rsExcel
mybook.SaveAs App.Path & "\test.xls"
myexcel.DisplayAlerts = False
mybook.Close
myexcel.Quit
rsExcel.Close
Set rsExcel = Nothing
Me.MousePointer = 0
End Sub
快D俾100分我啊！！！
Top
