vba新建工作簿.doc

新建工作簿参阅特性若要在 Visual Basic 中创建新的工作簿,请使用 Add 方法。下述过程创建了新的工作簿。Microsoft Excel 自动将该工作簿命名为“BookN ”,其中“N”是下一个可用的数字。新工作簿将成为活动工作簿。 Sub AddOne() End Sub 创建新工作簿更好的方法是将其分配给一个对象变量。下例中,由 Add 方法返回的 Workbook 对象分配给了对象变量 newBook 。然后,又设置了 newBook 的若干属性。使用对象变量可以很容易地控制新工作簿。 Sub AddNew() Set NewBook = With NewBook .Title ="All Sales" .Subject ="Sales" .SaveAs Filename:="" End With End Sub 打开工作簿参阅特性用 Open 方法打开一个工作簿时,该工作簿将成为 Workbooks 集合的成员。下述过程打开 C盘上名为 MyFolder 的文件夹中的 工作簿。 Sub OpenUp() ("C:\MyFolder\") End Sub 按索引编号引用工作表参阅特性编号是分配给工作表的连续数字,基于其工作表标签在同一类型的工作表之间的位置(按从左到右计数)。下述过程使用 Worksheets 属性激活活动工作簿上的第一张工作表。 Sub FirstOne() Worksheets(1).Activate End Sub 如果要处理所有类型的工作表(工作表、图表、模块和对话框编辑表),可使用 Sheets 属性。下述过程激活工作簿中的第四张工作表。 Sub FourthOne() Sheets(4).Activate End Sub 注释如果移动、添加或删除工作表,则编号顺序将会更改。按名称引用工作表参阅特性使用 Worksheets 属性和 Charts 属性可通过名称来标识工作表。下述语句激活活动工作簿中的不同工作表。 Worksheets("Sheet1").Activate Charts("Chart1").Activate DialogSheets("Dialog1").Activate 可用 Sheets 属性返回工作表、图表、模块或对话框编辑表; Sheets 集合包含了所有这些表。下例激活活动工作簿中的“Chart1 ”。 Sub ActivateChart() Sheets("Chart1").Activate End Sub 注释嵌入到工作表中的图表是 ChartObjects 集合的成员,而那些位于单独的工作表上的图表则属于 Charts 集合。将文档保存为网页参阅特性在Microsoft Excel 中,可以将工作簿、工作表、图表、区域、查询表、数据***表、打印区域或自动筛选区域保存到网页中。也可以直接在 Excel 中编辑 HTML 文件。将文档保存为网页将文档保存为网页是一个创建并保存 HTML 文件及任何支持文件的过程。若要完成此过程,请使用 SaveAs 方法,如下例所示,此示例将活动工作簿保存为“C:\Reports\ ”。 _Filename:="C:\Reports\", _ FileFormat:=xlHTML 自定义网页通过设置 DefaultWebOptions 对象和 WebOptions 对象的属性,用户可以自定义HTML 文档的外观、内容、浏览器支持、编辑支持、图形格式、屏幕分辨率、文件组织和编码。 DefaultWebOptions 对象包含应用程序级的属性。而任何具有相同名称的工作簿级属性设置(包含在 WebOptions 对象中)将优先于这些设置。设置完属性后,可使用 Publish 方法将工作簿、工作表、图表、区域、查询表、数据***表、打印区域或自动筛选区域保存到网页中。下例设置了不同的应用程序级属性,然后设置了活动工作簿的 AllowPNG 属性,而此设置将优先于应用程序级的默认设置。最后,本示例将区域保存为“C:\Reports\ ”。 With .RelyonVML =True .AllowPNG =True .PixelsPerInch =96 End With With ActiveWorkbook . =False With .PublishObjects(1) .FileNam