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
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 '保存excel文件
'***************************关闭excel对象*******************
if check1.value = vbchecked then
