Office2003和2007中VBA的区别

jingtianfeipeng

我以前学过一段时间的VBA，是在Office2003中运用的，但是后来有一段时间没有用，现在不是很熟悉了。最近想重新学习VBA，但是现在Office2007的运用比两年前要广泛了，而且据说不少在Office2003中可以正常运行的，放到Office2007中就不行了。我想问一下，究竟有什么主要区别呢？怎样才能写出在Office2003和2007中都兼容的VBA代码呢？

wangminbai

Excel 开发人员参考
自 Microsoft Office 2003 以来的对象模型更改
全部显示
全部隐藏

下面是与 Microsoft Office 2003 相比的 Microsoft Office Excel 2007 对象模型更改的摘要。

Application
属性 状态
FileFind 隐藏
FileSearch 隐藏

方法 状态
AddChartAutoFormat 隐藏
DeleteChartAutoFormat 隐藏
SetDefaultChart 隐藏

AxisTitle
属性 状态
AutoScaleFont 隐藏
Border 隐藏
Fill 隐藏
Font 隐藏
Interior 隐藏

Chart
属性 状态
Area3DGroup 隐藏
Bar3DGroup 隐藏
Column3DGroup 隐藏
Corners 隐藏
HasPivotFields 隐藏
Line3DGroup 隐藏
Pie3DGroup 隐藏
ProtectGoalSeek 隐藏
Scripts 隐藏
ShowWindow 隐藏
SizeWithWindow 隐藏
SurfaceGroup 隐藏
WallsAndGridlines2D 隐藏

方法 状态
ApplyCustomType 隐藏
AreaGroups 隐藏
BarGroups 隐藏
ColumnGroups 隐藏
CreatePublisher 隐藏
Deselect 隐藏
DoughnutGroups 隐藏
LineGroups 隐藏
PieGroups 隐藏
RadarGroups 隐藏
XYGroups 隐藏

事件 状态
DragOver 隐藏
DragPlot 隐藏

ChartArea
属性 状态
AutoScaleFont 隐藏
Border 隐藏
Fill 隐藏
Font 隐藏
Interior 隐藏

ChartColorFormat
隐藏

ChartFillFormat
隐藏

ChartObject
属性 状态
Border 隐藏
Enabled 隐藏
Interior 隐藏

ChartObjects
属性 状态
Border 隐藏
Enabled 隐藏
Interior 隐藏
RoundedCorners 隐藏
Shadow 隐藏

方法 状态
BringToFront 隐藏
SendToBack 隐藏

ChartTitle
属性 状态
AutoScaleFont 隐藏
Border 隐藏
Fill 隐藏
Font 隐藏
Interior 隐藏

Corners
隐藏

CubeField
属性 状态
Caption 已更改
以前的语法

READ-ONLY Caption [STRING]

新语法

READ-WRITE Caption [STRING]

HiddenLevels 隐藏

方法 状态
AddMemberPropertyField 已更改
以前的语法

VOID AddMemberPropertyField (STRING Property, OPTIONAL VARIANT PropertyOrder)

新语法

VOID AddMemberPropertyField (STRING Property, OPTIONAL VARIANT PropertyOrder, OPTIONAL VARIANT PropertyDisplayedIn)


DataLabel
属性 状态
AutoScaleFont 隐藏
Border 隐藏
Fill 隐藏
Font 隐藏
Interior 隐藏
Type 隐藏

DataLabels
属性 状态
AutoScaleFont 隐藏
Border 隐藏
Fill 隐藏
Font 隐藏
Interior 隐藏
Type 隐藏

DataTable
属性 状态
AutoScaleFont 隐藏

Diagram
隐藏

DiagramNode
隐藏

DiagramNodeChildren
隐藏

DiagramNodes
隐藏

DisplayUnitLabel
属性 状态
AutoScaleFont 隐藏
Border 隐藏
Fill 隐藏
Font 隐藏
Interior 隐藏

DownBars
属性 状态
Border 隐藏
Fill 隐藏
Interior 隐藏

Filter
属性 状态
Operator 已更改
以前的语法

READ-ONLY Operator [XLAUTOFILTEROPERATOR]

新语法

READ-WRITE Operator [XLAUTOFILTEROPERATOR]


Floor
属性 状态
Border 隐藏
Fill 隐藏
Interior 隐藏

Font
属性 状态
OutlineFont 隐藏
Shadow 隐藏

FormatCondition
方法 状态
Modify 已更改
以前的语法

VOID Modify (XLFORMATCONDITIONTYPE Type, OPTIONAL VARIANT Operator, OPTIONAL VARIANT Formula1, OPTIONAL VARIANT Formula2)

新语法

VOID Modify (XLFORMATCONDITIONTYPE Type, OPTIONAL VARIANT Operator, OPTIONAL VARIANT Formula1, OPTIONAL VARIANT Formula2, OPTIONAL VARIANT String, OPTIONAL VARIANT Operator2)


FormatConditions
方法 状态
Add 已更改
以前的语法

FORMATCONDITION Add (XLFORMATCONDITIONTYPE Type, OPTIONAL VARIANT Operator, OPTIONAL VARIANT Formula1, OPTIONAL VARIANT Formula2)

新语法

OBJECT Add (XLFORMATCONDITIONTYPE Type, OPTIONAL VARIANT Operator, OPTIONAL VARIANT Formula1, OPTIONAL VARIANT Formula2, OPTIONAL VARIANT String, OPTIONAL VARIANT TextOperator, OPTIONAL VARIANT DateOperator, OPTIONAL VARIANT ScopeType)

Item 已更改
以前的语法

FORMATCONDITION Item (VARIANT Index)

新语法

OBJECT Item (VARIANT Index)


Legend
属性 状态
AutoScaleFont 隐藏
Border 隐藏
Fill 隐藏
Font 隐藏
Interior 隐藏

LegendEntry
属性 状态
AutoScaleFont 隐藏

LegendKey
属性 状态
Border 隐藏
Fill 隐藏
Interior 隐藏
PictureUnit 隐藏

方法 状态
Select 隐藏

ListColumn
属性 状态
ListDataFormat 隐藏
SharePointFormula 隐藏

ListObject
方法 状态
UpdateChanges 隐藏

ListObjects
方法 状态
Add 已更改
以前的语法

LISTOBJECT Add (OPTIONAL XLLISTOBJECTSOURCETYPE SourceType = 1, OPTIONAL VARIANT Source, OPTIONAL VARIANT LinkSource, OPTIONAL XLYESNOGUESS XlListObjectHasHeaders = 0, OPTIONAL VARIANT Destination)

新语法

LISTOBJECT Add (OPTIONAL XLLISTOBJECTSOURCETYPE SourceType = 1, OPTIONAL VARIANT Source, OPTIONAL VARIANT LinkSource, OPTIONAL XLYESNOGUESS XlListObjectHasHeaders = 0, OPTIONAL VARIANT Destination, OPTIONAL VARIANT TableStyleName)


ListRow
属性 状态
InvalidData 隐藏

ListRows
方法 状态
Add 已更改
以前的语法

LISTROW Add (OPTIONAL VARIANT Position)

新语法

LISTROW Add (OPTIONAL VARIANT Position, OPTIONAL VARIANT AlwaysInsert)


PageSetup
属性 状态
ChartSize 隐藏

PivotCaches
方法 状态
Add 隐藏

PivotField
方法 状态
AutoSort 已更改
以前的语法

VOID AutoSort (INT32 Order, STRING Field)

新语法

VOID AutoSort (INT32 Order, STRING Field, OPTIONAL VARIANT PivotLine, OPTIONAL VARIANT CustomSubtotal)


PivotTable
属性 状态
HasAutoFormat 隐藏
ShowCellBackgroundFromOLAP 隐藏
TableStyle 隐藏

方法 状态
Format 隐藏

PlotArea
属性 状态
Border 隐藏
Fill 隐藏
InsideHeight 已更改
以前的语法

READ-ONLY InsideHeight [DOUBLE]

新语法

READ-WRITE InsideHeight [DOUBLE]

InsideLeft 已更改
以前的语法

READ-ONLY InsideLeft [DOUBLE]

新语法

READ-WRITE InsideLeft [DOUBLE]

InsideTop 已更改
以前的语法

READ-ONLY InsideTop [DOUBLE]

新语法

READ-WRITE InsideTop [DOUBLE]

InsideWidth 已更改
以前的语法

READ-ONLY InsideWidth [DOUBLE]

新语法

READ-WRITE InsideWidth [DOUBLE]

Interior 隐藏

Point
属性 状态
Border 隐藏
Fill 隐藏
Interior 隐藏
PictureUnit 隐藏

Range
属性 状态
FormulaLabel 隐藏

方法 状态
AutoFormat 隐藏
CreatePublisher 隐藏
GoalSeek 隐藏

Series
属性 状态
Border 隐藏
Fill 隐藏
Interior 隐藏
PictureUnit 隐藏

方法 状态
ApplyCustomType 隐藏

Shape
属性 状态
Diagram 隐藏
DiagramNode 隐藏
HasDiagram 隐藏
HasDiagramNode 隐藏
Script 隐藏

ShapeRange
属性 状态
Diagram 隐藏
DiagramNode 隐藏
HasDiagram 隐藏
HasDiagramNode 隐藏

Shapes
方法 状态
AddDiagram 隐藏

Sheets
方法 状态
PrintOut 已更改
以前的语法

VOID PrintOut (OPTIONAL VARIANT From, OPTIONAL VARIANT To, OPTIONAL VARIANT Copies, OPTIONAL VARIANT Preview, OPTIONAL VARIANT ActivePrinter, OPTIONAL VARIANT PrintToFile, OPTIONAL VARIANT Collate, OPTIONAL VARIANT PrToFileName)

新语法

VOID PrintOut (OPTIONAL VARIANT From, OPTIONAL VARIANT To, OPTIONAL VARIANT Copies, OPTIONAL VARIANT Preview, OPTIONAL VARIANT ActivePrinter, OPTIONAL VARIANT PrintToFile, OPTIONAL VARIANT Collate, OPTIONAL VARIANT PrToFileName, OPTIONAL VARIANT IgnorePrintAreas)


TickLabels
属性 状态
AutoScaleFont 隐藏

Trendline
属性 状态
Backward 隐藏
Forward 隐藏

UpBars
属性 状态
Border 隐藏
Fill 隐藏
Interior 隐藏

Walls
属性 状态
Border 隐藏
Fill 隐藏
Interior 隐藏

Workbook
属性 状态
AcceptLabelsInFormulas 隐藏
HasRoutingSlip 隐藏
HTMLProject 隐藏
Routed 隐藏
RoutingSlip 隐藏

方法 状态
CheckIn 已更改
以前的语法

VOID CheckIn (OPTIONAL VARIANT SaveChanges, OPTIONAL VARIANT Comments, OPTIONAL VARIANT MakePublic)

新语法

VOID CheckIn (OPTIONAL VARIANT SaveChanges, OPTIONAL VARIANT Comments, OPTIONAL VARIANT MakePublic, OPTIONAL VARIANT VersionType)

PrintOut 已更改
以前的语法

VOID PrintOut (OPTIONAL VARIANT From, OPTIONAL VARIANT To, OPTIONAL VARIANT Copies, OPTIONAL VARIANT Preview, OPTIONAL VARIANT ActivePrinter, OPTIONAL VARIANT PrintToFile, OPTIONAL VARIANT Collate, OPTIONAL VARIANT PrToFileName)

新语法

VOID PrintOut (OPTIONAL VARIANT From, OPTIONAL VARIANT To, OPTIONAL VARIANT Copies, OPTIONAL VARIANT Preview, OPTIONAL VARIANT ActivePrinter, OPTIONAL VARIANT PrintToFile, OPTIONAL VARIANT Collate, OPTIONAL VARIANT PrToFileName, OPTIONAL VARIANT IgnorePrintAreas)

ProtectSharing 已更改
以前的语法

VOID ProtectSharing (OPTIONAL VARIANT Filename, OPTIONAL VARIANT Password, OPTIONAL VARIANT WriteResPassword, OPTIONAL VARIANT ReadOnlyRecommended, OPTIONAL VARIANT CreateBackup, OPTIONAL VARIANT SharingPassword)

新语法

VOID ProtectSharing (OPTIONAL VARIANT Filename, OPTIONAL VARIANT Password, OPTIONAL VARIANT WriteResPassword, OPTIONAL VARIANT ReadOnlyRecommended, OPTIONAL VARIANT CreateBackup, OPTIONAL VARIANT SharingPassword, OPTIONAL VARIANT FileFormat)

Route 隐藏

Worksheet
属性 状态
Scripts 隐藏

方法 状态
PrintOut 已更改
以前的语法

VOID PrintOut (OPTIONAL VARIANT From, OPTIONAL VARIANT To, OPTIONAL VARIANT Copies, OPTIONAL VARIANT Preview, OPTIONAL VARIANT ActivePrinter, OPTIONAL VARIANT PrintToFile, OPTIONAL VARIANT Collate, OPTIONAL VARIANT PrToFileName)

新语法

VOID PrintOut (OPTIONAL VARIANT From, OPTIONAL VARIANT To, OPTIONAL VARIANT Copies, OPTIONAL VARIANT Preview, OPTIONAL VARIANT ActivePrinter, OPTIONAL VARIANT PrintToFile, OPTIONAL VARIANT Collate, OPTIONAL VARIANT PrToFileName, OPTIONAL VARIANT IgnorePrintAreas)


Worksheets
方法 状态
PrintOut 已更改
以前的语法

VOID PrintOut (OPTIONAL VARIANT From, OPTIONAL VARIANT To, OPTIONAL VARIANT Copies, OPTIONAL VARIANT Preview, OPTIONAL VARIANT ActivePrinter, OPTIONAL VARIANT PrintToFile, OPTIONAL VARIANT Collate, OPTIONAL VARIANT PrToFileName)

新语法

VOID PrintOut (OPTIONAL VARIANT From, OPTIONAL VARIANT To, OPTIONAL VARIANT Copies, OPTIONAL VARIANT Preview, OPTIONAL VARIANT ActivePrinter, OPTIONAL VARIANT PrintToFile, OPTIONAL VARIANT Collate, OPTIONAL VARIANT PrToFileName, OPTIONAL VARIANT IgnorePrintAreas)

jingtianfeipeng

哦，好的。现在的问题是，公司里有人用2003，有人用2007，写个VBA，还要兼顾二者。

jingtianfeipeng

谢谢。

根据你的回答，是不是说VBA在Office2007下的功能不如在Office2003下强大？

wangminbai

新的对象、集合和枚举

新的对象和集合
下列对象和集合已添加到 Microsoft Office Excel 2007 对象模型中。

对象或集合 说明
AboveAverage 本主题供将来增添内容使用。初步文档中包括此主题是为了说明最终内容的结构提议。
Action 本主题供将来增添内容使用。初步文档中包括此主题是为了说明最终内容的结构提议。
Actions 本主题供将来增添内容使用。初步文档中包括此主题是为了说明最终内容的结构提议。
ChartFormat 提供对图表元素艺术字格式的访问。  
ChartView 代表图表的视图。
ColorScale 代表色阶条件格式规则。
ColorScaleCriteria 代表色阶条件格式的所有条件的 ColorScaleCriterion 对象的集合。每个条件指定了色阶的最小、中点或最大阈值。
ColorScaleCriterion 代表颜色格式条件格式的最小、中点或最大阈值的条件。
ColorStop   
ColorStops   
ConditionValue 代表数据条条件格式规则计算最短数据条和最长数据条的方法。
Connections 本主题供将来增添内容使用。初步文档中包括此主题是为了说明最终内容的结构提议。
Databar 代表数据条条件格式规则。通过对范围应用数据条，有助于查看相对于其他单元格的单元格的值。
DialogSheetView 本主题供将来增添内容使用。初步文档中包括此主题是为了说明最终内容的结构提议。
FormatColor 代表为色阶条件格式阈值指定的填充色或数据条条件格式的条形颜色。
HeaderFooter 代表一个单独的页眉或页脚。HeaderFooter 对象是 HeadersFooters 集合的一个成员。HeadersFooters 集合包含指定工作簿部分中的所有页眉和页脚。
Icon 代表用于条件格式规则的图标集中的单个图标。
IconCriteria 代表 IconCriterion 对象的集合。每个 IconCriterion 代表图标集条件格式规则中每个图标的值和阈值类型。
IconCriterion 代表图标集中单个图标的条件。此条件指定了值的范围以及与图标集条件格式规则中的图标关联的阈值类型。
IconSet 代表用于图标集条件格式规则的单一图标集。
IconSetCondition 代表图标集条件格式规则。
IconSets 代表用于图标集条件格式规则的图标集的集合。
LinearGradient LinearGradient 对象沿特定角度以线性方式在一系列颜色间转换。
ModuleView 本主题供将来增添内容使用。初步文档中包括此主题是为了说明最终内容的结构提议。
MultiThreadedCalculation   
ODBCConnection 代表 ODBC 连接。
OLEDBConnection 代表 OLE DB 连接。
Page 代表工作簿中的页面。使用 PageSetup 对象及相关方法和属性可通过编程方式定义工作簿的页面布局。
Pages 文档中页面的集合。使用 Pages 集合及相关对象和属性可通过编程方式定义工作簿的页面布局。
PivotAxis PivotAxis 对象用于在数据透视表中进行不对称深化。
PivotFilter 一个 PivotFilter 应用于一个 PivotField 对象。
PivotFilters PivotFilters 对象是 PivotFilter 对象的集合。
PivotLine PivotLine 对象是 Excel 数据透视表中的行或列的线条。  
PivotLineCells 特定 PivotLine 的 PivotCell 对象的集合。
PivotLines PivotLines 对象是数据透视表中线条的集合，其中包含数据透视表中行或列上的所有线条。每个线条都是一组 PivotCells。
Ranges Range 对象的集合，这些对象代表工作簿中的工作表。
RectangularGradient RectangularGradient 对象沿特定角度以线性方式在一系列颜色间转换。
Research 本主题供将来增添内容使用。初步文档中包括此主题是为了说明最终内容的结构提议。
ServerViewableItems 一个对象集合，这些对象已在服务器上标记为可查看。
SheetViews 本主题供将来增添内容使用。初步文档中包括此主题是为了说明最终内容的结构提议。
Sort 本主题供将来增添内容使用。初步文档中包括此主题是为了说明最终内容的结构提议。
SortField SortField 对象包含 Worksheet、Lists 和 AutoFilter 对象的所有排序信息。
SortFields SortFields 集合是 SortField 对象的集合。它允许开发人员存储工作簿、列表和自动筛选的排序状态。  
TableStyle 代表可应用于表格的单个样式。
TableStyleElement 代表单个表格样式元素。
TableStyleElements 代表表格样式元素。
TableStyles 代表可应用于表格的样式。
TextFrame2 代表 Shape、ShapeRange 或 ChartFormat 对象中的文本框架。  
Top10 本主题供将来增添内容使用。初步文档中包括此主题是为了说明最终内容的结构提议。
UniqueValues UniqueValues 对象使用 DupeUnique 属性返回或设置一个枚举，该枚举确定规则是应查找区域内的重复值还是唯一值。  
WorkbookConnection 连接是从 Microsoft Office Excel 2007 工作簿以外的外部数据源获取数据所需的一组信息。  
WorksheetView 本主题供将来增添内容使用。初步文档中包括此主题是为了说明最终内容的结构提议。

新枚举
下列枚举已添加到 Microsoft Office Excel 2007 的对象模型中。

枚举 说明
XlAboveBelow 指定值是高于还是低于平均值。
XlActionType 指定应执行的操作。
XlCalcFor 指定应计算的内容。
XlChartElementPosition 指定图表元素的位置。
XlCheckInVersionType 指定在使用 CheckIn 方法时签入文档的版本类型。适用于存储在 SharePoint 库中的文档。
XlConditionValueTypes 指定可以使用的条件值的类型。
XlConnectionType 指定数据库连接的类型。
XlContainsOperator 指定函数中使用的运算符。
XlCredentialsMethod 指定使用的凭据方法的类型。
XlCubeFieldSubType 指定 CubeField 的子类型。
XlDupeUnique 指定是应显示重复值还是唯一值。
XlDynamicFilterCriteria 指定筛选条件。
XlFilterAllDatesInPeriod 指定给定期间内日期的筛选方式。
XlFixedFormatQuality 指定以不同固定格式保存的电子表格的质量。
XlFixedFormatType 指定文件格式的类型。
XlFormatFilterTypes 指定格式筛选的类型。
XLGenerateTableRefs 指定表引用的类型。
XlGradientFillType 指定 gradient fill 的类型。
XlIconSet 指定图标集的类型。
XlLayoutRowType 指定布局行的类型。
XlLookFor 指定要在搜索中查找的内容。
XlMeasurementUnits 指定度量单位。
XlPivotConditionScope 此枚举指定用于从 PivotTable 对象中筛选值的条件格式。
XlPivotFilterType 应用的筛选器的类型。
XlPivotLineType 指定 PivotLine 的类型。
XlPropertyDisplayedIn 指定显示属性的位置。
XlRemoveDocInfoType 指定要从文档信息中删除的类型信息。
XlRgbColor 指定 RGB 颜色。
XlRobustSave 指定可靠保存的类型。
XlSortOn 指定要按其对数据排序的参数。
XlStdColorScale 指定标准色阶。
XlTableStyleElementType 指定使用的表样式元素。
XlThemeColor 指定要使用的主题颜色。
XlThemeFont 指定要使用的主题字体。
XlThreadMode 指定多线程计算模式的控制方式。
XlTimePeriods 指定时间段。
XlTopBottom 指定一系列值中从上或从下开始的前 10 个值。

jingtianfeipeng

哦，看来是都要学习了，哎。

andysky

原帖由 jingtianfeipeng 于 2009-1-2 17:58 发表
谢谢。

根据你的回答，是不是说VBA在Office2007下的功能不如在Office2003下强大？

相反，2007隐藏一些功能，但添加了更多的功能。
2007的VBA显然强过2003

ynkmxiyue

哪么好的帖子，没有多少沙发呀

ynkmxiyue

2003都还没有搞清，又来2007，2007还没搞懂，现又是2010，真是赶不上呀

zanjero

不习惯，两个有用的图表事件被隐藏了很可惜