vb导出到excel文件（Export VB to excel file）.docVIP

vb导出到excel文件（Export VB to excel file） Export VB to EXCEL file Category: VB Recommendation: * * * * index Document popularity: 3160 Popularity this week: 11 Release date: 2007-3-26 Private, Sub, cmdSwatch_Click () Dim xls As excel.Application Dim xlbook As excel.Workbook On Error GoTo exlError Dim I As Integer If Dir (Text1.Text) as a file with the same name given prompt Then this directory, and the corresponding treatment If MsgBox (the file already exists, is it covered?! VbYesNo + vbQuestion, save as project cost file = = vbNo Then Exit Sub Else Kill (Text1.Text) delete file End If End If ************ open worksheet *************** Set XLS = New excel.Application Xls.Visible = True Set xlbook = xls.Workbooks.Add ********************************* For I = 0, To 14 If Check2 (I).Value = vbChecked Then Select Case I Case 8 ToExcelJDanJiaSum.ToExcelJDanJiaSum, xlbook, xls Case 9 ToExcelADanJiaSum.ToExcelADanJiaSum, xlbook, xls Case 10 ToExcelCailiao.ToExcelCailiao, xlbook, xls Case 11 ToExcelTsf.ToExcelTsf, xlbook, xls Case 12 ToExcelZgcl.ToExcelZgcl, xlbook, xls End Select End If Next For I = 0, To 6 If Check3 (I).Value = vbChecked Then Select Case I Case 0 ToExcelMan.ToExcelMan, xlbook, xls Case 1 ToExcelFSD_CL.ToExcelFSD_CL, xlbook, xls Case 2 ToExcelHNT.ToExcelHNT, xlbook, xls Case 3 ToExcelZsf.ToExcelZsf, xlbook, xls Case 4 ToExcelJingChang.ToExcelJingChang, xlbook, xls Case 5 ToExcelJDanJia.ToExcelJDanJia, xlbook, xls Case 6 ToExcelADanJia.ToExcelADanJia, xlbook, xls End Select 最后如果 下一个 xlbook.saveas text1。文本的保存Excel文件 “***************************关闭Excel对象******************* 如果会员。值= vbchecked然后 xlbook。关闭 xls。退出 最后如果 集xlbook =没有 集XLS =没有 退出子 “exlerror： “MsgBox犯错。描述信息+ vbcritical，“警告” 端子 明确选择 市民Sub ToExcelZgcl（ByRef xlbook，我的输出总工程量XLS） 昏暗的CON ADODB连接新。 昏暗的rst_gcl作为新的数据集。 昏暗的rst_qm作为新的数据集。 “**************************连接数据库**************************************** con.cursorlocation = aduseclient con.connectionstring =“商=微软。飞机。OLEDB数据源。4；=“strconnection ”；坚持安全信息=假”