VBA中操作Excel常用方法总结
<p>要用VBA来关闭工作簿，用Workbook.Close 方法即可，而要退出Excel，则用Application.Quit 方法。<br />下面是一些代码示例： 关闭活动工作簿，如果工作簿有更改，提示是否保存：<br />
<div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code75805"><br />
Sub CloseWorkbook()<br />
ActiveWorkbook.Close<br />
End Sub</div><br />
如果要避免出现提示，可添加“SaveChanges”参数，如直接保存并关闭工作簿：</p>
<p><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code67519"><br />
Sub ClostAndSaveWorkbook()<br />
ActiveWorkbook.Close Savechanges:=True<br />
End Sub</div><br />
将上述代码中的“True”改为“False”，则直接关闭工作簿而不保存。<br />
关闭所有打开的工作簿，并提示是否保存：</p>
<p><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code45493"><br />
Sub CloseAllWorkbooks()<br />
On Error Resume Next<br />
Workbooks.Close<br />
End Sub</div><br />
退出Excel，并提示对有更改的工作簿进行保存：</p>
<p><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code85013"><br />
Sub QuitExcel()<br />
Application.Quit<br />
End Sub</div><br />
保存活动工作簿并退出Excel：<br />
<div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code66451"><br />
Sub SaveActiveWorkAndQuit()<br />
ActiveWorkbook.Save<br />
Application.Quit<br />
End Sub</div><br />
下面的代码在退出Excel时都不会提示是否保存工作簿。<br />
保存所有打开的工作簿并退出Excel：</p>
<p><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code48697"><br />
Sub SaveAllAndQuit()<br />
For Each wbk In Workbooks<br />
wbk.Save<br />
Next<br />
Application.Quit<br />
End Sub</div><br />
退出Excel，所有的改动都不保存：</p>
<p><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code75400"><br />
Sub QutiAndNoAlerts()<br />
Application.DisplayAlerts = False<br />
Application.Quit<br />
End Sub</div><br />
下面列举了一些VBA的常用操作：</p>
<p>打开一个新工作簿</p>
<p><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code95290"><br />
Workbooks.Add</div><br />
获得第一个工作簿的名称</p>
<p><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code62178"><br />
Workbooks(1).Name</div><br />
获得打开的工作簿数目<br />
<div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code61515"><br />
Workbooks.Count</div><br />
激活第二个打开的工作簿</p>
<p><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code36947"><br />
Workbooks(2).Activate</div><br />
激活工作簿Chap02.xls</p>
<p><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code10649"><br />
Workbooks("Chap02.xls").Activate</div><br />
当前活动的工作簿存盘为NewChap.xls</p>
<p><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code62987"><br />
ActiveWorkbook.SaveAs Filename:="NewChap.xls"</div><br />
关闭第一个工作簿<br />
<div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code5972"><br />
Workbooks(1).Close</div><br />
关闭当前活动的工作簿，不保存变化</p>
<p><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code30134"><br />
ActiveWorkbook.Close SaveChanges:=False</div><br />
关闭所有打开的工作簿</p>
<p><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code57647"><br />
Workbooks.Close</div><br />
如果你运行了最后一个例子，那么现在你所有的工作簿都已经关闭了。<br />
在你要在工作表上使用前，请确保先打开一个新工作簿。<br />
当你除了单个工作表时，你必须知道如何在工作簿里添加新的工作表，知道如何选择一个或一组工作表，知道如何命名、复制、移动和删除工作表。<br />
在VB里，每个任务都需要一个专门的方法或属性。</p>
<p>添加一个新工作表</p>
<p><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code21994"><br />
Worksheets.Add</div><br />
获得第一个工作表的名称</p>
<p><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code55510"><br />
Worksheets(1).Name</div><br />
选择名为“Sheet3”的工作表</p>
<p><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code28402"><br />
Worksheets(3).Select</div><br />
选择第一，第三和第四个工作表<br />
<div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code36284">Worksheets(Array(1,3,4)).Select</div><br />
激活名为“Sheet1”的工作表</p>
<p><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code86082"><br />
Worksheets(“Sheet1”).Activate</div><br />
将工作表“Sheet2”移动到工作表“Sheet1”之前</p>
<p><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code63246"><br />
Worksheets("Sheet2").Move Before:=Worksheets("Sheet1")</div><br />
重命名工作表“Sheet2”为“Expenses”</p>
<p><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code58310"><br />
Worksheets("Sheet2").Name = "Expenses"</div><br />
获得当前工作簿里的工作表数目</p>
<p><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code46561"><br />
Worksheets.Count</div><br />
删除当前工作簿里的工作表“Expenses”</p>
<p><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code81809"><br />
Worksheets("Expenses").Delete</div></p>
<div class="art_xg">
<b>您可能感兴趣的文章:</b><ul><li>Excel VBA连接并操作Oracle</li><li>excel vba 高亮显示当前行代码</li><li>excel vba 限制工作表的滚动区域代码</li><li>合并Excel工作薄中成绩表的VBA代码，非常适合教育一线的朋友</li><li>用vba实现将记录集输出到Excel模板</li><li>Python + selenium + requests实现12306全自动抢票及验证码破解加自动点击功能</li><li>python requests包的request()函数中的参数-params和data的区别介绍</li><li>python:解析requests返回的response(json格式)说明</li><li>基于python requests selenium爬取excel vba过程解析</li></ul>
</div>
</div>
<!--endmain-->
頁:
[1]