Excel属性及方法使用.docx
《Excel属性及方法使用.docx》由会员分享，可在线阅读，更多相关《Excel属性及方法使用.docx（20页珍藏版）》请在冰豆网上搜索。
Excel属性及方法使用
Excel8属性及方法使用
————————————————————————————————作者：
————————————————————————————————日期：
未完成工作错误列表:
1、Style.DiagLineTopRightToBottomLeftLong整型赋值错误
一、ClassGMU创建的全局成员
公共方法
CreateExcelCellStyle
创建单元格样式
CreateExcelFont
创建字体
CreateExcelFooter
创建打印页脚
CreateExcelHeader
创建打印页眉
CreateExcelFormat
创建格式字符串
CreateExcelPrintSetup
创建打印设置对象
CreateExcelWorkbook
创建Excel表
FunctionCreateExcelCellStyle（）AsExcelCellStyle
FunctionCreateExcelFont（）AsExcelFont
FunctionCreateExcelFooter（）AsExcelFooter
FunctionCreateExcelFormat（）AsExcelFormat
FunctionCreateExcelHeader（）AsExcelHeader
FunctionCreateExcelPrintSetup（）AsExcelPrintSetup
FunctionCreateExcelWorkbook（）AsExcelWorkbook
二、类ExcelWorkbookExcel表处理类
公共属性
password
设置Excel保护密码
Getsheet（index）
返回Excel页对象ExcelSheet
OpenExcelInstance
打开对应的Excel）
Helper
工具类，帮助行列的转换
PropertypasswordAsString设置Excel保护密码
wbook。
password=“123456"
PropertyGetSheet（sheet）AsExcelWorksheet获取页面
DimwsheetAsExcelWorksheet
Setwsheet=wbook.GetSheet（“sheet1"）
Setwsheet=wbook.GetSheet（0）
PropertyOpenExcelInstanceAsBoolean
wbook.OpenExcelInstance=True
PropertyhelperAsExcelHelper只读
工具类，帮助行列的转换
wbook.helper。
ConvertColRowToAreaRef（2,2,5，5）
wbook.helper.ConvertColRowToRef（2,2,2）
公共方法
CreateSheet
创建sheet页面
Save
保存Excel文件
SetActiveSheet（sheet）
设置ExcelSheet的激活页面
SetDefaultFont
设置Excel中默认字体，字号
FunctionCreateSheet（[sSheetNameAsString]，［bVisibleAsBoolean=True］）AsExcelWorksheet
创建sheet页面
[sSheetName］:
页签名
［bVisible］：
是否显示本页
Callwbook.CreateSheet（"firstsheet”）
Setwsheet=wbook。
CreateSheet（”Sheet5"）
SubSave（fnameAsString）保存Excel文件名
Fname：
excel文件名
callWbook.save（“”）
SubSetDefaultFont（NameAsString，SizeAsLong）
Name：
字体名称
Size:
字号
wbook.SetDefaultFont”黑体"，12
SubSetActiveSheet（sheet）
Sheet:
页面名称或者页面序号
三、ExcelWorksheetExcel页
公共属性
Footer
设置页脚
GridlineColour
表格线的颜色
Gridlines
是否显示表格线
Header
设置页眉
PrintSetup
打印设置
ScaleFactor
打印比率
Selected
设置选中页面
sheetHeaders
是否显示页顶部的列标签（如:
ABCDE）
wsheet。
SheetHeaders=True
showFormalas
是否显示公式
wsheet.ShowFormulas=True
ShowZeroValues
是否显示零值
Visible
是否可见
Wsheet.visible=true
PropertyFooterAsExcelFooter
DimoFooterAsExcelFooter
SetoFooter=CreateExcelFooter（）
CalloFooter。
StartLeftSection
oFooter。
AddText"左边”
PropertyGridlineColourAsenumColours页表格线的颜色
wsheet.GridlineColour=cBlue
PropertyGridLinesAsBoolean是否显示表格线
wsheet。
GridLines=False
PropertyHeaderAsExcelHeader页眉Dimoheaderasexcelheader
Setoheader=createexcelheader（）
Calloheader。
startleftsection
oheader。
addtext”左边"
PropertyPrintSetupAsExcelPrintSetup打印设置
DimpSetupAsExcelPrintSetup
SetpSetup=CreateExcelPrintSetup（）
pSetup.CenterHorizontally=True’
Setwsheet。
PrintSetup=pSetup
.CenterHorizontally=True
。
HeaderMargin=0。
5
.FitPagesWide=1
.FitPagesHigh=1
.BottomMargin=1。
5
。
Orientation=oLandscape
EndWith
PropertyScaleFactorAsInteger打印缩放比率
wsheet。
ScaleFactor=95‘打印原稿的95%
PropertySelectedAsBoolean设置选中页面
wsheet。
Selected=False
公共方法
AddBorder
加边框线
AddCell
单个单元格插入数据
AddCells
增加单元格
AddTable
插入表格
AverageRows
求平均值
SumRows
同上
CountRows
行数
DeleteCells
删除单元格
GetCell
单元格返回
GetRow
单元格一行返回
MergeCells
合并单元格
SetColumnStyle
设置列格式（样式）
SetStyle
设置区域样式
SumRows
设置求和
PublicSubAddBorder（columnFromAsInteger,rowFromAsInteger，columnToAsInteger，rowToAsInteger，borderStyleAsenumLineStyle，OptionalBorderColourAsenumColours=cSystemBorder）
Addaborderaroundablockofcells
wsheet。
AddBorder1,1,3,3，xfbtDouble
FunctionAddCell（columnNumberAsInteger，rowNumberAsInteger,OptionalvValueAsVariant,OptionaloCellStyleAsExcelCellStyle）AsExcelCell
wsheet。
AddCell1，1，"aa”，style
PublicSubAddCells（columnFrom，columnTo,rowNumber,oCellStyleAsExcelCellStyle，ParamArrayvValues（）AsVariant）
Addarowofcellsbetweenthegivencolumns
wsheet。
AddCells1,10,10，style,"aaaaaa”
PublicSubAddTable（columnNumber,rowNumber,OptionaloCellStyleAsExcelCellStyle,OptionalvArrayAsVariant）
Addatableofvaluesfroma2dimensionalarray
Dimv（1,1）AsString
v（0,0）=”第一行，第一列"
v（0，1）=”第一行，第二列”
v（1，0）=”第二行，第一列"
v（1,1）="第二行,第二列"
DimwwAsVariant
ww=v
wsheet。
AddTable3,3，style,ww
PublicSubSumRows（columnFrom，columnTo,sumFromRow，sumToRow，rowNumber,OptionaloCellStyleAsExcelCellStyle）
CreatesarowofSumformulas，1foreachcolumnintherange
示例:
wsheet.AverageRows3,4，3，4，5
效果等同于：
[C5］=AVERAGE（C3:
C4）[D5］=AVERAGE（D3：
D4）
PublicSubDeleteCells（firstColumn，firstRow,lastColumn,lastRow）
wsheet。
DeleteCells3,3，4,4
说明：
3，3,4，4表示单元格的区域（C3：
D4）
PublicFunctionGetCell（columnNumber,rowNumber）AsExcelCell
returnsacellobjectatthespecifiedcolumn/row，createsoneifitdoesnotexist
DimcellAsExcelCell
Setcell=wsheet.GetCell（3，3）
cell。
Value=100
cell.style.Font。
Colour=cRed
PublicFunctionGetRow（ByValrowNumberAsInteger）AsExcelRow
Getsarowobjectforthespecifiedrow
createoneifitdoesntexist
DimrowAsExcelRow
Setrow=wsheet.GetRow（4）
row.Height=100
row。
style.Font.Colour=cBlue
MergeCells合并单元格
SubMergeCells（firstColumnAsInteger,firstRowAsInteger,lastColumnAsInteger,lastRowAsInteger）
firstColumn:
合并单元格的起始单元格的列
firRow:
起始单元格的行
lastColumn:
合并单元格的结束单元格的列
lastRow:
结束单元格行
示例：
合并区域C3:
E5为一个单元格
wsheet。
MergeCells3，3，5,5
SetColumnStyle设置列格式：
SubSetColumnStyle（iFromColumnAsInteger,iToColumnAsInteger,[iWidthAsInteger=64］,［oStyleAsExcelCellStyle］，[HiddenAsBoolean］）
iFromColumn：
设置起始列
iToColumn：
设置结束列
iWidth:
列宽度
oStyle：
单元样式（ExcelCellStyle）
Hidden：
是否隐藏列
示例:
style。
Font.Colour=cBlue
wsheet.SetColumnStyle2，5,100，style
SetStyle区域设置样式
SubSetStyle（columnFromAsInteger，rowFromAsInteger，columnToAsInteger,rowToAsInteger,oCellStyleAsExcelCellStyle）
columnFrom需设置样式的起始列
rowFrom起始行
columnTo需设置样式的结束列
rowTo结束行
oCellStyle:
单元样式（ExcelCellStyle）
示例：
设置B4，D10的颜色
Style。
Font.Colour=cRed
Wsheet。
SetStyle2，4,4,10，Style
SumRows区域列求和
SubSumRows（columnFromAsInteger,columnToAsInteger，sumFromAsInteger，sumToAsInteger，rowNumberAsInteger,[oCellStyleAsExcelCellStyle］）
columnFrom需求和的起始列
columnTo需求和的结束列
sumFrom求和的起始行
sumTo求和的结束行
rowNumber所求和做放的位置行
四、ExcelPrintSetup
BottomMargin
下边距
CenterHorizontally
居中方式水平居中
CenterVertically
居中方式垂直居中
Copies
打印页数
FitPagesHigh
页面合适高度
FitPagesWide
页面合适宽度
FooterMargin
页脚设置
HeaderMargin
页眉设置
LeftMargin
左边距
Orientation
打印方向
PaperSize
纸张大小
PrintBlackAndWhite
是否黑白打印
PrintDraftQuality
打印草稿
PrintGridLines
是否显示表格线
PrintHeaders
是否打印页头
RightMargin
右边距
ScaleFactor
缩放比例
StartPage
开始打印页
TopMargin
上边距
BottomMargin下边距PropertyBottomMarginAsDouble
DimpsetupAsExcelPrintSetup
psetup。
BottomMargin=4
LeftMarginPropertyLeftMarginAsDouble
psetup.leftMargin=4
RightMarginPropertyRinghtMarginAsDouble
psetup.LightMargin=4
TopMarginPropertyTopMarginAsDouble
psetup。
TopMargin=4
CenterHorizontally水平居中PropertyCenterHorizontallyAsBoolean
psetup.CenterHorizontally=True
CenterVertically垂直居中PropertyCenterVerticallyAsBoolean
Psetup。
CenterVertically=True
Copies打印数量PropertyCopiesAsInteger
psetup。
Copies=3
FitPagesHighPropertyFitPagesHighAsInteger
psetup.FitPagesHigh=3
FitPagesWidePropertyFitPagesWideAsInteger
psetup。
FitPagesWide=3
PrintGridLinesPropertyCenterVerticallyAsBoolean
psetup。
PrintGridLines=True
FooterMarginPropertyFooterMarginAsDouble
psetup.FooterMargin=2
HeaderMarginPropertyHeaderMarginAsDouble
psetup.HeaderMargin=2
Orientation打印方向PropertyOrientationAsenumPaperOrientation
psetup。
Orientation=oLandscape‘/oPortrait横向/纵向
PaperSize纸张大小PropertyPaperSizeAsenumPaperSize
psetup。
PaperSize=psA3]
PrintBlackAndWhite是否黑白打印PropertyPrintBlackAndWhiteAsBoolean
psetup。
PrintBlackAndWhite=True
PrintDraftQuality打印草稿PropertyPrintDraftQualityAsBoolean
Psetup.PrintDraftQuality=true
PrintGridLines是否打印表格线PropertyPrintGridLinesAsBoolean
psetup.PrintGridLines=True
PrintHeaders是否打印页PropertyPrintHeadersAsBoolean
Headers=True
ScaleFactor缩放比例PropertyScaleFactorAsInteger
psetup。
ScaleFactor=95
StartPage打印启始页PropertyStartPageAsBoolean
Psetup.StartPage=true
五、ExcelHeader公共方法
AddCurrentDate
日期
AddCurrentTime
时间
AddFileNameNoPath
页眉名
AddPageCount
页数
AddPageNumber
页号
AddPathNoName
文件目录
AddSheetName
页面名
AddText
写入字符
SetBoldOnOff
输入字符
SetDoubleUnderlineOnOff
为字体之一
SetFont
设置字体
SetFontSize
设置字体大小
SetItalicOnOff
斜体
SetStrikeOutOnOff
划线字体
SetSubScriptOutOnOff
为字体之一
SetSuperScriptOutOnOff
为字体之一
SetUnderlineOnOff
为字体之一
StartCenterSection
写到中间
StartLeftSection
写到左边
StartRightSection
写到右边
AddCurrentDate‘当前日期
DimheaderAsExcelHeader
Setheader=CreateExcelHeader（）
Callheader。
AddCurrentDate
header.AddText”"
Setwsheet.header=header
AddCurrentTime
Time
AddFileNameNoPath‘文件名,不带路径
Callheader。
AddCurrentTime
AddPageCount‘总页数
PageCount
AddPageNumber‘当前页码号
PageNumber
AddPathNoName文件目录
Callheader。
AddPathNoName
AddSheetName页面名称（SheetNane）
SheetName
AddText写入文本SubAddText（sTextAsString）
Callheader。
Addtext（“text”）
SetBoldOnOff插入字符
header.SetBoldOnOff
header.AddText”dddd"
Setwsheet。
header=header
SetDoubleUnderlineOnOff为字体之一，双划线
Callheader.SetDoubleUnderlineOnOff
header.AddText"力量”
SetFont设置字体
SubSetFont（fontNameAsString,[fontStyleAsenumFontStyle］）
Callheader.SetFontfnt
header。
AddText"力量"
SetFontSize设置字体大小SubSetFontSize（fontSizeAsInteger）
Callheader.SetFontSize（10）
header.AddText"力量”
SetItalicOnOff斜体DimheaderAsExcelHe
升级会员 