VB中使用EXCEL输出

日期：2008年3月16日作者：查看:[大字体中字体小字体]

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
[1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] 下一页
VB中使用EXCEL输出相关文章：
·不用双显卡 PowerPoint 2007也玩双显示输出
·Excel表格页码设置打印输出更直观
·免费绘图软件Paint.NET推出3.2正式版
·WCF Samples 运行出错的解决办法
·SQL Server中导入导出数据的三种方式
·Google放出Google Pack中国软件包
·Windows XP SP3最新测试版白皮书放出
·Photoshop轻松为照片调出艳丽色彩
·网站的出站链接优化注意事项
·去除视频中自动弹出网页
VB中使用EXCEL输出相关软件
·GTA IV宣传片第二弹放出
·《伦敦出租车》游戏试玩
·《超级出租车司机2006》试玩
·《出击飞龙》模拟器
·拿出你的激情
·《石器时代出租车》试玩
·温暖夜读—你必须有一样是出色的
·隐蔽出击
·闪出瞬间的風采（摄影图集）
·没有真爱-出卖自己四年

上一篇:大数阶乘的计算（三）

下一篇:vsprint打印实例

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

VB中使用EXCEL输出

精品推荐

热点TOP10

特别推荐