VB操作EXCEL表的常用方法

1、VB操作EXCEL表的常用方法(设计值，颜色，大小)2009-05-18 15:37VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。但由于VB与EXCEL由于分别属于不同的应用系统，如何把它们有机地结合在一起，是一个值得我们研究的课题。一、 VB读写EXCEL表：VB本身提自动化功能可以读写EXCEL表，其方法如下：1、在工程中引用Microsoft Excel类型库：从工程菜单中选择引用栏；选择Microsoft Excel 9.0

2、Object Library（EXCEL2000），然后选择确定。表示在工程中要引用EXCEL类型库。2、在通用对象的声明过程中定义EXCEL对象：Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkBookDim xlSheet As Excel.Worksheet3、在程序中操作EXCEL表常用命令：Set xlApp = CreateObject(Excel.Application) 创建EXCEL对象Set xlBook = xlApp.Workbooks.Open(文件名) 打开已经存在的EXCEL工件簿文件xlApp.Visi

3、ble = True 设置EXCEL对象可见（或不可见）Set xlSheet = xlBook.Worksheets(表名) 设置活动工作表xlApp.Cells(row, col) =值 给单元格（row,col）赋值XLApp.Cells(i, 1).Interior.ColorIndex = i设计单元格颜色i=1-56xlSheet.PrintOut 打印工作表xlBook.Close (True) 关闭工作簿xlApp.Quit 结束EXCEL对象Set xlApp = Nothing 释放xlApp对象xlBook.RunAutoMacros (xlAutoOpen) 运行EXC

4、EL启动宏xlBook.RunAutoMacros (xlAutoClose) 运行EXCEL关闭宏自己用代码就可以获取颜色列表了 Sub yansecode() For i = 1 To 56 XlApp.Cells(i, 1) = i xlapp.Cells(i, 1).Interior.ColorIndex = i Next End Sub4、在运用以上VB命令操作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它操作，也能够关闭EXCEL，同时也可对EXCEL进行操作。但在EXCEL操作过程中关闭EXCEL对象时，VB程序无法知道，如果此时使用EXCEL对象，则V

5、B程序会产生自动化错误。形成VB程序无法完全控制EXCEL的状况，使得VB与EXCEL脱节。二、 EXCEL的宏功能：EXCEL提供一个Visual Basic编辑器，打开Visual Basic编辑器，其中有一工程属性窗口，点击右键菜单的插入模块，则增加一个模块1，在此模块中可以运用Visual Basic语言编写函数和过程并称之为宏。其中，EXCEL有两个自动宏：一个是启动宏（Sub Auto_Open()），另一个是关闭宏（Sub Auto_Close()）。它们的特性是：当用EXCEL打含有启动宏的工簿时，就会自动运行启动宏，同理，当关闭含有关闭宏的工作簿时就会自动运行关闭宏。但是通过

6、VB的自动化功能来调用EXCEL工作表时，启动宏和关闭宏不会自动运行，而需要在VB中通过命令xlBook.RunAutoMacros (xlAutoOpen)和xlBook.RunAutoMacros (xlAutoClose) 来运行启动宏和关闭宏。三、 VB与EXCEL的相互勾通：充分利用EXCEL的启动宏和关闭宏，可以实现VB与EXCEL的相互勾通，其方法如下：在EXCEL的启动宏中加入一段程序，其功能是在磁盘中写入一个标志文件，同时在关闭宏中加入一段删除此标志文件的程序。VB程序在执行时通过判断此标志文件存在与否来判断EXCEL是否打开，如果此标志文件存在，表明EXCEL对象正在运行，

7、应该禁止其它程序的运行。如果此标志文件不存在，表明EXCEL对象已被用户关闭，此时如果要使用EXCEL对象运行，必须重新创建EXCEL对象。四、举例：1、在VB中，建立一个FORM，在其上放置两个命令按钮，将ommand1的Caption属性改为EXCEL，Command2的Caption属性改为End。然后在其中输入如下程序：Dim xlApp As Excel.Application 定义EXCEL类 Dim xlBook As Excel.Workbook 定义工件簿类Dim xlsheet As Excel.Worksheet 定义工作表类 Private Sub Command1_C

8、lick() 打开EXCEL过程If Dir(D:tempexcel.bz) = Then 判断EXCEL是否打开Set xlApp = CreateObject(Excel.Application) 创建EXCEL应用类xlApp.Visible = True 设置EXCEL可见Set xlBook = xlApp.Workbooks.Open(D:tempbb.xls) 打开EXCEL工作簿Set xlsheet = xlBook.Worksheets(1) 打开EXCEL工作表xlApp .Activate 激活工作表xlApp .Cells(1, 1) = abc 给单元格1行驶列赋值

9、xlBook.RunAutoMacros (xlAutoOpen) 运行EXCEL中的启动宏ElseMsgBox (EXCEL已打开) End IfEnd SubPrivate Sub Command2_Click()If Dir(D:tempexcel.bz) Then 由VB关闭EXCEL xlBook.RunAutoMacros (xlAutoClose) 执行EXCEL关闭宏xlBook.Close (True) 关闭EXCEL工作簿xlApp.Quit 关闭EXCELEnd IfSet xlApp = Nothing 释放EXCEL对象EndEnd Sub2、在盘根目录上建立一个名为

10、Temp的子目录，在Temp目录下建立一个名为bb.xls的EXCEL文件。3、在bb.xls中打开Visual Basic编辑器，在工程窗口中点鼠标键选择插入模块，在模块中输入入下程序存盘：Sub auto_open()Open d:tempexcel.bz For Output As #1 写标志文件Close #1End SubSub auto_close()Kill d:tempexcel.bz 删除标志文件End Sub4、运行VB程序，点击EXCEL按钮可以打开EXCEL系统，打开EXCEL系统后，VB程序和EXCEL分别属两个不同的应用系统，均可同时进行操作，由于系统加了判断，因

11、此在VB程序中重复点击EXCEL按钮时会提示EXCEL已打开。如果在EXCEL中关闭EXCEL后再点EXCEL按钮，则会重新打开EXCEL。而无论EXCEL打开与否，通过VB程序均可关闭EXCEL。这样就实现了VB与EXCEL的无缝连接。范例一Option ExplicitPrivate Sub Command1_Click()Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlChar As New Excel.ChartDim xlSheet As New Excel.Worksheet建立需要的对象Set xlA

12、pp = New Excel.ApplicationSet xlApp = CreateObject(Excel.Application)Set xlBook = xlApp.Workbooks.Open(F:BOOK1.xls)Set xlSheet = xlBook.Worksheets(1)建立Chart 对象Set xlChar = xlApp.Charts.Add()xlChar.ChartType = xlLineMarkersCall xlChar.SetSourceData(xlSheet.Range(A1:E7), xlColumns) 原数据ActiveChart.Loca

13、tion Where:=xlLocationAsObject, Name:=Sheet1ActiveChart.HasLegend = TrueActiveChart.Legend.SelectSelection.Position = xlRight选中建立的ChartObjects对象ActiveSheet.ChartObjects(图表 1).ActivateActiveChart.PlotArea.SelectActiveChart.Legend.Select删除 退出(&X) 菜单Dim i As IntegerFor i = 1 To xlApp.CommandBars(File).

14、Controls.CountDebug.Print xlApp.CommandBars(File).Controls(i).CaptionIf Left$(xlApp.CommandBars(File).Controls(i).Caption, 2) = 关闭 ThenxlApp.CommandBars(File).Controls(i).Visible = False DeleteExit ForEnd IfNext显示EXCELxlApp.Visible = TrueEnd Sub范例二RichTextBox1Dim xlApp As Excel.ApplicationSet xlApp

15、= New Excel.Application- 然后，可以用这些变量来访问在EXCEL应用程序中的从属对象、以及这些对象的属性和方法。例如：Set xlApp = CreateObject(Excel.Application)激活EXCEL应用程序xlApp.Visible = False 隐藏EXCEL应用程序窗口Set xlBook = xlApp.Workbooks.Open(strDestination)打开工作簿，strDestination为一个EXCEL报表文件Set xlSheet = xlBook.Worksheets(1)设定工作表VB借助EXCEL实现表格设计1、定义E

16、XCEL对象变量dim x as excel.application2、VB中，启动EXCELset x=createobject(excel.application)3、新建一个EXCEL工作簿x.workbooks.add4、选定工作表1set xsheet=xbook.worksheets(1)5、指定单元格，并赋值xsheet.cell(1,1)=ret.fields(0)6、指定EXCEL列宽xsheet.column(1).columnwidth=107、RANGE（）函数，选定单元格区域range(cells(1,1),cells(10,20)8、设置EXCEL字体xsheet.

17、range(cells(1,1),cells(10,20).=黑体9、设置EXCEL为粗体xsheet.range(cells(1,1),cells(10,20).fontbold=true10、设置EXCEL表格边框xsheet.range(cells(1,1),cells(10,20).borders.linestyle=xlcontinuous11、运行时，显示EXCEL或隐藏EXCELx.visible=true12、保存工作簿xbook save13、退出EXCELx.quit14、交还控制权给EXCELset x=nothing15、打印EXCEL表x.activ

18、e.window.selectedsheets.printout copies=numcopies16、退出EXCEL时，不出现保存提示。x.displayalerts=false17、怎样运用EXCEL公式？x.range(A3).formula= =max(A1,A2)18、EXCEL代码获取技巧打开EXCEL中的工具-宏-录制新宏，然后进行手工操作，结束后把所录的宏代码贴进你的VB程序就行。19、合并单元格代码x.range(A2:A5).inergecells=true20、自动调整列宽代码x.column(A:I).autofit a到 I列自动调整列宽21、文本自动换行代码x.ro

19、ws(3).wraptext=true22、设置字体颜色x.rows(1).font.colorindex=423、打印预览代码x.worksheets.printpreview24、打开EXCEL文件x.workbooks.open filename:=c:my documentsmy vb lgx dy.xls=如何用VB控制EXCEL生成报表做为一种简捷、系统的 Windows应用程序开发工具，Visual Basic 6 具有强大的数据处理功能，提供了多种数据访问方法，可以方便地存取Microsoft SQL Server、Oracle、XBase等多种数据库，被广泛应用于建立各种信息

20、管理系统。但是，VB缺乏足够的、符合中文习惯的数据表格输出功能，虽然使用Crystal Report控件及 Crystal Reports程序可以输出报表，但操作起来很麻烦，中文处理能力也不理想。Excel作为Micorsoft公司的表格处理软件在表格方面有着强大的功能，我们可用VB5编写直接控制Excel操作的程序,方法是用VB的OLE自动化技术获取Excel 2000 的控制句柄,从而直接控制Excel 2000的一系列操作。下面给出一个实例：首先建立一个窗体（FORM1）在窗体中加入一个DATA控件和一按钮，引用Microsoft Excel类型库:从工程菜单中选择引用栏;选择Micro

21、soft Excel 9.0 Object Library;选择确定。然后在FORM的LOAD事件中加入：Private Sub Form_Load()数据库及表可以另选，本文以Nwind.mdb为例Data1.DatabaseName = C:Program FilesMicrosoft Visual StudioVB98Nwind.mdbData1.RecordSource = CustomersData1.RefreshEnd Sub在按钮的CLICK事件中加入Private Sub Command1_Click()Dim Irow, Icol As IntegerDim Irowcou

22、nt, Icolcount As IntegerDim Fieldlen() 存字段长度值Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.WorksheetSet xlApp = CreateObject(Excel.Application)Set xlBook = xlApp.Workbooks.AddSet xlSheet = xlBook.Worksheets(1)With Data1.Recordset.MoveLastIf .RecordCount 1 ThenMsgBox

23、(Error 没有记录!)Exit SubEnd IfIrowcount = .RecordCount 记录总数Icolcount = .Fields.Count 字段总数ReDim Fieldlen(Icolcount).MoveFirstFor Irow = 1 To Irowcount + 1For Icol = 1 To IcolcountSelect Case IrowCase 1 在Excel中的第一行加标题xlSheet.Cells(Irow, Icol).Value = .Fields(Icol - 1).NameCase 2 将数组FIELDLEN()存为第一条记录的字段长I

24、f IsNull(.Fields(Icol - 1) = True ThenFieldlen(Icol) = LenB(.Fields(Icol - 1).Name)如果字段值为NULL,则将数组Filelen(Icol)的值设为标题名的宽度ElseFieldlen(Icol) = LenB(.Fields(Icol - 1)End IfxlSheet.Columns(Icol).ColumnWidth = Fieldlen(Icol)Excel列宽等于字段长xlSheet.Cells(Irow, Icol).Value = .Fields(Icol - 1)向Excel的CellS中写入字段

25、值Case ElseFieldlen1 = LenB(.Fields(Icol - 1)If Fieldlen(Icol) Fieldlen1 ThenxlSheet.Columns(Icol).ColumnWidth = Fieldlen1表格列宽等于较长字段长Fieldlen(Icol) = Fieldlen1数组Fieldlen(Icol)中存放最大字段长度值ElsexlSheet.Columns(Icol).ColumnWidth = Fieldlen(Icol)End IfxlSheet.Cells(Irow, Icol).Value = .Fields(Icol - 1)End S

26、electNextIf Irow 1 ThenIf Not .EOF Then .MoveNextEnd IfNextWith xlSheet.Range(.Cells(1, 1), .Cells(1, Icol - 1).Font.Name = 黑体设标题为黑体字.Range(.Cells(1, 1), .Cells(1, Icol - 1).Font.Bold = True标题字体加粗.Range(.Cells(1, 1), .Cells(Irow, Icol - 1).Borders.LineStyle = xlContinuous设表格边框样式End WithxlApp.Visible

27、 = True 显示表格xlBook.Save 保存Set xlApp = Nothing 交还控制给ExcelEnd WithEnd Sub本程序在中文Windows98、中文VB6下通过。=VB5.0调用Office97技巧Visual Basic 5.0具有简单、易学等特点，深受初学者的欢迎，但也有一些不如人意的地方。例如，不能像Word 97那样进行拼写检查，不能像Excel 97那样具有很多的函数。如果我们能将Word 97和Exce l97的功能使用在Visual Basic 5.0中，就可以使VB达到锦上添花的目的。我们知道所有Office 97 应用程序都提供了ActiveX对

28、象，我们可以在Visual Basic 5.0中使用它们调用Word 97要想在VB中调用Word 97，首先要打开VB的工程菜单中的引用项目，并在该项目对话框中选定Microsoft Word 8.0 Object Library就可以了。下面我们举例说明调用Word 97中的拼写检查和单词统计功能。首先新建一个工程并在窗体上放置一个TextBox控件和两个CommandButton控件，然后添入如下的代码： Option Explicit Dim Doc As New Document Dim Visi As Boolean拼写检查 Private Sub Command1Click()

29、Form1.Caption = 拼写检查 Doc.Range.Text = Text1确定范围 Doc.Application.Visible = True 将Word 97变为可见 AppActivate Doc.Application.Caption激活Word 97 Doc.Range.CheckSpelling拼写检查 Text1 = Doc.Range.Text Text1 = Left(Text1, Len(Text1) 1) AppActivate Caption End Sub 统计单词数 Private Sub Command2Click() Dim Dlg As Word.

30、Dialog Doc.Range = Text1.Text Set Dlg = Doc.Application.Dialogs (wdDialogDocumentStatistics) Dlg.Execute 统计单词和字符 Form1.Caption =单词数: Str(Dlg.Words) 词 Str(Dlg.Characters) 字符 显示统计结果 End SubTop范例三 Private Sub FormLoad() Form1.Caption =调用Word 97 Text1.Text = Command1.Caption = 拼写检查 Command2.Caption = 统计

31、单词 使应用程序可见 Visi = Doc.Application.Visible End Sub 关闭应用程序 Private Sub FormUnload(Cancel As Integer) If Visi Then 关闭文件 Doc.Close savechanges:=False Else Doc.Application.Quit savechanges:=False 关闭 Word 97 End If End Sub调用Excel 97使用Excel Sheet对象的技术可以处理可变数量的数据，并将结果最后送到你的Visual Basic 应用程序中。例子如下：新建一个工程并在新建

32、的窗体上放置两个TextBox控件和一个CommandButton控件及六个Label控件。建设中的窗体如图2所示。程序代码如下： Option Explicit Private Sub Command1Click() Dim xObject As Object 调用Excel 97 Set xObject = CreateObject(Excel.Sheet) Set xObject = xObject.Application.ActiveWorkbook.ActiveSheet xObject.Range(A1).Value = Text1.Text 将数值送入Excel 97的A1单元格

33、 xObject.Range(A2).Value = Text2.Text 将数值送入Excel 97的A2单元格 xObject.Range(A3).Formula = =MAX(A1,A2) 将最大值送入A3单元格 xObject.Range(A4).Formula = =ATAN(A1/A2)180/PI() 将反正切值送入A4单元格 显示计算的结果 Label1.Caption = xObject.Range(A3).Value Label2.Caption = xObject.Range(A4).Value Set xObject = Nothing End Sub Private

34、Sub Form_Load() Text1.Text = Text2.Text = Label1.Caption = Label2.Caption = End Sub该程序的作用是：首先在两个文本框（Text1和Text2）输入数值并分别将输入的数值送入Excel 97的A1和A2单元格中，然后用Excel 97中的Max()函数将计算的结果送入A3 单元格中；用反正切函数ATAN()进行计算并将结果送入A4 单元格中，最后输出。table border=0 width=100% cell=浅谈Excel 的VB编程Excel是一个优秀的电子表格软件，如果你编的程序需要以报表的形式显示最终结果

35、，它会是个不错的选择。你可以通过VB控制Excel显示数据表格。如果你不愿意深入了解Excel这些琐碎的细节，也不是没有权宜之计：你可以打开Excel中的工具宏录制新宏，然后进行手工操作，结束后把所录的宏代码贴进你的VB程序就行。这样得到的程序一般都能正常运行，但其中的宏代码往往不够简洁，效率和可读性都不高。- Excel编程碰到的第一个问题是表头。有时表头的形式比较复杂，需要横向或纵向合并单元格。请放心，只要没有斜杠，Excel都能应付得了。- 例如合并A2A5这4个单元格，你录制的宏代码会是这样：Range(A2:A5).SelectWith Selection.HorizontalAli

36、gnment = xlCenter.VerticalAlignment = xlBottom.WrapText = False.Orientation = 0.AddIndent = False.ShrinkToFit = False.MergeCells = FalseEnd WithSelection.Merge- 而自己编程只要一句 Range.(A2:A5).mergecells=True 就可以解决问题。- 表头形式定了，再就是表头的内容。如果单元格中的文本长度超过了列宽，往往只能显示部分内容，行尾那一格的内容则会越境进入右边那个空白单元格，很不美观。这个问题可以通过在程序中设置列宽

37、加以解决。- Columns(14).columnwidth=12 设置第14列列宽为12（缺省列宽为8.38）- 如果你不愿意劳神去逐列估计实际所需的列宽，干脆来一行- Columns(a:i).autofit a到i列自动调整列宽- 让Excel随机应变吧。- 但也许你不喜欢这种方法，认为表头撑大了列宽，弄得浏览一张小表格还得向右滚动，太不方便了。要是能保持默认列宽，让文本自动换行就好了。没问题，Excel包你满意。- Rows(3).WrapText=True 让第三行各单元格中的文本自动换行- 不过你最好再加一句 Rows(3) .VerticalAlignment = xlTop 让

38、表头自动向上对齐，这样比较符合习惯。- 你还可以给表头打上底色，让你的读者不至于看了打哈欠。- Rows(2). Interior .ColorIndex = 5 设置第2行底色为蓝色- 再给表格的标题上色，这样更醒目一点。- Rows(1).Font.ColorIndex=4- 表头完成后该填数据了，一个一个地填实在是太慢了，如果你的数据是存放在一个二维数组中，那问题就简单多了。Dim Data(3,4) 数据处理Range(a2:d4).Value=Data- 这样可以一次填入一个表的所有数据，够快了吧！不过提醒一句，Range对象大小最好与数组匹配，小了无法显示所有数据，大了则会在空白单

39、元格只填入N/A表示没有取得数据。- 如果需要在结果中显示多个同样规格的数据表，想在Range对象中加入循环变量，这也好办。Dim cell11,cell2Dim Data(3,4)For I =1 to 40 数据处理Set cell1=Worksheets(Sheet1).Cells(5*I-4,1)Set cell2=Worksheets(Sheet1).Cells(5*I-2,4)Worksheets(Sheet1).Range(cell1,cell2).value=DataNext I- 表格填完了，现在该打表格线了，以下几条语句可以满足你的要求：With Worksheets(Sh

40、eet1).Range(cell1,cell2).borders.LineStyle=xlContinuous.weight=xlThinEnd With- 好了，关于Excel的VB编程今天就讲到这儿吧。=如何將Excel的文件导入Access文件？下面我已程序代码做成模块，只要导入必要之参数即可！此一模块共有四个参数：1、sSheetName：要导出资料的文件名称 (Sheet name)，例如 Sheet12、sExcelPath：要导出资料的 Excel 档案路径名称 (Workbook path)，例如 C:book1.xls3、sAccessTable：要导入的 Access Ta

41、ble 名称，例如 TestTable4、sAccessDBPath：要导入的 Access 档案路径名称，例如 C:Test.mdb在声明中加入以下：Private Sub ExportExcelSheetToAccess(sSheetName As String, sExcelPath As String, sAccessTable As String, sAccessDBPath As String)Dim db As DatabaseDim rs As RecordsetSet db = OpenDatabase(sExcelPath, True, False, Excel 5.0)C

42、all db.Execute(Select * into ;database= & sAccessDBPath & . & sAccessTable & FROM & sSheetName & $)MsgBox Table exported successfully., vbInformation, YamsEnd Sub使用范例如下：將 C:book1.xls 中的 Sheet1 导入 C:Test.mdb 成为 TestTableExportExcelSheetToAccess Sheet1, C:book1.xls, TestTable, C:Test.mdb=Dim adoConnec

43、tion As New ADODB.ConnectionDim adoRecordset As New ADODB.RecordsetOLE DB + ODBC Driver 方式:adoConnection.Open Data Provider=MSDASQL.1;driver=Microsoft Excel Driver (*.xls);DBQ=e:tempbook2.xlsMicrosoft.Jet.OLEDB.4.0 方式,(建议)adoConnection.Open Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=Fals

44、e;Data Source=e:tempbook2.xls;Extended Properties=Excel 8.0;HDR=YesadoRecordset.Open select * from sheet1$, adoConnection, adOpenKeyset, adLockOptimistic注: OLE DB + ODBC Driver 方式不支持以下语句,但 Microsoft.Jet.OLEDB.4.0 方式支持!adoConnection.Execute insert into sheet1$(F1) values(3)adoRecordset.AddNew Array(f

45、1, f2, f3, f4), Array(1, 2, 3, 4)VB操作excel全面控制Excel 首先创建Excel对象，使用ComObj: DimExcelIDasExcel.Application SetExcelIDasnewExcel.Application 1)显示当前窗口： ExcelID.Visible:=True; 2)更改Excel标题栏： ExcelID.Caption:=应用程序调用MicrosoftExcel; 3)添加新工作簿： ExcelID.WorkBooks.Add; 4)打开已存在的工作簿： ExcelID.WorkBooks.Open(C:ExcelD

46、emo.xls); 5)设置第2个工作表为活动工作表： ExcelID.WorkSheets2.Activate; 或ExcelID.WorkSheetsSheet2.Activate; 6)给单元格赋值： ExcelID.Cells1,4.Value:=第一行第四列; 7)设置指定列的宽度（单位：字符个数），以第一列为例： ExcelID.ActiveSheet.Columns1.ColumnsWidth:=5; 8)设置指定行的高度（单位：磅）（1磅0.035厘米），以第二行为例： ExcelID.ActiveSheet.Rows2.RowHeight:=1/0.035;/1厘米 9)在第

47、8行之前插入分页符： ExcelID.WorkSheets1.Rows8.PageBreak:=1; 参考代码：ActiveSheet.HPageBreaks(1).Location=Range(A22) 10)在第8列之前删除分页符： ExcelID.ActiveSheet.Columns4.PageBreak:=0; 11)指定边框线宽度： ExcelID.ActiveSheet.RangeB3:D4.Borders2.Weight:=3; 1-左 2-右3-顶 4-底5-斜()6-斜(/) 12)清除第一行第四列单元格公式： ExcelID.ActiveSheet.Cells1,4.Cl

48、earContents; 13)设置第一行字体属性： ExcelID.ActiveSheet.Rows1.Font.Name:=隶书; ExcelID.ActiveSheet.Rows1.Font.Color :=clBlue; ExcelID.ActiveSheet.Rows1.Font.Bold:=True; ExcelID.ActiveSheet.Rows1.Font.UnderLine:=True; 14)进行页面设置： a.页眉： ExcelID.ActiveSheet.PageSetup.CenterHeader:=报表演示; b.页脚： ExcelID.ActiveSheet.P

49、ageSetup.CenterFooter:=第&P页; c.页眉到顶端边距2cm： ExcelID.ActiveSheet.PageSetup.HeaderMargin:=2/0.035; d.页脚到底端边距3cm： ExcelID.ActiveSheet.PageSetup.HeaderMargin:=3/0.035; e.顶边距2cm： ExcelID.ActiveSheet.PageSetup.TopMargin:=2/0.035; f.底边距2cm： ExcelID.ActiveSheet.PageSetup.BottomMargin:=2/0.035; g.左边距2cm： Exce

50、lID.ActiveSheet.PageSetup.LeftMargin:=2/0.035; h.右边距2cm： ExcelID.ActiveSheet.PageSetup.RightMargin:=2/0.035; i.页面水平居中： ExcelID.ActiveSheet.PageSetup.CenterHorizontally:=2/0.035; j.页面垂直居中： ExcelID.ActiveSheet.PageSetup.CenterVertically:=2/0.035; k.打印单元格网线： ExcelID.ActiveSheet.PageSetup.PrintGridLines

51、:=True; 15)拷贝操作： a.拷贝整个工作表： ExcelID.ActiveSheet.Used.Range.Copy; b.拷贝指定区域： ExcelID.ActiveSheet.RangeA1:E2.Copy; c.从A1位置开始粘贴： ExcelID.ActiveSheet.Range.A1.PasteSpecial; d.从文件尾部开始粘贴： ExcelID.ActiveSheet.Range.PasteSpecial; 16)插入一行或一列： a.ExcelID.ActiveSheet.Rows2.; b.ExcelID.ActiveSheet.Columns1.; 17)删

52、除一行或一列： a.ExcelID.ActiveSheet.Rows2.; b.ExcelID.ActiveSheet.Columns1.; 18)打印预览工作表： ExcelID.ActiveSheet.PrintPreview; 19)打印输出工作表： ExcelID.ActiveSheet.PrintOut; 20)工作表保存： IfnotExcelID.ActiveWorkBook.Savedthen ExcelID.ActiveSheet.PrintPreview Endif 21)工作表另存为： ExcelID.SaveAs(C:ExcelDemo1.xls); 22)放弃存盘： ExcelID.ActiveWorkBook.Saved:=True; 23)关闭工作簿： ExcelID.WorkBooks.Close; 24)退出Excel： ExcelID.Quit; 25)设置工作表密码: ExcelID.ActiveSheet.Protect123,DrawingObjects:=True,Con