您的位置：程序门 -> vb -> 基础类



怎样保存用vb打开的excel啊!!!请教给位大侠,望回复,谢谢.


[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]


怎样保存用vb打开的excel啊!!!请教给位大侠,望回复,谢谢.
发表于：2007-03-25 23:05:09 楼主
本人用vb编了个程序来打开excel表格,并向其中插入数据,但是我的程序不能让excel保存这些数据,怎么做才能让excel保存呢.下面是我的代码:


'打开新建的文件
'定义excel
dim   excel_app,   excel_sheet   as   object


'向 "表纸 "中添加数据
'打开excel程序
set   excel_app   =   createobject（ "excel.application ")
'令excel表格可见
excel_app.visible   =   true
'打开excel   电子数据表
excel_app.workbooks.open   filename:=newfilepathandname
'设置活动的sheet

set   excel_sheet   =   excel_app.activeworkbook.sheets（ "表纸 ")   '只能打开一个表
'将数据填入指定表格中的指定位置
'写入文件编号
excel_sheet.cells（3,   35)   =   txtfilenum.text
'写入板类型
excel_sheet.cells（9,   5)   =   "对dpec制 "   &   txtboardtype.text   &   "板的样板进行可靠性评价，得出总结报告。 "
'写入生产型号
excel_sheet.cells（21,   13)   =   txtboardnum.text
'写入客户名称
excel_sheet.cells（22,   13)   =   txtclientname.text
'写入日期码
excel_sheet.cells（23,   13)   =   txtdatenum.text
'写入层数
excel_sheet.cells（21,   29)   =   txtboardlayers.text
'写入表面处理
excel_sheet.cells（24,   29)   =   txtboardsurface.text

'写入外形
excel_sheet.cells（23,   29)   =   txtddvalue1.text   &   "mm "   &   txtddvalue2.text   &   "mm "
'写入板厚
excel_sheet.cells（22,   29)   =   txttdvalue.text   &   "+ "   &   txttstdbigvalue.text   &   "/- "   &   txttstdsmlvalue.text   &   "mm "
'关闭excel的active表
       
        excel_app.activeworkbook.close   false

'   close   excel.   ‘关闭excel程序
        excel_app.quit
        set   excel_sheet   =   nothing
        set   excel_app   =   nothing
发表于：2007-03-26 00:47:211楼 得分:0

'写入板厚
excel_sheet.cells（22,   29)   =   txttdvalue.text   &   "+ "   &   txttstdbigvalue.text   &   "/- "   &   txttstdsmlvalue.text   &   "mm "
-------------------------------------------------
excel_app.activeworkbook.save
-------------------------------------------------
'关闭excel的active表
       
        excel_app.activeworkbook.close   false

发表于：2007-03-26 08:27:542楼 得分:0
'**************************
xlsworkbooks.save
'**************************
xlsworkbooks.close
xlsapp.quit
set   xlsworksheets   =   nothing
set   xlsworkbooks   =   nothing
set   xlsapp   =   nothing
加上save
发表于：2007-03-26 11:45:263楼 得分:0
在写入excel表结束以后
关闭之前要保存
利用workbook的save方法来实现该功能
在你的代码中就是这样的：
excel_app.activeworkbook.save
添加到操作excel的代码之后，关闭之前

发表于：2007-03-27 09:26:264楼 得分:0
save或save   as命令你应该要知道

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击