VBA常用技巧代码解析

一_一

原帖由 menghuazhang 于 2009-2-22 12:10 发表
DelBlankRow过程删除工作表中已使用的区域的所有空行。
请教版主：

如果是删除sheet1中所有空行（不仅仅是已使用过的区域）如何实现？

你的问题我也这么想过,嘿嘿,我自己摸索出来了

wwjjjj

楼主功德无量，希望早日看到如何操作图片的东西

lining_911

为了大家的方便，辛苦您了！

zhenghua9256

wwjjjj

本想看看工作表如何复制，可惜没说到

hotdrummer

支持BZ

lanseqingren

版主劳苦功高

yql4688

版主加油啊

stec-chao

谢谢分享！学习！

yuanzhuping

技巧47         保存工作簿的方法
47-1        使用Save方法
       使用Workbook对象的Save方法保存工作簿的更改，如下面的代码所示。

1. #001  Sub SaveWork()
   
2. #002      ThisWorkbook.Save
   
3. #003  End Sub

复制代码

代码解析：
       SaveWork过程保存代码所在的工作簿的修改。
       Save方法保存指定工作簿所做的更改，语法如下：
expression.Save
       参数expression是必需的，该表达式返回一个Workbook对象。
       如果是第一次保存工作簿，请使用SaveAs方法为该文件指定文件名，请参阅技巧47-2。
47-2        直接保存为另一文件名
如果需要将工作簿另存为另一个文件名，可以使用Workbook对象的SaveAs方法，如下面的代码所示。

1. #001  Sub SaveAsWork()
   
2. #002      ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\123.xls"
   
3. #003  End Sub

复制代码

代码解析：
       SaveAsWork过程将代码所在的工作簿保存为“123”工作簿文件。
       Workbook对象的SaveAs方法使用另外一个不同的文件名保存对工作簿所做的更改，语法如下：
SaveAs(FileName,FileFormat,Password,WriteResPassword,ReadOnlyRecommended,CreateBackup,AccessMode,ConflictResolution,AddToMru,TextCodepage,TextVisualLayout,Local)
       其中，参数Filename可选，表示要保存文件的文件名的字符串。可包含完整路径，如果不指定路径，将文件保存到当前文件夹中。
       使用SaveAs方法将工作簿另存为新文件后，将关闭原工作簿文件。
47-3        保存工作簿副本
       如果用户希望工作簿在保存为另一文件名后，能继续编辑原工作簿，那么可以使用SaveCopyAs方法，如下面的代码所示。

1. #001  Sub SaveCopyWork()
   
2. #002      ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\123.xls"
   
3. #003  End Sub

复制代码

代码解析：
       SaveCopyWork过程使用SaveCopyAs方法保存代码所在的工作簿副本，并指定其名称。
       SaveCopyAs方法将指定工作簿的副本保存到文件，但不修改内存中的打开工作簿，语法如下：
SaveCopyAs(Filename)
       参数Filename是必需的，用于指定工作簿副本的文件名。