怎样将一份excel导入,然后经组合数据再导出一份新的excel!我想请教大家一下

Question

我把一份excel文件导入一个VB程序,然后经过combobox组合,在SSDBGird列出数据,然后再导出一份新的excel.我是菜鸟,所以想大家帮忙一下.

Answer 1

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.RecordsetSet myexcel = CreateObject("Excel.Application")
Set mybook = myexcel.Workbooks.Add
Set mysheet = mybook.Worksheets(1)Me.MousePointer = 11myexcel.Visible = FalsersExcel.Open "SELECT * FROM TABLE_TESTRECORD", mconServer, adOpenStatic, adLockReadOnly, -1mysheet.Cells.CopyFromRecordset rsExcelmybook.SaveAs App.Path & "\test.xls"myexcel.DisplayAlerts = False
mybook.Close
myexcel.QuitrsExcel.Close
Set rsExcel = NothingMe.MousePointer = 0
End Sub
快D俾100分我啊！！！