| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 489 人关注过本帖
标题:谁能帮我看看我这个程序应该加点什么才能保存Excel呢,最好可以帮我写出来, ...
取消只看楼主 加入收藏
孙东东007
Rank: 1
等 级:新手上路
帖 子:45
专家分:0
注 册:2015-4-9
结帖率:77.78%
收藏
已结贴  问题点数:20 回复次数:1 
谁能帮我看看我这个程序应该加点什么才能保存Excel呢,最好可以帮我写出来,感激不尽!!
Private Sub Command1_Click()
n = Val(Text5.Text)
d = Val(Text6.Text)
vd = 3.14 / 60 * n * d * 0.1 * 0.1 * 0.1
Text2.Text = vd
If IsNumeric(Text2.Text) = True And Val(Text2.Text) <= 70 Then
 Text2.Text = Round(Val(Text2.Text), 2)
Else: MsgBox "数值不符合"
End If
If Dir("E:\VB程序(千万别动)\excel.bz") = "" Then '
Set xlApp = CreateObject("Excel.Application") '
xlApp.Visible = True '
Set xlBook = xlApp.Workbooks.Open("E:\VB程序(千万别动)\数据.xls") '
Set xlsheet = xlBook.Worksheets(1) '
xlsheet.Activate '
xlsheet.Cells(12, 2) = Val(Text2.Text)
xlBook.RunAutoMacros (xlAutoOpen)
Else
MsgBox ("EXCEL已打开")
End If
If Dir("E:\VB程序(千万别动)\excel.bz") = "" Then
xlBook.RunAutoMacros (xlAutoClose)
xlBook.Close (True)
xlApp.Quit
End If
End Sub
主要就是不能自动保存,跪求~~~着急
搜索更多相关主题的帖子: Excel 最好 
2015-06-13 14:52
孙东东007
Rank: 1
等 级:新手上路
帖 子:45
专家分:0
注 册:2015-4-9
收藏
得分:0 
大哥,大姐们,我是真不会了,我是菜鸟,别卖关子,就告诉我怎么写进去就行了
2015-06-13 14:57
快速回复:谁能帮我看看我这个程序应该加点什么才能保存Excel呢,最好可以帮我写 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.028546 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved