Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
楼主: hnnyfcykl

[函数] VB函数

  [复制链接]
发表于 2010-4-18 11:40 | 显示全部楼层

<p>我是来学习的,下来看看再说!</p>
回复

使用道具 举报

发表于 2010-4-18 23:21 | 显示全部楼层
回复

使用道具 举报

发表于 2010-4-19 13:43 | 显示全部楼层
回复

使用道具 举报

发表于 2010-4-19 15:33 | 显示全部楼层

<p>=====================================================================<br/>1.本示例关闭 Book1.xls</p><p>不保存:</p><p>Workbooks("BOOK1.XLS").Close SaveChanges:=False</p><p>保存:<br/>&nbsp;<br/>Workbooks("BOOK1.XLS").Close SaveChanges:=True</p><p><br/>=====================================================================<br/>2.下述过程打开 C 盘上名为 MyFolder 的文件夹中的 MyBook.xls 工作簿</p><p>Workbooks.Open ("C:\MyFolder\MyBook.xls")</p><p>只读</p><p>Workbooks.Open ("C:\MyFolder\MyBook.xls"), ReadOnly:=True</p><p><br/>=====================================================================<br/>3.本示例保存所有打开的工作簿,然后关闭 Microsoft Excel </p><p>For Each w In Application.Workbooks <br/>w.Save <br/>Next w <br/>Application.Quit </p><p><br/>=====================================================================<br/>4.用单元格A1的内容作为文件名保存当前工作簿的宏</p><p>ActiveWorkbook.SaveCopyAs Range("A1") + ".xls"</p><p>ActiveWorkbook.SaveCopyAs Str(Range("Sheet1!A1")) + ".xls" </p><p><br/>=====================================================================</p>
回复

使用道具 举报

发表于 2010-4-21 10:52 | 显示全部楼层

//
回复

使用道具 举报

发表于 2010-4-21 16:35 | 显示全部楼层

<p>唉,都来这一招</p>
回复

使用道具 举报

发表于 2010-4-21 19:43 | 显示全部楼层

rhf rhf rhf rhf rhf rhf q s rhf rhf
回复

使用道具 举报

发表于 2010-4-22 14:19 | 显示全部楼层

<p>学习</p>
回复

使用道具 举报

发表于 2010-4-22 15:45 | 显示全部楼层

学习。。。。。。。。。。。。。。。。。
回复

使用道具 举报

发表于 2010-4-26 14:10 | 显示全部楼层

学习
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-7 12:39 , Processed in 0.112020 second(s), 6 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表