如何把手薄數據做成表格

『壹』 如何快速復製表格格式

第一步，老規矩，我們先要打開Excel表格中自帶的VBA編程界面，具體如何打開，在上一篇文章中有介紹，如果不知道如何打開該界面的話可以參考《手把手教你如何用程序思維快速比對excel數據》。


進入VBA代碼編輯界面

2. 簡單的函數介紹，在復制粘貼表格數據中一般常用的有如下這些函數。Worksheets(Array(「sheet1」,」sheet2」)).Select '同時選擇工作表1和工作表2

Sheets(「sheet1」).Delete或 Sheets(1).Delete '刪除工作表1

ActiveWorkbook.Sheets(i).Name '獲取工作表i的名稱

ActiveCell.CurrentRegion.Select

或Range(ActiveCell.End(xlUp),ActiveCell.End(xlDown)).Select

'選擇當前活動單元格所包含的范圍，上下左右無空行

Cells.Select 『選定當前工作表的所有單元格

Range(「A1:D4」).Clear'徹底清除A1至D4單元格區域的內容，包括格式

TextColor=Range(「A1」).Font.ColorIndex 『檢查單元格A1的文本顏色並返回顏色索引

Range(「A1」).Interior.ColorIndex 『獲取單元格A1背景色

拷貝整個工作表：

ExcelID.ActiveSheet.Used.Range.Copy;

拷貝指定區域：

ExcelID.ActiveSheet.Range[ 'A1:E2' ].Copy;

從A1位置開始粘貼：

ExcelID.ActiveSheet.Range.[ 'A1' ].PasteSpecial;

從文件尾部開始粘貼：

ExcelID.ActiveSheet.Range.PasteSpecial;

3. 進入編程界面後將代碼寫入代碼編輯器裡面，如下是我本地製作的復制本地的"標准數據.xlsx"這個文件中的A1-H500中的數據到當前表格的sheet1（標准數據）中。這里需要注意的是，在打開的EXCEL目錄中要存在「標准數據.xlsx」文件，否則無法打開數據就無法復制。以下是代碼分享：

Sub 打開標准數據表()

Dim mypath$, myname$, rng As Range, myr$ '定義變數

Application.ScreenUpdating = True '顯示屏幕計算過程

Sheet1.Activate

[A1:H500].Clear '將表格中的原油數據清空

mypath = ThisWorkbook.path & "\" '設置模板數據的路徑，這里以當前的EXCEL表格作為打開路徑

myname = "標准數據.xlsx" '要打開復制的excel表格名稱

With GetObject(mypath & myname) '獲取要復制的表格對象 '

myr = .Sheets(1).[A1:H500].Row '選取當前表格中的sheet1的A1-H500

Set rng = .Sheets(1).Range("A1:H500")

rng.Copy '復制rng數據

Sheets("標准數據").Range("A1:H500").PasteSpecial '把復制的數據粘貼到當前表格中的「標准數據」的A1-H500

.Close True '關閉模板數據表格

End With

Application.ScreenUpdating = True '打開屏幕顯示

End Sub

4. 代碼編譯運行後其效果如下，將對應的數據拷貝到了指定的表格中。


代碼運行前

『貳』 如何將南方RTK手薄中點放樣數據導出

將坐標文件保存為.dat格式找到storage card，

EGJOBS

找到工程文件

DATA

復制到DATA文件內，打開點放樣

文件，導入，選擇格式，找到復制的文件導入。

首先在手薄中將測量數據轉換成CASS軟體的格式（DAT）通過連接軟體（南方公司網站可以下載）
打開CASS軟體在菜單數據顯示與列印中打開文件。

(2)如何把手薄數據做成表格擴展閱讀：

判定導入的數據是否有誤：

回到手薄里，如果你的坐標是做放樣用就打開測量——碎部測量——放樣點庫。如果是控制點就打開控制點庫，然後點擊右下角第二個圖標（就是一張紙一個向左的箭頭）也就是導入圖標，再點擊向上向上到根目錄，然後選擇你的坐標文件，再根據你之前製作坐標的文件格式，選擇對應的導入項，再點鉤鉤，提示導入完成。到此就結束了。