如何把手薄数据做成表格

‘壹’ 如何快速复制表格格式

第一步，老规矩，我们先要打开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)如何把手薄数据做成表格扩展阅读：

判定导入的数据是否有误：

回到手薄里，如果你的坐标是做放样用就打开测量——碎部测量——放样点库。如果是控制点就打开控制点库，然后点击右下角第二个图标（就是一张纸一个向左的箭头）也就是导入图标，再点击向上向上到根目录，然后选择你的坐标文件，再根据你之前制作坐标的文件格式，选择对应的导入项，再点钩钩，提示导入完成。到此就结束了。