在excel中用vba實(shí)現(xiàn)全站儀數(shù)據(jù)導(dǎo)入及其格式化

1、在EXCEL中用VBA實(shí)現(xiàn)全站儀數(shù)據(jù)導(dǎo)入及其格式化蔣程(湖北省神龍地質(zhì)工程勘察院湖北武漢430056)摘要利用VBA實(shí)現(xiàn)外部數(shù)據(jù)導(dǎo)入EXCEL中的工作表并進(jìn)行格式化使外部數(shù)據(jù)導(dǎo)入工作大大簡化和高效。關(guān)鍵詞關(guān)鍵詞EXCEL應(yīng)用，數(shù)據(jù)導(dǎo)入，數(shù)據(jù)格式化1、前言、前言本單位使用萊卡TCA2003進(jìn)行隧道收斂變形觀測。在實(shí)際使用過程中需要將全站儀的數(shù)據(jù)導(dǎo)入EXCEL中以進(jìn)行進(jìn)一步的分析計(jì)算。TCA2003的數(shù)據(jù)文本帶有許多特殊的格式符，若使用EX

2、CEL的“外部數(shù)據(jù)導(dǎo)入”功能進(jìn)行導(dǎo)入較為繁瑣，并且由于在原始數(shù)據(jù)中，并未標(biāo)注小數(shù)點(diǎn)，隨著基站坐標(biāo)的設(shè)置不同，數(shù)據(jù)應(yīng)移動的位數(shù)也不盡相同。能否利用EXCEL內(nèi)置的VBA（VisualBasicfApplications）來實(shí)現(xiàn)原始數(shù)據(jù)的導(dǎo)入并進(jìn)行格式化呢？筆者嘗試并實(shí)現(xiàn)了上述設(shè)想，使數(shù)據(jù)導(dǎo)入工作大大簡化和高效。2、全站儀數(shù)據(jù)格式的分析、全站儀數(shù)據(jù)格式的分析下面我們來分析TCA2003全站儀的數(shù)據(jù)格式。由全站儀導(dǎo)入(儀器自帶的程序)計(jì)算機(jī)的

3、數(shù)據(jù)保存于一個(gè)名為FILE01.GSI的文件中（GSI8格式），該文件采用II編碼，用寫字板打開這個(gè)文件，內(nèi)容如下所示：110001000G4YGX81..004999281582..004998658783..0601003902110002000582.181..004997304782..005001604783..0601017070110003000582.281..004997428382..005001641883..06

4、01056208通過查閱《TPS1000全站儀定位系統(tǒng)操作手冊》并分析以上的數(shù)據(jù)可知：每一行記錄由四個(gè)記錄字組成，分別為“11測點(diǎn)編號”，“81東坐標(biāo)值（Y）”，“82北坐標(biāo)值（X）”，“83高程值（Z）”，“11”、“81”、“82”、“83”分別是這四個(gè)字段的打頭標(biāo)識符。具體來講，第一個(gè)字段又由兩部分組成：第一部分是儀器分配的唯一的、不可能下面為編寫的代碼實(shí)例：PrivateSubcmd1_Click()DimiAsInteger定

5、義行號DimjAsInteger定義列號DimbcAsString讀入的字符串DimefAsStringDimStrTempAsStringDimaAsDoubleDimkAsIntegerDimcountAsIntegerDimFnAsString文件名DimarrSplitAsVariant‘Variant類型的變量DimMySheetAsWksheet‘定義工作表單SetMySheet=Wksheets(“數(shù)據(jù)庫“)工作表命名為數(shù)

6、據(jù)庫j=1尋找數(shù)據(jù)寫入的位置，“||”為程序自定義的分隔符WhileMySheet.Cells(1j).Value“||“j255‘一個(gè)表單最多為255列j=j1WendIfj=255Then沒找到“||”標(biāo)志符或列號等于255MsgBox“標(biāo)識符缺失！“vbOKOnly“Warning!“ExitSubEndIfFn=“C:LEICAFILE01.GSI“定義即將打開的文件名OpenFnFInputAs#1i=2由第二行開始寫DoWh