VB中使用EXCEL输出

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) <> "" Then '此目录下如有同名文件给出提示,并作相应处理
        If MsgBox("文件已存在，是否覆盖！", vbYesNo + vbQuestion, "另存为工程造价文件") = vbNo Then
            Exit Sub
        Else
            Kill (Text1.Text) '删除文件
        End If
    End If

    '************打开工作表***************
    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

[1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页

复制本页网址和标题，发送给你QQ/Msn的好友一起分享

上一篇:应用MapX编程实现地图数据查询

下一篇:实现货币金额中文大写转换的程序