编制直线曲线及转角表

《编制直线曲线及转角表》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第6章编制直线、曲线及转角表程序设计方法教学内容：（1）VB调用Excel自动制表的基本原理与技术支持（2）编制直线、曲线及转角表所需的设计资料（3）程序设计方法及流程框图（第12讲）第6章编制直线、曲线及转角表程序设计方法6.1.1程序功能根据平面设计的结果自动编制直线、曲线及转角表，并以Excel文件形式保存。6.1.2设计资料本程序需要两个数据文件资料：（1）设计参数资料Sjcszl.dat：路段名称（2）平面设计结果数据Zqzbsj.dat6.1概述VB自动制表可用方法使用汉字库中的制表符制表利用VB报表设计器（DataR

2、eport）功能VB调用Excel电子表格利用AutoCAD以图形格式绘出设计表格6.1.3自动制表程序设计常用方法ActiveX部件MicrosoftExcel9.0ObjectLibraryMicrosoftOffice2000MicrosoftExcel11.0ObjectLibraryMicrosoftOffice20036.2VB调用Excel自动制表的基本原理与技术支持6.2.1添加对部件的引用基本原理：使用VB的ActiveX部件，获取对Excel进行操作的控制句柄，直接控制Excel的一系列操作。Activex部件

3、简称为部件，是一段可重复使用的编程代码和数据，它是由Activex技术所创建的由一个或多个对象组成的。使用Activex部件，可以使VB应用程序具有Excel一样的分析和计算功能。6.2.2用VB创建外部EXCEL对象1.声明对象变量在添加了对部件的引用后，必须先声明对象变量，然后才能被引用。例如，在应用程序中要调用Excel，就应声明类ExcelApplication：代码为：DimxlAppAsExcel.Application2.将对象引用赋予变量(引用)对象的引用可用Set语句实现，使用关键字New或CreatObject

4、将对象引用赋予变量。启动MicrosoftExcel，并创建变量xlApp来引用一个Application类的对象，代码如下：DimxlAppAsExcel.ApplicationSetxlApp=NewExcel.Application3.打开工作簿Workbooks：即打开Excel文件打开一个新建的工作簿xlApp.WorkBooks.Add‘未命名两种情况打开已存在的工作簿：如test.xlsxlApp.Workbooks.Open("c:test.xls")4.工作簿及工作表操作操作方法属性层次命令功能命令功能命令功能

5、1Open打开Visible可见Application应用2Add新建Value单元格值Workbooks工作簿3Select选定Font.Name字型名Worksheets工作表4Copy复制Size字型尺寸Range范围5Paste粘贴Bold加粗Cells单元格6Delete删除LineStyle线型Rows行7Close关闭RowHeight行高Colums列8Quit退出ColumnWidth列宽9Save保存10SaveAs另存11Formula公式12Cut剪切6.3编制直线、曲线及转角表程序设计方法与步骤6.3.

6、1控制窗体设计6.3.2程序设计流程框图6.3编制直线、曲线及转角表程序设计方法与步骤6.3.1控制窗体设计点击运行6.3编制直线、曲线及转角表程序设计方法与步骤6.3.1控制窗体设计6.3.2程序设计流程框图在母表下面复制一张空表，供填入数据如果本页已满，在其下面再复制一张空表声明对象变量及一般变量，读入基础数据从平面设计结果文件Zqzbsj.dat获取计算数据逐行填入数据（对指定单元格赋值）删除空表，保存并关闭Excel表格文件zjb.xls关闭数据文件，结束计算非文件尾文件尾编制直曲线表计算程序流程框图打开Excel表格

7、文件，并复制整页表格到粘贴板按照设计要求编制Excel表格文件(空表)复制预先编制的Excel文件作为编辑文件(zjb.xls)在母表下面复制一张空表，供填入数据如果本页已满，在其下面再复制一张空表声明对象变量及一般变量，读入基础数据从平面设计结果文件Zqzbsj.dat获取计算数据逐行填入数据（对指定单元格赋值）删除空表，保存并关闭Excel表格文件zjb.xls关闭数据文件，结束计算非文件尾文件尾编制直曲线表计算程序流程框图打开Excel表格文件，并复制整页表格到粘贴板按照设计要求编制Excel表格文件(空表)复制预先编制的E

8、xcel文件作为编辑文件(zjb.xls)DimxlAppAsExcel.ApplicationPrivateSubCommand1_Click()DimpathAsStringpath=Text1.textOpenpath+"sjcszl.da