《VFP控制ECEL的方法分析和总结.docx》由会员分享，可在线阅读，更多相关《VFP控制ECEL的方法分析和总结.docx（13页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、VFP控制EXCEL的常用方法oExCREATEOBJECTCExcel.application) oExl.Visible=.T.oExl.DefaultSaveFormat=39 oExl.SheetslnNewWorkbook=l&窗口最小化&窗口正常化&窗口最大化&窗口最小化&窗口正常化&窗口最大化oExl. Workbooks.Open(cXLS) oExl.WindowState=-4140 oExl.WindowState=-4143oExl.WindowState=-4147&页面设置oExl. ActiveSheet.PageSetup.PnntTitleRows=$l:$3
2、&打印标题oExl. ActiveSheet.PageSetup.Orientation=2&页面方向:1 纵向/2 横向*oExl.ActiveSheet.PageSetup.PaperSize=ll&纸张尺寸-：9-A4/ll-A5oExl.ActiveSheet.PageSetup.TopMargin=0.).035&顶边是口oExl.ActiveSheet.PageSetup.BottomMargin=0.8/0.035 &底边距oExl. ActiveSheet.PageSetup.LeftMargin=O&左边距oExl.ActiveSheet.PageSetup.RightMar
3、gin=O&右边 E巨oExl.ActiveSheet.PageSetup.CenterHorizontally=.T.&页面居中oExl.ActiveSheet.PageSetup.HeaderMargin=0.5/0.035oExl.ActiveSheet.PageSetup.FooterMargin=0.5/0.035oExl.ActiveSheet.PageSetup.LeftHeader=&9 表格”9 是字号oExl.ActiveSheet.PageSetup.CenterHeader=oExl.ActiveSheet.PageSetup.RightHeader=&9oExl.Ac
4、tiveSheet.PageSetup.LeftFooter=noExl.ActiveSheet.PageSetup.CenterFooter=&9&P 页，共&N 页”oExl.ActiveSheet.PageSetup.RightFooter=&9 制表人:+代码+制表时间:+TTOC(DATETIME() &整体格式设置oExl.ActiveSheet.Rows. Font.Size=9oExl.ActiveSheet.Rows.Font.Name=宋体oExl.ActiveSheet.Rows.RowHeight=0.5/0.035oExl.ActiveSheet.Rows.Numbe
5、rFormatLocal=0.00_ ;E 色-0.00oExl.ActiveSheet.Rows. VerticalAlignment=2&单元格内容垂直居中 &获取最大行号和最大列号Local nMaxRow,nMaxColnMaxRow=oExl.ActiveSheet. Used Range. Rows.Count nMaxCol=oExl.ActiveSheet.UsedRange.Columns.Count &表头格式设置oExl. ActiveSheet.Rows(l).Font.Size=16oExl.ActiveSheet.PageSetup.CenterHorizontal
6、ly=.T.oExl.ActiveSheet.PageSetup.CenterVertically=.T.&设置页面纸张大小oExl.ActiveSheet.PageSetup.Orientation=2oExl.ActiveSheet.PageSetup.PaperSize=ll 纸张大小：9 A411 A570 A6oExl.ActiveSheet.PageSetup.Draft=.T.oExl.ActiveSheet.PageSetup.FirstPageNumber=loExl.ActiveSheet.PageSetup.Order=l&单色打印oExl.ActiveSheet.Pag
7、eSetup.BlackAndWhite=.T. oExl.ActiveSheet.PageSetup.PrintComments=-4142 oExl.ActiveSheet.PageSetup.Zoom=100 oExl.ActiveSheet.PageSetup.Zoom=.F.&设置页面水平居中&设置页面垂直居中&贝面方向2表示横向&缩放100%&禁用缩放&调整为一页宽&调整为一页高oExl.ActiveSheet.PageSetup.FitToPagesWide=l oExl.ActiveSheet.PageSetup.FitToPagesTall=l oExl.ActiveShee
8、t.PageSetup.PrintHeadings=.T. oExl.ActiveSheet.PageSetup.PrintGridLines=.T. oExl.ActiveSheet.PageSetup.PrintErrors= oExl.ActiveSheet.PageSetup. PrintQuality=600 oExl.ActiveSheet.PageSetup.PrintTitleRows=$l:$3 oExl.ActiveSheet.PageSetup.PrintTitleColumns=$A:$C oExl.ActiveSheet.PageSetup.PrintGridline
9、s=.T.&打印质量&固定标题行& &固定标题列&打印单元格网线*&打印oExl.ActiveSheet.PageSetup.PrintArea=$A$l:$E$30&打印预览工作表&设置打印区域&取消打印区域&网页预览&打印输出工作表&打印预览工作表&设置打印区域&取消打印区域&网页预览&打印输出工作表5、VFP下直接调用EXCEL. WORD文件DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,STRING,STRING IpszFile,STRING, STRINGJNTEGER operate=openShellExecu
10、te(0,operate,C:lll.XLS,0,0,1)&EXCEL 文件ShellExecute(0,operate,C:11LDOC”,0,0,1)&W0RD 文件oExcel=Createobject(Excel.application)&fiJiJlExcel 对象*对象属性1、添加Sheets.Add before:=Sheets在笫1工作表前添加新工作表Sheets.Add。什er:=Sheets(Sheets.Count)在最后工作表后添加I新工作表 2、移动ActiveSheet.Move before:=Sheets将当前工作表移动至第2工作表之前 3、命名ActiveSh
11、eet.Name=工作表名将当前工作表命名为工作表名4、 删除 可以用以下语句删除当前工作表。ActiveSheet.Delete但在删除前Excel会自动弹出提示框，需在用户确认后方可执行删除。为避免这一干扰, 可以先用以下语句关闭Excel的警告提示。Application.DisplayAlerts = False 在删除完成后，再重新打开Excel的警告提示oExcel.Visible=.T.&显示 Excel 窗口oExcel.Caption=VFP 应用程序调用MicrosoftExcel&更改 Excel 标题栏oExceLDisplayAlerts=.F.&关闭提示和旨告消息，
12、运行结束后，应将本属性设置回True值oExcel.cells(L4).Value=XM(XM为数据库字段名)&给单元格赋值Workbooks 属性oExcel.Workbooks.Add&添加新工作簿oExcel.Workbooks.Open(c:templl.xl$)&打开指定工作簿oExcel.Workbooks.Close& 闭工作簿oExcel.Quit&退出 ExcelReleQ$eoExcel&只有释放对象变量,EXCEL进程才会完全关闭Worksheets 属性oExcel.Worksheets(sheet3).ActivQte&设置第3个工作表为激活工作表oExcel.Wor
13、ksheetsfSheet 1 ).Rows( 18).PageBreak= 1 &在第 18 行之前插入分页符oExcel.WorkSheet(,Sheet2,1).Range(Al).PasteSpecial&1?iliWili* * Active Workbook 属性oExcel.ActiveWorkbook.SaveAs(c:temp22.xk)&工作表另存为061人&26770次130。匕5。丫61=工&放弃存盘,避免出现保存对话框oExcel.AciiveWorkbook.Sove&存盘。Excel.ActiveW。rkbo。k.CI。se(.F.)&关闭工作簿oExceLAct
14、iveWorkbook.Protect(密码/.)&保护工作薄(第一个工：保护工作簿结构，第:个工: 保护工作簿窗口)*ActiveSheet 属性oExcel.ActiveSheet.U$edRQnge.Copy&拷贝整个工作表oExceLActiveSheet.PrimPreview&打印预览工作表oExcel.ActiveSheet.PrintOut&打印输;I；工作表(密码；T.,.T.,.T“.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.)&保护工作表oExcel.ActiveSheet.Protection.AllowEditRang
15、es.Add(3,oExcel.ActiveSheet.Range(A2:D5)& 设置允许用户编辑区域* *式格列属性oExcel.ActiveSheet.Columns(2).lnsert&在第 2 列之前插入一列oExcel.ActiveSheet.Columns(l).ColumnWidth=5&设置指定列的宽度(单位：字符个数)oExcel.ActiveSheet.Columns(4).PcigeBreQk=0&在第 4 列之前删除分页符oExcel.ActiveSheet.Columns .Font.Bold=.T.&设置整列字体为粗体* *表格行属性oExcel.ActiveSh
16、eet.Rows(2).lnsert&i| 2 行之前插入一行oExcel.ActiveSheet.Rows(l).RowHeight=l&设置指定行的高度(单位：磅)(设定行高为1唠，1磅 =0.035 厘米)oExcel.ActiveSheet.Rows(50:100).RowHeight=1&设置第 50 行至 100 行的高度* *表格范围属性0&1代。照6(乂494)旧。位(刈。闵9口113川=1&水平(1-默认、2-靠左、3居中、4靠右、5-填充、 6=两端对齐、7=跨列居中、8=分散对齐)。Excel.R。nge(A4:c4).VerticQlAlignment=2&垂直(l=靠
17、上、2=居中、3=靠下、4=两端对齐、5=分 散对齐)oExcel.Range(A4:C4WrapTex 仁.F.&文本自动换行oExcel.ActiveSheet.RQnge(A4:B5).Merge=.T.&合并单元格oExcel.ActiveSheet.RQnge(Al:E2).Copy&拷贝指定区域oExcel.ActiveSheet.Ronge(b3:d37BorderS(2kWeight=3&指定边框线宽度(Borders 参数如下)0目人0皿65g3.1?896(t3：013)上。96巴2).1_仇3卜1。=1&设置四个边框线条的类型&(其中 Borders 参数：1 一左、2右
18、、3一顶、4一底、5斜、6一斜/： LineStyle 值：1 与 7细 实、2细虚、4一点虚、9一双细实线)”页面设置.CenterHeader=|i 1”&设置页眉.CenterHeoder=&50报表1”&设置页眉（字体大小）后面的50可以自定义，表示字体的大小.CenterFooter=H&P 页”&设置页脚（LeftFoot：居左,CenterFooter：居中,RightFootec 居右）.Cer）terFooter=&28 笫&P 页共&N 页”&设置页脚（字体大小）后面的28可以自定义，表示字体的大小.HeaderMorgin=2/0.035&设置页眉到顶端边距为2厘米.Fo
19、oterMorgin=3/0.035&设置页脚到底边距为3厘米.TopMargin=2/0.035&设置顶边距为2厘米.BoitomMorgin=4/0.035&设置底边距为4匣米.LeftMargin=2/0.035&设置左边距为2厘米.RightMQrgin=2/0.035&设置右边距为2厘米.CenterHorizontQlly=.T.&设皆.页面水平居中CenterVerticQlly=.T.&设置.页面垂直居中Fapersize=l&设置页面纸张大小（1 一窄行8 5 1139宽行14 119:A4）Qrientation=l&设置纸张方向（L竖向,2-横向）如仃川6口。心=$1：$
20、2&设置顶端标题行,（每页都打印行标头（每页顶部出现的单元格的行）.PrintGridlines=.T.&打印单元格网线.Zoom=75&设置缩放比例为75%ENDWITH* *单元格设置WlTHoExcel.ActiveSheet.Cells（l ,1 ）&第一行第一列单元格.Font.NQme=黑体” &字体名字.Font.Size=25&大，J、.Font.ltQlic=.T.&为斜体（Bold-粗体）.Vlue=数值&给单元格赋值.CIeorComents&清除单元格公式ENDWITHoExl.ActiveSheet.Rows(l).Font.Bold=.T.oExl.ActiveSh
21、eet.Rows(l).RowHeight=l/0.035oExl.ActiveSheet.Rows(l).HorizontalAlignment=3 oExl.ActiveSheet.Rows(2).HorizontalAlignment=3 oExl. ActiveSheet.Rows(3).HorizontalAlignment=3 oExl.ActiveSheet.Rows(3).Font.Bold=.T.oExl. ActiveSheet.Range(Al:+CHR(96+nMaxCol)+,l).Merge oExl.ActiveSheet.Range(A2:+CHR(96+nMa
22、xCol)+,2).Merge&条件格式隐藏0值oExl.ActiveSheet.UsedRange.FormatConditions.Add(l,3,0)oExl.ActiveSheet.UsedRange.FormatConditions(l).Font.Colorlndex=2&文字白色 *oExl.ActiveSheet.Range(Al:Bl).lnterior.Colorlndex=6&单元格底纹黄色oExl.ActiveSheet.Columns.AutoFit & 自动歹U宽oExl.ActiveSheet.Range(A3:+CHR(96+nMaxCol)+ALLTRIM(S
23、TR(nMaxRow).Borders. Weight=2&边框线 &自动筛选&判断是否存在自动筛选oExl.ActiveSheet.Rows(3). Autofilter&如果不存在自动筛选，则添加自动筛选ENDIF&冻结窗格oExl.ActiveSheet.RangeD4).SelectoExl.ActiveWindow.FreezePanes = .T.&分类汇总Local Arry(l),nMaxRow,nMaxColArry(l)=5oExl.ActiveSheet.Range(,A3:,+chr(96+nMaxCol)+alltrim(str(nMaxRow).Subtotal(2
24、7-4157/Arry/.T,F.,.T.) &按第2列分类汇总数组Arry保存的列1、对象的创建与关闭&创建Excel对象&新建工作簿默认包含工作表个数*oExl=CREATEOBJECT(Excel.application) oExl.SheetslnNewWorkbook=l&新建工作簿，工作表个数由SheetsInNewWorkBooks属性指定oExl.Workbooks.Open(cXLS,3,-T.)&打开指定工作簿(更新链接/只读打开)oExl.Workbooks.Open(cXLS, UpdateLinks, Readonly, Format, Password, Write
25、ResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)oExl.Worksheets(cSheet). Activate oExl.Worksheets(3). Activate oExl.WorkSheets.Count oExl.DefaultSaveFormat=39 oExl.DisplayAlerts=.F.oExl.Visible=.T. oExl.Visible=.F. oExl.Caption=Exc
26、el 标题栏”oExl.Worksheets(cSheet). Activate oExl.Worksheets(3). Activate oExl.WorkSheets.Count oExl.DefaultSaveFormat=39 oExl.DisplayAlerts=.F.oExl.Visible=.T. oExl.Visible=.F. oExl.Caption=Excel 标题栏”&激活工作表Sheet3&激活（从左到右）第3个工作表&工作簿中工作表数&默认格式Excel 5.0&不显示警告信息&显不Excel窗I I&不显不Excel窗口&更改Excel标题栏oExl.WorkSh
27、eet(Sheet2).Range(Al).PasteSpecial&粘贴&退出 Excel&是否显示最近打开文档&历史最大纪录数&用户名&标准字体&标准字体大小&默认工作目录&声音反馈&智能鼠标缩放&Microsoft Office Excel 菜单键&退出 Excel&是否显示最近打开文档&历史最大纪录数&用户名&标准字体&标准字体大小&默认工作目录&声音反馈&智能鼠标缩放&Microsoft Office Excel 菜单键oExl.QuitoExl.DisplayRecentFiles=.T.oExl.RecentFiles.Maximum=4 oExl.UserName=XXXX o
28、Exl.StandardFont=宋体 oExl.StandardFontSize=12 oExl.DefaultFilePath=D:XXXXXX oExl.EnableSound=False oExl.RollZoom=False oExl.TransitionMenuKey=/ oExl.ActiveWorkbook.Password=123 oExl.ActiveWorkbook.WritePassword=456 oExl. ActiveWorkbook. ReadOnlyRecommended=FalseoExl.ActiveWorkbook.SetPasswordEncrypti
29、onOptions PasswordEncryptionProvider:=, _ PasswordEncryptionAlgorithm:=OfficeStandard/PasswordEncryptionKeyLength:=40_,PasswordEncryptionFileProperties:=FalseIF oExl.ActiveWorkbook.FileFormat=39&格式为 Excel 5.0 工作簿ENDIFoExl.ActiveWorkBook.SaveAs(FileNamezFileFormat,PassWord,WriteResPassWord,ReadOnlyRe
30、com mended,CreateBackup)&另存为&参数说明FileName字符型，指定文件名FileFormat数值型，文件格式-4143 Microsoft Office Excel11 DBF439 Microsoft Excel 5.0/9543 Microsoft Excel97-Excel2003 & 5.0/9544网页Html文件-4158文本文件(制表符分隔)Password字符型，只读密码WriteResPassWord字符型，写密码 ReadOnlyRecommended逻辑型，建议只读CreateBackup 逻辑型，自动备份iJ$U:oExl.ActiveWor
31、kBook.SaveAs(d:l.xls,39)&放弃存盘&碱（自动存盘不提问）&关闭工作簿&放弃存盘&碱（自动存盘不提问）&关闭工作簿oExl. ActiveWorkbook.saved=.T.oExl. Workbooks.close3、单元格的设置*&冻结窗格oExl.ActiveSheet.Range(D4).SelectoExl.ActiveWindow.FreezePanes = .T.&条件格式设定oExl.ActiveSheet.Range（Al:H 18）. Formatconditions. AddfTypeperatOGFormulalormulaZ）Type 类型（1单
32、元格数值,2公式）Operator操作符（1介于,2不介于,3等于,4不等于,5大于,6小于,7大于等于,8小于等于）Formulal表达式1Formula2 表达式2,操作符为1介于或2不介于才有效&条件格式例句:数值为。者,文字颜色白色oExl. ActiveSheet.UsedRange.FormatConditions.Add(l,3,0)oExl. ActiveSheet.UsedRange.FormatConditions(l).Font.Colorlndex=2&文字白色&编辑&拷贝整个工作表&拷贝指定区域&删除列&删除列&在第1行之前插入一行&在第2列之前插入一列&给单元格赋值
33、&给单元格赋值oExl. ActiveSheet.Range(Al:E2).Copy oExl. ActiveSheet.Columns(D:D).Delete oExl. ActiveSheet.Columns(A:B). Delete oExl. ActiveSheet.Rows(l).Insert oExl.ActiveSheet.Columns(2).Insert oExl.ActiveSheet.Cells(l/2).Value=ABTMC oExl. ActiveSheet.Cells(2,2).Value=n&BBBBoExl. ActiveSheet.Cells(1,4).Cl
34、earContents oExl.ActiveSheet.Rows(18).PageBreak=l oExl.ActiveSheet.Columns(4).PageBreak=0 符oExl. ActiveSheet.Rows(3). AutoFilteroExl.ActiveSheet.Cells(l,l).Delete(-4159)- 4159右边单元格左移- 4162下边单元格上移oExl.Selection.EntireRow. DeleteoExl.ActiveSheet.Cells(l,l).lnsert(-4142)- 4142活动单元格下移- 4161活动单元格右移oExl.
35、ActiveSheet.Selection. EntireRow. Insert&清除单元格公式&在第18行之前插入分页符&在第4列之前删除分页&自动筛选&删除单元格&所在行整行删除 &所在列整列删除 &插入单元格&插入行&插入列&选择性粘贴Paste:=xlPasteValues, Operation:=xlNone,SkipBlanks:=False, Transpose:=FalsePaste 粘贴数据：8列宽,11公式和数值格式，12数值与数值格式，-4104全部,-4123公 式,-4163数值,-4122格式，Operation运算符:-4142无,2力0,3减,4乘,5除Skip
36、Blanks跳过空白单元:逻辑型Transpose转置:逻辑型&排1f成功例句：oExl. ActiveSheet.Range(Al:+CHR(96+nMaxCol)+ALLTRIM(STR(nMaxRow).Sort(oExl. ActiveSheet . Range(CHR(96+ASCAN(ArryJ原币金额)+2),2,l)&按“原币金额”所在列降序排列,有标题oExl.ActiveSheet.Rows(l:28).SortKeyl:=Range(A2), Orderl:=xlDescending, Key2:=Range(B2), Order2:=xlAscending, Key3:
37、=Range(C2), Order3:=xlDescending, Header:=xlYes,OrderCustom :=6ZMatchCase:=True,Orientation:=xlTopToBottom,SortMethod:=xlStroke, DataOptionlxlSortNormal, DataOption2:=xlSortNormal,DataOption3:=xlSortNormal参数说明：2 xlDescending 降序xIAscenging 升序标题行：0 xIGuessxlYes,1 xINo1 xlTopToBottom排序方法：1 xIPinYin,xIS
38、troke0 xISortNormalKeyl排序字段:取值类型是范围oExl.ActiveSheet.Range(B2)Orderl升序降序:xlAscending=l 升序,xlDescending=2 降序Header有无标题:xlGuess=0 自动判断,xlYes=l 有,xlNo=2 无orderCustom排序顺序:1普通,6 EI 一二三MatchCase是否区分大小写:T区分,F不区分Orientation1从头到底,2从左到右SortMethod排序方法:xlPinYin=l 拼音,xlStroke=2 字母DataOptionlxlSortNormal=0 正常DataO
39、ption2DateOption3&分类汇总LOCAL Array(l)Array(l)=5oExl. ActiveSheet.Range(Al:G28).Subtotal(2,-4157,Array,.T.,.F.,.T.)参数列表：GroupBy:=2, Function:=xlSum, TotalList:=Array(3), ReplaceTrue, PageBreaks:=False,SummaryBelowData:=True参数说明：GroupBy分组字段序号Function汇总方式:-4157求和，-4112计数TotalList汇总数据项:保存汇总列序号的数组引用Replac
40、e替换当前分类汇总:逻辑型，默认TPageBreaks每组数据分页:逻辑型，默认FSummaryBelowData汇总结果显示在数据下方:逻辑型，默认T&汇总结果表间切换oExl.ActiveSheet.Outline.ShowLevels RowLevels:=2oExl.ActiveSheet.Outline.ShowLevels RowLevels:=loExl.ActiveSheet.Outline.ShowLevels RowLevels:=3&数值格式设置oExl.ActiveSheet.Range(A).NumberFormatLocal=0.00&指定区域内的数字显示格式&对齐
41、设置oExl. ActiveSheet.Range(Al:Bl). Horizontal Alignment=3 2左对齐，3居中，4右对齐 oExl.ActiveSheet.UsedRange.VerticalAlignment=2 靠上，2居中，3靠下oExl. ActiveSheet.Range(Al:Bl).WrapText=.T. oExl.ActiveSheet.Range(Al:Bl).Orientation = -4166 -4166 垂直向下oExl. ActiveSheet.Range(Al:Bl).Addlndent = False oExl.ActiveSheet.Ra
42、nge(Al:Bl).lndentLevel = 2 oExl. ActiveSheet.Range(Al:Bl).ShrinkToFit = .T. oExl.ActiveSheet.Range(Al:Bl).ReadingOrder = -5002 -5002 根据内容 -5003 从左到右oExl.selection.MergeCells=.T.oExl.selection.HorizontalAlignment=2 中，4右对齐oExl.selection.VerticalAlignment=2 居中，3靠下 &字体设置oExl.ActiveSheet.ROWS .Font.Name=
43、黑体 oExl.ActiveSheet.ROWS(l).Font.FontStyle=常规 oExl.ActiveSheet.ROWS(l).Font.Size=14 oExl. ActiveSheet. ROWS(l). Font.Bold=.T.oExl.ActiveSheet.ROWS(l).Font.StrikeThrough=.T. oExl.ActiveSheet.Cells(1,1).Font.ltalic=.T.oExl. ActiveSheet.ROWS(l).Font.Superscript = .T. oExl.ActiveSheet.ROWS(l).Font.Subsc
44、ript = .T. oExl.ActiveSheet.ROWS(l).Font.OutlineFont = False oExl.ActiveSheet.ROWS(l).Font.Shadow = False oExl.ActiveSheet.ROWS(l).Font.Underline = -4142 oExl.ActiveSheet.ROWS(l).Font.Colorindex = -4105 oExl. ActiveSheet.ROWS(l).Font.Underline = 2 下划线类型 2 单下划线 &边框设置oExl.ActiveSheet.Range(b3:d3).Bord
45、ers. Weight=2其中Borders参数：1 一左、2右、3一顶、4- 认上下左右四个边框&水平方向&垂直方向 1&自动换行&文字方向&缩进&缩进2字符&缩小以填充&文字阅读方向&水平方向&垂直方向 1&自动换行&文字方向&缩进&缩进2字符&缩小以填充&文字阅读方向&合并单元&水平方向2左对齐，3居&垂直方向1靠上，2&设置字体&设置字体大小&设置整行字体为粗体&删除线&设置字体为斜体&上标&卜标&下划线&字体颜色自动设置&下划线类型&指定边框线宽度、5斜、6一斜/；不带参数表示默LineStyle ： 1与7细实、2细虚、4一点虚、9一双细实线)oExl.ActiveSheet.Range(Al:BE29).Borders(l).LineStyle=l &设置四个边框线条的类型oExl.ActiveSheet.Range(Al:BE29) Borders(2).LineStyle=l &设置四个边框线条的类型oExl.ActiveSheet.Range(Al:BE29).Borders(3).LineStyle=l &设置四个边框线条的类型oExl.ActiveSheet.Range(Al:BE29).B