資源描述：
《編制直線曲線及轉(zhuǎn)角表》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫(kù)。
1、第6章編制直線、曲線及轉(zhuǎn)角表程序設(shè)計(jì)方法教學(xué)內(nèi)容：（1）VB調(diào)用Excel自動(dòng)制表的基本原理與技術(shù)支持（2）編制直線、曲線及轉(zhuǎn)角表所需的設(shè)計(jì)資料（3）程序設(shè)計(jì)方法及流程框圖（第12講）第6章編制直線、曲線及轉(zhuǎn)角表程序設(shè)計(jì)方法6.1.1程序功能根據(jù)平面設(shè)計(jì)的結(jié)果自動(dòng)編制直線、曲線及轉(zhuǎn)角表，并以Excel文件形式保存。6.1.2設(shè)計(jì)資料本程序需要兩個(gè)數(shù)據(jù)文件資料：（1）設(shè)計(jì)參數(shù)資料Sjcszl.dat：路段名稱（2）平面設(shè)計(jì)結(jié)果數(shù)據(jù)Zqzbsj.dat6.1概述VB自動(dòng)制表可用方法使用漢字庫(kù)中的制表符制表利用VB報(bào)表設(shè)計(jì)器（DataR
2、eport）功能VB調(diào)用Excel電子表格利用AutoCAD以圖形格式繪出設(shè)計(jì)表格6.1.3自動(dòng)制表程序設(shè)計(jì)常用方法ActiveX部件MicrosoftExcel9.0ObjectLibraryMicrosoftOffice2000MicrosoftExcel11.0ObjectLibraryMicrosoftOffice20036.2VB調(diào)用Excel自動(dòng)制表的基本原理與技術(shù)支持6.2.1添加對(duì)部件的引用基本原理：使用VB的ActiveX部件，獲取對(duì)Excel進(jìn)行操作的控制句柄，直接控制Excel的一系列操作。Activex部件
3、簡(jiǎn)稱為部件，是一段可重復(fù)使用的編程代碼和數(shù)據(jù)，它是由Activex技術(shù)所創(chuàng)建的由一個(gè)或多個(gè)對(duì)象組成的。使用Activex部件，可以使VB應(yīng)用程序具有Excel一樣的分析和計(jì)算功能。6.2.2用VB創(chuàng)建外部EXCEL對(duì)象1.聲明對(duì)象變量在添加了對(duì)部件的引用后，必須先聲明對(duì)象變量，然后才能被引用。例如，在應(yīng)用程序中要調(diào)用Excel，就應(yīng)聲明類ExcelApplication：代碼為：DimxlAppAsExcel.Application2.將對(duì)象引用賦予變量(引用)對(duì)象的引用可用Set語(yǔ)句實(shí)現(xiàn)，使用關(guān)鍵字New或CreatObject
4、將對(duì)象引用賦予變量。啟動(dòng)MicrosoftExcel，并創(chuàng)建變量xlApp來(lái)引用一個(gè)Application類的對(duì)象，代碼如下：DimxlAppAsExcel.ApplicationSetxlApp=NewExcel.Application3.打開工作簿W(wǎng)orkbooks：即打開Excel文件打開一個(gè)新建的工作簿xlApp.WorkBooks.Add‘未命名兩種情況打開已存在的工作簿：如test.xlsxlApp.Workbooks.Open("c:test.xls")4.工作簿及工作表操作操作方法屬性層次命令功能命令功能命令功能
5、1Open打開Visible可見Application應(yīng)用2Add新建Value單元格值Workbooks工作簿3Select選定Font.Name字型名Worksheets工作表4Copy復(fù)制Size字型尺寸Range范圍5Paste粘貼Bold加粗Cells單元格6Delete刪除LineStyle線型Rows行7Close關(guān)閉RowHeight行高Colums列8Quit退出ColumnWidth列寬9Save保存10SaveAs另存11Formula公式12Cut剪切6.3編制直線、曲線及轉(zhuǎn)角表程序 設(shè)計(jì)方法與步驟6.3.
6、1控制窗體設(shè)計(jì)6.3.2程序設(shè)計(jì)流程框圖6.3編制直線、曲線及轉(zhuǎn)角表程序 設(shè)計(jì)方法與步驟6.3.1控制窗體設(shè)計(jì)點(diǎn)擊運(yùn)行6.3編制直線、曲線及轉(zhuǎn)角表程序 設(shè)計(jì)方法與步驟6.3.1控制窗體設(shè)計(jì)6.3.2程序設(shè)計(jì)流程框圖在母表下面復(fù)制一張空表，供填入數(shù)據(jù)如果本頁(yè)已滿，在其下面再?gòu)?fù)制一張空表聲明對(duì)象變量及一般變量，讀入基礎(chǔ)數(shù)據(jù)從平面設(shè)計(jì)結(jié)果文件Zqzbsj.dat獲取計(jì)算數(shù)據(jù)逐行填入數(shù)據(jù)（對(duì)指定單元格賦值）刪除空表，保存并關(guān)閉Excel表格文件zjb.xls關(guān)閉數(shù)據(jù)文件，結(jié)束計(jì)算非文件尾文件尾編制直曲線表計(jì)算程序流程框圖打開Excel表格
7、文件，并復(fù)制整頁(yè)表格到粘貼板按照設(shè)計(jì)要求編制Excel表格文件(空表)復(fù)制預(yù)先編制的Excel文件作為編輯文件(zjb.xls)在母表下面復(fù)制一張空表，供填入數(shù)據(jù)如果本頁(yè)已滿，在其下面再?gòu)?fù)制一張空表聲明對(duì)象變量及一般變量，讀入基礎(chǔ)數(shù)據(jù)從平面設(shè)計(jì)結(jié)果文件Zqzbsj.dat獲取計(jì)算數(shù)據(jù)逐行填入數(shù)據(jù)（對(duì)指定單元格賦值）刪除空表，保存并關(guān)閉Excel表格文件zjb.xls關(guān)閉數(shù)據(jù)文件，結(jié)束計(jì)算非文件尾文件尾編制直曲線表計(jì)算程序流程框圖打開Excel表格文件，并復(fù)制整頁(yè)表格到粘貼板按照設(shè)計(jì)要求編制Excel表格文件(空表)復(fù)制預(yù)先編制的E
8、xcel文件作為編輯文件(zjb.xls)DimxlAppAsExcel.ApplicationPrivateSubCommand1_Click()DimpathAsStringpath=Text1.textOpenpath+"sjcszl.da
