2014年2月26日

摘要： 8.1 引用Range引用Range的主要方法：Application.ActiveCellApplication.RangeApplication.SelectionWorksheet.CellsWorksheet.ColumnsWorksheet.RangeWorksheet.RowsWorksheet.UsedRangeCurrentRegion, NamedRange代码清单8.1：使用Application对象引用RangeSub ReferringToRangesI() Dim rg As Range 'ActiveCell is a range repr... 阅读全文

摘要： 7.1 设置阶段代码清单7.1：使用Parent属性获得一个对象的父对象的指针'使用Parent属性获得一个对象的父对象的指针Sub MeetMySingleParent() 'Declare a worksheet variable named ws Dim ws As Worksheet 'set ws to refer to sheet 1 Set ws = ThisWorkbook.Worksheets("Sheet1") 'please meet my parent - Mrs. Workbook Debug.Print ws.Pa 阅读全文

摘要： 6.1 在奔跑之前先学会走路：打开和关闭工作薄代码清单6.1：一个完整的工作薄批处理框架'代码清单6.1:一个完整的工作薄批处理框架 Sub ProcessFileBatch() Dim nIndex As Integer Dim vFiles As Variant Dim wb As Workbook Dim bAlreadyOpen As Boolean On Error GoTo ErrHandler 'Get a batch of Excel files vFiles = GetExcelFiles("Sele... 阅读全文