从中我们对Excel VBA中非常重要的概念进行初步理解:工作簿是一个可以引用的对象,每个工作表也是一个可以引用的对象。但这些并不是Excel中唯一的对象,但简单地看一下工程资源管理器,它们就是这里显示的对象。 代码窗口 在工程资源管理器中,双击ThisWorkbook,将打开该Workbook对象的代码窗口。在该代码窗口顶部左侧的下拉列...
1)另存为带宏的工作簿 ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "新文件名", FileFormat:=xlOpenXMLWorkbookMacroEnabled 2)另存为早期的xls的工作簿(Excel 2002 2003等) ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "新文件名", FileFormat:=xlExcel8 3)另存为另一...
Set oAddIn =Application.AddIns.Add(ThisWorkbook.FullName, False) oAddIn.Installed = True RemoveEmptyBooks 第一行代码确保在Excel中至少打开一个工作簿窗口。最后一行关闭加载项打开的所有工作簿。为什么?因为当没有活动工作簿时你无法打开加载项对话框,显然这也会阻止Excel通过VBA将新加载项添加到列表中。 如果...
1、编写宏,打开VBA,双击ThisWorkbook对当前工作薄进行编写宏;双击Sheet1,对整个sheet编写宏; 或者创建模块,在模块里,编写、调试代码。 打开VBA的方法见第一讲,结合常用窗口进行编写、调试。 2、部分对象有提示,如Dim a As,敲击空格后有提示。 3、所有宏要运行,必须启动宏。(2007版启动宏,点击表格左上角 “exce...
ThisWorkbook:包含当前VBA代码的工作簿。 Workbooks集合:包含所有打开的工作簿的集合。 Dim wb As Workbook ' 获取当前活动的工作簿 Set wb = ActiveWorkbook ' 获取包含当前VBA代码的工作簿 Set wb = ThisWorkbook ' 获取名为"example.xlsx"的工作簿 Set wb = Workbooks("example.xlsx") ' 获取Workbooks集合中的...
ThisWorkbook对象是VBA顶级对象Application下的一个特殊对象,代表当前(VBA代码所在的)工作薄对象。 ActiveWorkbook对象也是VBA顶级对象Application下的一个特殊对象,代表当前激活的工作薄对象。 就跟我们在使用QQ聊天时一样,我们不可能同时单独地发信息给两个不同的QQ好友,只能有一个聊天窗口是被激活的。Excel也一样,当前...
此示例会关闭包含示例代码的工作簿。 不保存对工作簿的更改(如有)。 VB ThisWorkbook.Close SaveChanges:=False 支持和反馈 有关于 Office VBA 或本文档的疑问或反馈? 请参阅Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。 反馈 此页面是否有帮助? 是否...
属性可能失效。ThisWorkbook 总是返回宏执行时它所在的工作簿。例如,可以使用下列代码激活加载宏工作簿中存储的对话框工作表。ThisWorkbook.DialogSheets(1).Show 本属性仅可在 Microsoft Excel 内使用。不能使用此属性访问任何其它应用程序的工作簿。示例 本示例关闭包含示例代码的工作簿,不保存对工作簿的...
Application对象的**ThisWorkbook** 属性返回运行 Visual Basic 代码的工作簿。 在大多数情况下,这与活动工作簿相同。 但是,如果 Visual Basic 代码是加载项的一部分,则 ThisWorkbook 属性将不会返回活动工作簿。 事件 Activate 事件:激活工作簿、工作表、图表工作表或嵌入式图表时发生此事件。
我们可以使用VBA中的XMLHTTP对象来将数据提交到指定的网站。以下是示例代码: Sub SubmitData() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim lastRow As Long lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row Dim http As Object ...