VB导出到EXCEL文件(国外英文资料).doc

VB导出到EXCEL文件(国外英文资料) VB export to EXCEL file Category: VB Recommendation: * * * * index Document popularity: 3160 This weeks popularity: 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. Overwrite! VbYesNo + vbQuestion save as file project cost) = vbNo Then Exit Sub Else Kill (Text1.Text) delete files 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 End If Next Xlbook.SaveAs Text1.Text save EXCEL file *************************** closed EXCEL object statement If Check1.Value = vbChecked Then Xlbook.Close Xls.Quit End If Set xlbook = Nothing Set XLS = Nothing Exit Sub exlError: MsgBox Err.Description, vbOKOnly + vbCritical, warning End Sub Option Explicit Public Sub ToExcelZgcl (ByRef xlbook, ByRef XLS) total output quantity Dim con As New ADODB.Connection dim m _ gc 1 grade as new adodb. recordset dim m _ qm as new adodb. recordset * * * * * * * * * * * * * * * * * * * *