變形監(jiān)測趨勢線生成畢業(yè)論文

1、. . . . 畢 業(yè) 設 計 (論 文) 目 錄摘要本文主要介紹變形監(jiān)測數(shù)據(jù)的自動化處理，通常測繪人員處理測量數(shù)據(jù)都是手動處理或者運用專業(yè)軟件處理，但是變形監(jiān)測數(shù)據(jù)量比較大，而且繁雜，手動處理比較費事且容易出錯，為此測繪人員通過不斷嘗試后，開始用Excel的VBA二次開發(fā)來處理變形監(jiān)測數(shù)據(jù)。Excel的VBA二次開發(fā)是基于數(shù)據(jù)手動處理的基礎上，結合變形監(jiān)測數(shù)據(jù)處理重復的特點，通過程序軟件Visual Basic對Excel的開發(fā)，實現(xiàn)原始觀測數(shù)據(jù)輸入原始表格后，運行編寫程序即可得到變形監(jiān)測需要的累計沉降量、隔日沉降量、沉降速度等數(shù)據(jù)，實現(xiàn)變形監(jiān)測數(shù)據(jù)的自動化處理。最后運用AutoCAD生成趨

2、勢線，對渡江紀念館建成后沉降進行預測。關鍵字; 變形監(jiān)測 自動化處理 Excel VBA二次開發(fā) 趨成線AbstractIn this paper, the automated processing of deformation monitoring data, usually surveying and mapping personnel to deal with the measurement data are manually processing or use of specialized software processing, but the deformation monitor

3、ing data larger than, and complicated, manual handling more cumbersome and error-prone, for surveying and mapping through constantly trying to start Excel VBA in secondary development to deal with the deformation monitoring data. Excel VBA in secondary development is based on the manual processing o

4、f the data, the combination of deformation monitoring data processing duplicate the characteristics of the software Visual Basic Excel development, the original form of the original observation data input, run the programming can be obtained by deformation total settlement amount, the next day settl

5、ement, sedimentation data, the need for monitoring the deformation of the automated processing of monitoring data. Finally, AutoCAD generate chemotactic into line, to predict the settlement after the completion of crossing the river Memorial.Keywords;：Deformation MonitoringAutomated processingExcelV

6、BA Secondary developmentIncreasingly into line 窗體頂端窗體底端第一章 工程背景1.1工程概況渡江戰(zhàn)役紀念館主體工程是渡江戰(zhàn)役紀念館建設區(qū)內的主體建筑，紀念館主體建筑面積約17000平米，高度近40米，由4榀型鋼混凝土桁架懸挑梁組成，最大懸挑長度為35m。該工程高大空曠，懸挑跨度大，結構復雜，設計要求高，施工難度大，模板支護約40米高，工程工期緊。為保證項目施工質量和安全，保證結構最終完成時的形狀和受力狀態(tài)達到建筑和結構設計的預期目的，必須與時掌握結構關鍵部位在施工過程中的應力應變變化，建立嚴格的監(jiān)控量測制度和有效、暢通的信息反饋、搶險應急機制，將

7、監(jiān)測數(shù)據(jù)真實、與時的發(fā)送至相關各方，使施工進入動態(tài)化管理，并進行施工決策。根據(jù)合肥渡江戰(zhàn)役紀念館施工監(jiān)測方案，在合肥渡江戰(zhàn)役紀念館主體建筑施工期間，需要對建筑物實施如下變形監(jiān)測項目：1.建筑物整體沉降監(jiān)測；2.高支撐架體位移監(jiān)測；3. 高支撐架體下端基礎沉降監(jiān)測；4. 高支撐架體下端擋土墻水平位移監(jiān)測；5. 高支撐架體拆除過程中船頭部分的沉降監(jiān)測。我校項目組于2009年11月下旬對建筑物開始變形監(jiān)測，各監(jiān)測項目的監(jiān)測情況總結如下。1.2、建筑物整體沉降監(jiān)測1.2.1監(jiān)測依據(jù)建筑變形測量規(guī)范(JGJ8-2007)工程測量規(guī)范(GB50026-2007)建筑地基基礎設計規(guī)范（GB50007_200

8、2）1.2.2.技術指標依據(jù)建筑地基基礎設計規(guī)（GB50007_2002），建筑物地基基礎整體沉降最大值：200mm(Hg<100m)，現(xiàn)場監(jiān)測設置預警值，為：沉降速率>1.0mm/d；累計沉降達到最大允許沉降的70%,提出預警。為此，依據(jù)最新的建筑變形測量規(guī)范(JGJ8-2007)，本次沉降監(jiān)測的技術指標采用“二級”變形測量級別的技術指標（見表2-1）。表2-1 建筑變形測量的級別、精度指標與適用范圍你把參考資料中的表拷貝過來，表號和圖號要跟自己文章中的標題序號對應，下同。變形測量級別沉降觀測水平位移適用范圍觀測點測站高差中誤差(mm)觀測點坐標中誤差(mm)特級±0.

9、05±0.3特高精度要求的特種精密工程的變形測量一級±0.15±1.0地基基礎設計為甲級的建筑的變形測量；重要古建筑和特大型市政橋梁等的變形測量等二級±0.5±3.0地基基礎設計為甲級、乙級的建筑的變形測量；場地滑坡測量；重要管線的變形測量；地下工程施工與運營中的變形測量；大型市政橋梁變形測量等三級±1.5±10.0地基基礎設計為乙、丙級的建筑的變形測量；地表、道路與一般管線的變形測量；中小型市政橋梁變形測量等參照該要求，依據(jù)工程測量規(guī)范(GB50026-2007)，結合工程現(xiàn)場實際，本次建筑物的沉降觀測需要布設“水準基點”

10、、“工作基點”和“沉降監(jiān)測點”3種類型的監(jiān)測點。按照二等水準測量的技術要求（見表2-2），布設成水準網（見圖2-1）。該水準網為自由網，基于施工現(xiàn)場高程基準，測定一個水準基點的高程值，其他所有點的高程值，以此水準點為基準，計算得出。表2-2 垂直位移監(jiān)測基準網的主要技術要求表號等級相鄰基準點高差中誤差(mm)變形監(jiān)測點高程中誤差(mm)每站高程中誤差(mm)往返較差或環(huán)線閉合差(mm)檢測已測高差較差(mm)一等±0.3±0.3±0.07二等±0.5±0.5±0.15三等±1.0±1.0±0.30四等&#

11、177;2.0±2.0±0.701.2.3.監(jiān)測步驟建立監(jiān)測用水準高程控制網水準高程控制網的建立，需要在第一次沉降觀測前建立。采用二等水準，建立由水準基點B1B3，工作基點W1W5所組成的水準控制網（水準基點與工作基點的布設見圖2-1），經過嚴密平差，得出水準控制網各點的初始高程值（見表2-3）。需要時常巡視水準基點和工作基點的完好情況。一旦有移動或破壞的痕跡，需要與時修復或增補，并重新進行控制測量。圖名圖號沉降觀測按照設計圖紙要求，沉降監(jiān)測點設置在±0標高以上500mm位置。因此，首次沉降觀測，定在一層模板拆除，二層樓板澆注之前進行。以后每澆注一層樓板，進行一次

12、觀測，共需觀測6次（分別為首次、6m樓板澆好、12m樓板澆好、18m樓板澆好、24m鋼梁焊接完畢和主體完工）。主體完工以后，根據(jù)沉降情況，每12個月進行一次觀測。1.3、船頭高支撐架體基礎沉降監(jiān)測1.3.1監(jiān)測依據(jù)建筑變形測量規(guī)范(JGJ8-2007)工程測量規(guī)范(GB50026-2007)1.3.2技術指標同整體沉降監(jiān)測方案中的技術指標，采用二等水準的測量觀測方法。1.3.3監(jiān)測步驟建立水準控制網同整體沉降監(jiān)測方案中的布網方案。沉降觀測船頭高支撐架體基礎沉降監(jiān)測點的布設，在各榀大梁下方腳手架基礎上，選擇通視情況良好的地方，每一分區(qū)布設一個水準觀測點（如圖3-1）船頭高支撐架體的穩(wěn)定性是整個工

13、程監(jiān)測的重點，需要根據(jù)工程的具體施工情況，進行高密度的監(jiān)測。首次觀測，定在相應區(qū)域支撐架體搭設完畢，觀測點布設成功1周后進行。之后3天觀測一次，在混凝土澆注后1周，每天觀測1次，1周后恢復每3天觀測一次直至竣工。圖3-1 高支撐架體沉降監(jiān)測點布設示意圖圖號圖2-1 沉降監(jiān)測網布設示意圖表2-3 經嚴密平差后的水準高程控制網成果表表號點名高程(m)高程中誤差(mm)備注B117.04180.3水準基點B217.33190.4B317.96340.3W117.5897 0.4工作基點W217.0787 0.2W316.5970 0.3W417.5986 0.3W518.1470 0.2沉降監(jiān)測點的

14、觀測沉降觀測點的布設，按照設計圖紙的要求，預埋于建筑物東西立面±0標高以上約500mm位置處，點位間隔約30m（如圖2-1）。沉降點的觀測，采用二等水準觀測方法，與工作基點形成符合路線。監(jiān)測點的高程值，經平差后得出。1.4、船頭高支撐架體與23米跨橫梁了水平位移監(jiān)測1.4.1監(jiān)測依據(jù)建筑變形測量規(guī)范(JGJ8-2007)工程測量規(guī)范(GB50026-2007)1.4.2技術指標見表2-.監(jiān)測步驟船頭高支撐架體與23米跨橫梁水平位移監(jiān)測采用懸掛鋼絲法進行觀測。各分區(qū)選擇具有代表性的槽鋼立桿1根，在其頂端焊接觀測點（如圖4-1）船頭高支撐架體與23米跨橫梁的水平方向的穩(wěn)定性

15、，是整個工程監(jiān)測的重點，需要根據(jù)工程的具體施工情況，進行高密度監(jiān)測。首次觀測，在各分區(qū)支撐架體搭設完畢，觀測點布設成功1周后進行。之后3天觀測一次，在混凝土澆注過程中，隨時進行觀測，直至澆注結束。此后3天內，每天觀測2次，再3天內，每天觀測1次，1周后恢復每3天觀測一次直至竣工。圖4-1高支撐架體頂部水平位移監(jiān)測點布設示意圖圖號1.5、船頭高支撐架體基礎擋土墻水平位移監(jiān)測15.1.監(jiān)測依據(jù)建筑變形測量規(guī)范(JGJ8-2007)工程測量規(guī)范(GB50026-2007)1.5.2.技術指標同整體沉降監(jiān)測方案中的技術指標，采用二等水準的測量觀測方法。1.5.3.監(jiān)測步驟船頭高支撐架體基礎擋土墻水平位

16、移監(jiān)測采用經緯儀測小角法進行。在擋土墻兩側延伸線上，尋找兩個相對穩(wěn)定，便于假設儀器，與監(jiān)測點通視的儀器架站點作為監(jiān)測工作基點。監(jiān)測點的布設如圖5-1首次觀測，在觀測點布設完成1周后進行。之后3天觀測一次，在混凝土澆注后1周，每天觀測1次，1周后恢復每3天觀測一次直至竣工。第二章應用Excel手動處理變心監(jiān)測數(shù)據(jù)一章要從新頁開始2.1 Excel功能簡介Excel 是天然的“可見的二維數(shù)組”。它可以最多有256 列，65536 行，每一行和每一列的交叉處是一個單元格。單元格可用它所處的行和所處的列表示。如A2表示第2 行第A 列的單元格。B2：F8 表示第2 行第B列至第8 行第F 列的單元格區(qū)

17、域。Excel 單元格中可以直接輸入數(shù)值，也可以通過輸入表達式的方式輸入數(shù)值。Excel 在通過表達式方式給單元格賦值時可以調用其它單元格的數(shù)值。Excel 單元格調用的方式有兩種，即絕對調用和相對調用。單元格絕對調用是指當調用形式復制到其它單元格時，被調用單元格不會因為調用單元格改變而改變。單元格絕對調用時被調用單元格前要加“$”符號。如，在C2 單元格編輯欄鍵入“= $A$1”，表示C2 單元格絕對調用A1 單元格的數(shù)據(jù)。當把C2 單元格的表達式復制到F4 單元格時，F(xiàn)4 單元格編輯欄仍是“= $A$1”，它不隨調用單元格的改變而改變。單元格相對調用是指當調用形式復制到其它單元格時，被調用

18、單元格會隨著調用單元格改變而改變。單元格相對調用時被調用單元格前不加“$”符號。例如，在C2 單元格編輯欄鍵入“= A1”，表示C2 單元格相對調用A1 單元格的數(shù)據(jù)。當把C2 單元格的表達式復制到F4 單元格時，F(xiàn)4 單元格編輯欄就會變成“= D3”，被調用單元格隨著調用單元格的變化而改變。 測量數(shù)據(jù)處理過程多數(shù)情況是對一大批數(shù)據(jù)通過某種數(shù)學模型轉換的重復過程。在這種數(shù)學模型中，我們每次都可能用到一些常量，并且這些常量在每次計算中都是固定不變。這種情況我們用Excel 處理數(shù)據(jù)時就可以利用單元格的絕對調用，把常量存入Excel 的某一單元格中，每一次計算時都絕對調用它。一次計算完成后，下一次

19、重復計算時我們可以把上一次的數(shù)學模型復制到這次計算中來，復制的數(shù)學模型中如有單元格的相對調用，就可以完成各初始輸入數(shù)據(jù)的自動切換。Excel 內含豐富的函數(shù)功能，包含常規(guī)數(shù)學函數(shù)、三角函數(shù)和反三角函數(shù)，復雜的矩陣運算、統(tǒng)計運算和邏輯運算函數(shù)也都包含，完全可以滿足測量一些常規(guī)重復計算過程。在利用Excel 完成測量數(shù)據(jù)處理的重復計算過程中，我們可以利用Excel 的一行完成一次計算。在一行中我們可以通過單元格之間的相互調用實現(xiàn)變量之間數(shù)值的傳遞，并結合Excel 豐富的函數(shù)功能完成數(shù)學模型的建立，并把計算結果設在一行的后幾列中。當一行的一次計算完成后，我們就可以利用Excel 各列的充填柄根據(jù)重

20、復計算的次數(shù)對各列進行充填。這個過程實際上是把一行的數(shù)學計算模型復制到其它各行中去，在復制過程中表達式如有單元格的相對調用，被調用單元格會隨著調用單元格的改變而改變，也就是完成了以下幾行數(shù)學模型的建立，而不必每行都重復輸入同一種數(shù)學模型。同時由于Office軟件使用的普遍性與其組件之間數(shù)據(jù)良好的交互性和共享性,利用Excel來進行一些比較復雜的數(shù)據(jù)處理具有簡便、高效和通用的特點,Excel在測量數(shù)據(jù)處理與相應報告的生成等方面更具優(yōu)勢。由于變形監(jiān)測分為整體沉降監(jiān)測、整體傾斜監(jiān)測、船頭高支撐架體的沉降監(jiān)測、船頭高支撐架體與23米跨橫梁的水平位移監(jiān)測等多種變形監(jiān)測，本文就已整體沉降監(jiān)測為例。2.2用

21、Excel處理數(shù)據(jù)的步驟221建立原始數(shù)據(jù)記錄表 用Excel處理測量數(shù)據(jù)首先要設計好原始記錄電子表格，此表格要進行規(guī)格化，即所有的行、列、格都要一單元格的整數(shù)倍為單位（如表1所示）。這樣，便于在多次鑒定時，直接把測量數(shù)據(jù)輸入到Excel工作表中相應的單元格，無須重新輸入公式，就可以自動生成計算結果和相應的分析圖表, 從而使檢測效率提高。將有文字性內容的單元格輸入相應的內容有文字性內容的單元格要先輸入相應的內容, 這樣便于在輸入原始數(shù)據(jù)和公式時能在準確的單元格輸入, 比較不易出錯。輸入時可邊調整單元格大小。對于文字較多的單元格,還可以采用“合并單元格”的方法, 使多個單元格合并成一個單元格,

22、便于文字的輸入。相反也可以采用“拆分單元格”的方法, 使一個單元格分成n 個單元格（如下表格）。圖名或表名（只要在文章中有圖和表，都要有編號和名稱，而且正文中的內容要引用上）2.2.2輸入原始數(shù)據(jù)并計算相應數(shù)據(jù)在原始數(shù)據(jù)記錄單元輸入原始數(shù)據(jù)的輸入位置要準確,在計算高差、高差互差、平均高差、高程等在計算結果的單元格輸入相應的計算公式Excel 提供有復雜公式運算功能, 可以利用工具欄中的“粘貼函數(shù)”按鈕, 選取所需的函數(shù)實現(xiàn)單元格的公式輸入。常用函數(shù)還可以直接點擊Excel 公式編輯欄左邊的下拉按鈕, 選擇一種常用函數(shù)實現(xiàn)公式輸入。編輯公式時應注意, 所有的Excel 公式總是以一個等號( =)

23、 開頭。公式一般由運算符、單元格標、數(shù)據(jù)值和工作表函數(shù)等組成。其中：H1=D5-F6H2=E5-G6注意：用Excel 進行數(shù)據(jù)處理時的操作技巧編輯公式可用編輯欄。編輯公式時, 首先選擇要輸入公式的單元格, 然后單擊編輯欄中的“=”號按鈕( 此為編輯公式按鈕) ,“=”號便出現(xiàn)在編輯框中, 在“=”號的右邊便可輸入公式。公式中要用到的函數(shù)可直接輸入, 也可采用“粘貼函數(shù)”命令粘貼, 要用到的單元格地址可直接輸入, 也可以在表格中選取。Excel的公式復制功能給數(shù)據(jù)處理帶來很大的方便, 只要數(shù)據(jù)系列呈有規(guī)律的變化, 就可以采用Excel 的公式復制功能, 但要用公式復制功能時, 被復制的單元格中

24、輸入的公式中引用的單元格地址要注意區(qū)分相對地址與絕對地址。22.3將初步處理數(shù)據(jù)整合處理建立新的工作簿，并將不同工作簿中計算的計算高差、高差互差、平均高差、高程等數(shù)據(jù)復制粘貼到新的表格中進行處理（如表格）。并根據(jù)表格數(shù)據(jù)建立新的工作簿，并將數(shù)據(jù)再次整合得出變形監(jiān)測需要的處理數(shù)據(jù)（累計沉降量、隔日沉降量、沉降速度）如下表：再根據(jù)每次的沉降累計變化量結合Excel插入圖表功能繪制累計變化曲線圖。如圖：明顯的異常數(shù)據(jù)，你難道看不出來嗎？還要在文章中用第三章 運用Excel的VBA二次開發(fā)對數(shù)據(jù)自動化處理與一般的測量工作相比，變形觀測具有以下幾個特點：（1） 觀測的精度要求高由于變形觀測的結果直接關系

25、到建筑物的安全，影響對變形原因的分析和變形規(guī)律的正確分析，和其他測量工作相比較，變形觀測必須具有很高的精度。典型的變形觀測精度要求是1mm或者相對精度1×10-6。因此，根據(jù)變形觀測的目的不同，確定合理的觀測精度和觀測方法，優(yōu)化觀測方案，選擇測量儀器是實施變形觀測的前提。（2） 需要重復觀測建筑物由于各種原因產生的變形都有時間效應，計算其變形最簡單，最基本的方法是計算建筑物上同一點在不同時間的坐標差和高程差。這就要求變形觀測必須依一定的時間周期重復觀測，時間跨度較大。重復觀測的周期取決于變形觀測的目的，預計的變形量的大小和速度。（3） 要求采用嚴密的數(shù)據(jù)處理方法建筑物的變形一般都比較

26、小，有時甚至與觀測精度處在同一個數(shù)量級；同時，大量重復觀測使原始數(shù)據(jù)增多。要求從不同時期的大量數(shù)據(jù)中，精確確定變形信息，必須采用嚴密的數(shù)據(jù)處理方法。這對測量工作也提出了更為艱巨的要求。在建筑物建設的整個過程中, 從工程施工開始到竣工，以與建成后整個工程的運營期間都要不斷的對工程建筑物進行監(jiān)測，以便掌握工程建筑物變形的情況，與時發(fā)現(xiàn)問題，保證工程建筑物的安全。在不斷的監(jiān)測過程中，測獲了大量的原始觀測數(shù)據(jù),在每次測量后都要與時的對數(shù)據(jù)進行處理，生成報告工程建筑物變形的情況。但是內業(yè)數(shù)據(jù)處理量大，工作繁重，建筑物的變形一般都比較小，有時甚至與觀測精度處在同一個數(shù)量級；同時，大量重復觀測使原始數(shù)據(jù)增多

27、。要求從不同時期的大量數(shù)據(jù)中，精確確定變形信息，必須采用嚴密的數(shù)據(jù)處理方法；另外，數(shù)據(jù)的計算的正確和精度與速度直接影響著野外測量和工程質量的好壞。這就成為擺在測繪工作人員面前的難題了。在經過測繪工作人員不斷嘗試下，大家開始利用計算機程序進行數(shù)據(jù)處理，實現(xiàn)數(shù)據(jù)處理的自動化，提高了數(shù)據(jù)處理的效率和準確率。本文就是研究通過Excel的VBA語言的二次開發(fā)實現(xiàn)變形監(jiān)測數(shù)據(jù)自動化處理。3.1程序設計流程3.1.1設計的總體要求程序的設計不僅要求符合語言規(guī)范,還需要符合測量人員輸入習慣,同時為了能讓外業(yè)人員能很快采集到符合質量要求的外業(yè)數(shù)據(jù),為了實現(xiàn)數(shù)采集、處理的一體化,還必須為數(shù)據(jù)處理提供相應測量信息與

28、相關文字說明。3.1.2設計總體流程對于不同的模板和不同的數(shù)據(jù)處理,程序設計和數(shù)據(jù)處理也有所不同,但大概可以分為以下幾個步驟:首先在Excel 上繪制紙制表格;其次將Excel與Visual Basic連接起來為Excel的VBA二次開發(fā)做準備,同時為進行后續(xù)數(shù)據(jù)處理所需要的信息提供控件或對話框,通過交互獲得測量信息,通過控件來存儲測量信息;再針對原始數(shù)據(jù)的預處理用VBA編寫相應的函數(shù)封裝在相應的模塊中專門進行處理。程序流程圖如圖2所示。Excel模板將Excel與Visual Basic連接起來導入新的觀測數(shù)據(jù)、獲得新的觀測數(shù)據(jù)表格處理觀測數(shù)據(jù)、獲得相應計算結果更新數(shù)據(jù)、獲得最新數(shù)據(jù)信息和更

29、新累計變化曲線 圖2程序流程圖3.1.3設計總體目標能使重復觀測的數(shù)據(jù)源工作簿中后，在程序運行以后將自動處理數(shù)據(jù)并得出相關數(shù)據(jù)和圖表，實現(xiàn)數(shù)據(jù)處理的自動化，提高了數(shù)據(jù)處理的效率和準確率。3.2 技術難點在設計與實施過程中,遇到了很多問題,大致可以分為以下幾個方面。下面以整體沉降程序設計為例闡述研制過程中遇到的技術問題和解決方法。3.2.1多張表格的數(shù)據(jù)處理由于原始數(shù)據(jù)比較多,大多數(shù)情況下是無法將所有的數(shù)據(jù)記錄在一張表中,這樣給程序的編制設置了一些障礙。解決方法:對于單測站數(shù)據(jù)在一張表中是比較好處理的。但是對于多張表格的數(shù)據(jù)的輸入和處理,使用插入生成一張新表來解決一張工作簿無法將數(shù)據(jù)全部記錄的矛

30、盾。在程序上,使用工作簿組對象進行編程。也就是Sheet s 對象和Worksheet s 對象,他們都表示整個工作簿組對象,用他們的索引號來標示當前處理的工作簿對象。3.2 程序編寫過程3.2.1將Excel與Visual Basic連接起來 用VB語言編程進行Excel二次開發(fā)，首先要講VB與Excel連接起來，需要一下兩個步驟：（1） 在編寫VB代碼前，在VB編程環(huán)境中引用Excel對象庫。（2） 編寫VB程序代碼后，創(chuàng)建Excel對象，啟動運行Excel .3.2.2在Visual Basic窗口設計程序運行界面（如圖）3.2.3代碼編寫（1）在全局變量的位子定義excelApp 為E

31、xcel應用程序 Dim excelApp As Excel.Application （2）定義工作簿、工作表、路徑名Dim excelWBS As Excel.Workbook ' Dim excelWBT As Excel.Workbook Dim excelSheetS As Excel.Worksheet ' Dim excelSheetT As Excel.Worksheet Dim excelRangS, excelRangT As Excel.RangeDim strFileS, strFileT As String ' Dim SheetNameS, S

32、heetNameT As String （3） 根據(jù)程序所在路徑找到觀測數(shù)據(jù)編寫代碼之前要把程序和源數(shù)據(jù)放在同一個文件夾內，然后根據(jù)APP.Path獲得應用程序所在目錄名，再加上源數(shù)據(jù)文件夾名等即可以找到觀測數(shù)據(jù)。strFileS = App.Path & "Data變形測量數(shù)據(jù)2組整體沉降(記錄).xls"strFileT = App.Path & "Data處理結果數(shù)據(jù)整體沉降(計算).xls"（4） 生成新的數(shù)據(jù)表格 在生成新的數(shù)據(jù)表格時，要選擇復制粘貼的表格是上一次數(shù)據(jù)觀測所得到的表格，對于多張表格的數(shù)據(jù)的輸入和處理,在程序上,使

33、用工作簿組對象進行編程。也就是Sheet s 對象和Worksheet s 對象,他們都表示整個工作簿組對象,用他們的索引號來標示當前處理的工作簿對象。在工作簿集中上一次生成的表格在此工作表的索引號的倒數(shù)第三位，一次為“Count - 2“。 excelApp.Visible = True Set excelWBS = excelApp.Workbooks.Open(strFileS) '打開觀測數(shù)據(jù)模板 Set excelWBT = excelApp.Workbooks.Open(strFileT) '打開數(shù)據(jù)處理模板 Set excelSheetS = excelWBT.S

34、heets(excelWBT.Sheets.Count - 2) '獲得要復制的表格 SheetNameS = excelSheetS.Name excelSheetS.Copy , excelWBT.Sheets(SheetNameS) '復制表格 Set excelSheetT = excelWBT.ActiveSheet '獲得復制后的表格 SheetNameT = excelWBS.Sheets(excelWBS.Sheets.Count).Name '獲得目標表格名 excelSheetT.Name = SheetNameT '更改復制后的表格

35、名（5） 將源數(shù)據(jù)導入目標工作表 在設計表格時，表格要進行規(guī)格化, 即所有的行、列、格都要以單元格的整數(shù)倍為單位，所有的源工作簿的數(shù)據(jù)都記錄在單元格范圍為D5:G12和D17:G24的位置，所有導入目標工作部的數(shù)據(jù)位置都在"D5:G12和D19:G26，因此導入數(shù)據(jù)就是復制固定位置數(shù)據(jù)并粘貼到固定位置。SheetNameS = SheetNameT Set excelSheetS = excelWBS.Sheets(SheetNameS) '獲得最新觀測數(shù)據(jù)表格 '復制粘貼東邊觀測點數(shù)據(jù) Set excelRangS = excelSheetS.Range("

36、;D5:G12") excelRangS.Copy Set excelRangT = excelSheetT.Range("D5:G12") excelRangT.PasteSpecial (Excel.XlPasteType.xlPasteValues) '數(shù)值粘貼 '復制粘貼西東邊觀測點數(shù)據(jù) Set excelRangS = excelSheetS.Range("D17:G24") excelRangS.Copy Set excelRangT = excelSheetT.Range("D19:G26")

37、excelRangT.PasteSpecial (Excel.XlPasteType.xlPasteValues) '數(shù)值粘貼（6） 處理計算結果 計算隔日沉降量，將累計變化量表格增加一列，添加最新計算數(shù)據(jù)，更新圖表數(shù)據(jù)源。 Dim DeltValue As Double Dim intI As Integer For intI = 1 To 8 DeltValue = excelWBT.Sheets(excelWBT.Sheets.Count - 2).Cells(4 + intI, 16).Value - excelWBT.Sheets(excelWBT.Sheets.Count

38、- 3).Cells(4 + intI, 16).Value excelWBT.Sheets(excelWBT.Sheets.Count - 2).Cells(4 + intI, 18).Value = DeltValue * 1000 Next '累計變化量表格增加一列 Dim LastCIndex As Integer '最后一列序號 Dim tempValue As String LastCIndex = 2 tempValue = "lll" Do While Not tempValue = "" tempValue = CStr

39、(excelWBT.Sheets("累計變化量").Cells(3, 1 + LastCIndex).Value) LastCIndex = LastCIndex + 1Loop Set excelRangT = excelWBT.Sheets("累計變化量").Range(excelWBT.Sheets("累計變化量").Cells(3, LastCIndex - 1), excelWBT.Sheets("累計變化量").Cells(11, LastCIndex - 1) excelRangT.Copy '

40、;復制最后一列 Set excelRangT = excelWBT.Sheets("累計變化量").Cells(3, LastCIndex) excelRangT.PasteSpecial (Excel.XlPasteType.xlPasteAll) '增加一列 excelWBT.Sheets("累計變化量").Cells(3, LastCIndex).Value = SheetNameT '新增列日期 '把最新的累積沉降值復制到新增加列中 Set excelRangT = excelWBT.Sheets(SheetNameT).

41、Range("Q5:Q12") excelRangT.Copy '復制累計沉降值 Set excelRangT = excelWBT.Sheets("累計變化量").Cells(4, LastCIndex) excelRangT.PasteSpecial (Excel.XlPasteType.xlPasteValues) '數(shù)值粘貼到目標列 '更新圖表數(shù)據(jù)源為新的數(shù)據(jù)源 Set excelRangT = excelWBT.Sheets(累計變化量").Range(excelWBT.Sheets("累計變化量&q

42、uot;).Cells(3, 2), excelWBT.Sheets("累計變化量").Cells(11, LastCIndex) excelWBT.Sheets("累計變化曲線圖").ChartObjects(1).Chart.SetSourceData excelRangTexcelWBS.Close excelWBT.Close（7） 卸載程序 第四章趨勢線的生成建筑物的沉降-時間曲線絕對不是直線，指數(shù)、對數(shù)、多項式等函數(shù)曲線都可以。把這一章刪掉吧，它只會讓你在知道一點的人面前顯得很無知因為你壓根就沒深入分析，哪怕是理論學習上的都沒有。趨成線是為了

43、根據(jù)現(xiàn)有測量數(shù)據(jù)來預測以后的變化趨勢的變化曲線。擬合曲線是趨勢分析法中的一種?；貧w分析是數(shù)理計中處理變量之間關系的一種常用方法。處理兩個變量之間關系的回歸分析稱為一元回歸分析，當兩個變量之間的關系為線性時，則稱一元線性回歸分析，它是回歸分析中最簡單的情況。一元線性回歸的數(shù)學模型式中假設它們相互獨立，且服從同一正態(tài)分布。按最小二乘法，可以求得參數(shù) 和 的估值和，得一元線性回歸方程觀測數(shù)據(jù)可以寫成 或 采用最小二乘法來計算估值，為此組成對 a、b求微分 經變換后得式中 n觀測值的個數(shù)由式可求得a b .回歸值與實測值之差表示出實測值與回歸直線的偏離程度。其中誤差估值為第五章 總結和展望5.1總結和

44、結論用 EXCEL 的VBA二次開發(fā)對測量計算數(shù)據(jù)的自動化處理，會使我們感到非常輕松、靈活，它可自動化完成變形監(jiān)測數(shù)據(jù)處理的所有測量計算。在使用過程中，測量人員只要將原始觀測數(shù)據(jù)輸入源記錄表格中，再將編寫的VB程序運行即可進行數(shù)據(jù)的自動化處理，提高了數(shù)據(jù)處理的效率和準確率。筆者已成功地把EXCEL和VB應用到高程導線、測圖水準、邊長改化、變形觀測數(shù)據(jù)處理、儀器檢驗表等計算中，計算方便、快捷，并且最后能提供一漂亮的計算表，為工作帶來了許多方便。并且額可以把計算成果名列成表，使結果明顯易看。5.2 進一步工作本次實驗雖然得出成果并且繪制成曲線圖。但還存在著不小的問題等待解決。（1）在野外測量尤其是

45、變形觀測數(shù)據(jù)量大而且煩瑣，運用Excel的VBA的二次開發(fā)時，需要把觀測的已知數(shù)據(jù)挨個輸入，既浪費了時間又費力?。?）自定義函數(shù)一般只能在本工作簿中使用,如要在不同的工作簿中使用可對含宏工作簿設置引用或創(chuàng)建一個加載宏,在使用時加載。參考文獻1 黃騰，蔣敏衛(wèi)，朱曉麗.Excel2003 在測量中的應用J.測繪通報，2005，（12）2 劉麗萍, 易俊, 王學禮Excel 在公路工程試驗和測量數(shù)據(jù)處理中的應用J山西交通科技，2004（3）:19-213 周愛民,彭劍,劉艷松. VFP 導入導出Excel 程序設計與分析J. 電腦知識與技術，2007（1）:15-16 4 益嘉創(chuàng)作室. Excel

46、2000中文版自學教程M . :清華大學, 2000.152 5 武測測量平差教研室. 測量平差基礎M. 北 京測繪,1996 . 6 王樹元. 大地與建筑物變形測量M. 冶金工業(yè),19947 鹿利軍. Excel在建筑物變形測量數(shù)據(jù)分析中的應用. 測繪，2005（04）8 李青岳. 工程測量學M. 測繪,19909 周愛民,彭劍,劉艷松. VFP 導入導出Excel 程序設計與分析J. 電腦知識與技術，2007（1）:15-16 10 王強Excel 中使用VBA 編程處理數(shù)據(jù)JI福建教育學院學報,2003（10）:15-17 11劉麗萍, 易俊, 王學禮Excel 在公路工程試驗和測量數(shù)據(jù)

47、處理中的應用J山西交通科技，2004（3）:19-2112 齊建偉,白永輝. Excel電子表格在測量計算中的應用 J .測繪通報. 2001年增刊, 535413 祝茂良,任建平,袁瑞.Excel在測量數(shù)據(jù)處理中的應用J. 青海國土經略,2008(3)14 李茹仁,劉玉梅. 高層建筑物變形觀測與數(shù)據(jù)處理J .沈陽建筑工程學院學報(自然科學版) ,1999 ,15 (4) :310 - 312.15 羅德安，寥麗瓊基于Excel 的數(shù)據(jù)批量錄入與輸出J計算機系統(tǒng)應用，2005（1）致謝放到參考文獻前面本文從體系的構思、觀點的提煉、邏輯順序的組織到文章的最終完稿，首先感謝的是指導教師廖振修老師。

48、在做畢業(yè)設計的整個階段，廖老師嚴謹求實的態(tài)度、勤奮敬業(yè)的精神、兢兢業(yè)業(yè)的學術風格，使我深受教育和鞭策；同時，廖老師告訴我們畢業(yè)論文的完成過程是一次對自我能力的鍛煉，是個人完成一件事情的能力培養(yǎng)，在做論文期間廖老師也是有意識培養(yǎng)我們這方面的能力。值此論文完成之際，謹向我尊敬的廖老師致以深深的謝意。四年階段的本科學習使我對以前所學知識以與后來的工作經驗有了一個總結和梳理，使得我的知識結構更加合理，看待事物較以前高屋建瓴，在更高的層面上整理自己的思路以與得出自己的結論和對策。同時，對以后的工作和理論研究打下了堅實的基礎。感謝安徽建筑工業(yè)學院測繪工程的老師們，在這四年的學習期間所給予我的幫助，特別是廖

49、振修老師，在學習上和生活上給予了我們許多幫助，在此對他們表示衷心的感謝！最后祝各位老師身體健康，工作順利；祝各位同學前程似錦，萬事如意！附錄附錄是什么東西，要有名稱：Option ExplicitDim excelApp As Excel.Application '應用程序Private Sub Command1_Click() Set excelApp = New Excel.Application Dim excelWBS As Excel.Workbook '源工作簿 Dim excelWBT As Excel.Workbook '目標工作簿 Dim excelS

50、heetS As Excel.Worksheet '源工作表 Dim excelSheetT As Excel.Worksheet '目標工作表 Dim excelRangS, excelRangT As Excel.Range Dim strFileS, strFileT As String '源文件和目標文件的路徑 Dim SheetNameS, SheetNameT As String '源Sheet名和目標Sheet名 '*處理“整體沉降”數(shù)據(jù) strFileS = App.Path & "Data變形測量數(shù)據(jù)2組整體沉降(記錄

51、).xls" strFileT = App.Path & "Data處理結果數(shù)據(jù)整體沉降(計算).xls" 'Step1：生成新的數(shù)據(jù)計算表格（根據(jù)前一次的數(shù)據(jù)表格，復制后改名生成） excelApp.Visible = True Set excelWBS = excelApp.Workbooks.Open(strFileS) '打開觀測數(shù)據(jù)模板 Set excelWBT = excelApp.Workbooks.Open(strFileT) '打開數(shù)據(jù)處理模板 Set excelSheetS = excelWBT.Sheets(e

52、xcelWBT.Sheets.Count - 2) '獲得要復制的表格 SheetNameS = excelSheetS.Name excelSheetS.Copy , excelWBT.Sheets(SheetNameS) '復制表格 Set excOption ExplicitDim excelApp As Excel.Application '應用程序Private Sub Command1_Click() Set excelApp = New Excel.Application Dim excelWBS As Excel.Workbook '源工作簿 D

53、im excelWBT As Excel.Workbook '目標工作簿 Dim excelSheetS As Excel.Worksheet '源工作表 Dim excelSheetT As Excel.Worksheet '目標工作表 Dim excelRangS, excelRangT As Excel.Range Dim strFileS, strFileT As String '源文件和目標文件的路徑 Dim SheetNameS, SheetNameT As String '源Sheet名和目標Sheet名 '*處理“整體沉降”數(shù)據(jù)

54、strFileS = App.Path & "Data變形測量數(shù)據(jù)2組整體沉降(記錄).xls" strFileT = App.Path & "Data處理結果數(shù)據(jù)整體沉降(計算).xls" 'Step1：生成新的數(shù)據(jù)計算表格（根據(jù)前一次的數(shù)據(jù)表格，復制后改名生成） excelApp.Visible = True Set excelWBS = excelApp.Workbooks.Open(strFileS) '打開觀測數(shù)據(jù)模板 Set excelWBT = excelApp.Workbooks.Open(strFileT

55、) '打開數(shù)據(jù)處理模板 Set excelSheetS = excelWBT.Sheets(excelWBT.Sheets.Count - 2) '獲得要復制的表格 SheetNameS = excelSheetS.Name excelSheetS.Copy , excelWBT.Sheets(SheetNameS) '復制表格 Set excelSheetT = excelWBT.ActiveSheet '獲得復制后的表格 SheetNameT = excelWBS.Sheets(excelWBS.Sheets.Count).Name '獲得目標表格名 excelSheetT.Name = SheetNameT '更改復制后的表格名 'Step2：導入觀測數(shù)據(jù) SheetNameS = SheetNameT Set excelSheetS = excelWBS.Sheets(SheetNameS)