利用VB编程调用Excel进行精密测距气象改正
关于测距的气象改正
关于测距的气象改正 这是电磁波测距最重要的改正，因为电磁波在大气中传输时受气象条件的影响很大。实质是大气折射率对距离的改正，因大气折射率与气压、气温、湿度有关，因此习惯叫气象改正。1有关公式 ⑴光在真空中传播速度c0=299792458±1.2(m/s) (25) 1975年国际大地测量与地球物理学联合会（IUGG）第十六届年会。 如果测定空气的折射率n，则可求出空气中的光速c=c0/n (26) ⑵光在空气中的折射率与波长关系式（色散公式）柯希（Cauchy）公式： (27) 1963年IUGG决定使用巴雷尔-西尔(Barrell-Sears)给出的实用公式： (28) 上式是在温度00C，气压760mmHg毫米汞柱高（或1013.2mb毫帕）， 0﹪湿度，含0.03﹪CO2的标准大气压条件下的单一波长(单位μm)的光折射率与波长关系式，也称巴雷尔-西尔公式. ⑶ (狭窄光谱) 群速的空气中折射率与波长关系式 (29) 在标准大气压条件下 (30) ⑷光(狭窄光谱)在空气中的折射率随着温度、气压和湿度而变化,有如下近似关系，柯尔若希（Kohlrousch）公式 (31) 式中：是温度为t0C，气压为p和水蒸气为e时空气的折射率, p和e的单位为mmHg。 由(30)式计算， α为空气膨胀系数，α=1/273.16=0.003661 2气象改正 将测距仪采用的波长λ代入(30)式可求出 ,再由测边时的气象条件由(31)式可求出大气折射率n,．．．。 其实在设计测距仪时，都采用假定大气状态，例如DCH2型测距仪，红外光的波长λ=0.83μm,代入(30)式 =1.00029473。假定大气状态是t=150C,P=1.013hPa(百帕)，在红外测距仪中(31)式中第三项（湿度）影响很小可忽略不计，将 =1.00029473，t=150C,P=1.013hPa(百帕)代入(31)式得 =1.000279。 由(26)式，(1)式写成 (32) 上式对n取微分，并换成有限增量得 (33) 设D/观测得斜距，D//经气象改正后斜距，ΔDn气象改正数， (34) (35) 把有关数据代入得DCH2型测距仪气象改正数计算公式， (36) D/以km为单位,P以hPa(百帕)。 由于各种型号的测距仪所采用的波长和假定大气状态各不相同，所以气象改正公式也不会一样。 又例如DI20测距仪，红外波长λ=0.835μm,
用VB在Excel中实现数据查找调用并校验
用VB在Excel中实现数据查找调用并校验 Sub 按钮3_单击() Application.ScreenUpdating = False '关闭屏幕 Sheets("信息表").Select Cells(4, 20) = 1 Columns("U:U").Select '对单位进行筛选 Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="=1", Operator:=xlAnd Range("K5:K4003").Select Selection.ClearContents Sheets("银行卡号").Select Range("Z5:Z4003").Select Selection.ClearContents Sheets("信息表").Select Dim i, j, k, m, n As Integer n = Cells(2, 22).Value + 5 Cells(6, 25) = "查找银行卡号并导入" For m = 5 To n Sheets("信息表").Select Cells(7, 26) = m - 4 Application.ScreenUpdating = True '重新打开屏幕 Cells(1, 2) = Cells(8, 26) Range(Cells(m, 6), Cells(m, 6)).Select Application.ScreenUpdating = False '关闭屏幕 Cells(2, 25) = Cells(m, 6) Cells(2, 26) = Cells(m, 3) Cells(m, 8) = Cells(3, 27) If Cells(3, 26) > 1 Then Cells(m, 11) = "同校同名" End If Sheets("银行卡号").Select j = Cells(4, 24) + 4 Cells(j, 26) = 1 Sheets("信息表").Select Next m Cells(6, 25) = "为零银行卡号复查导入" For k = 5 To n Sheets("信息表").Select Cells(7, 26) = k - 4 Application.ScreenUpdating = True '重新打开屏幕 Cells(1, 2) = Cells(8, 26) Range(Cells(k, 6), Cells(k, 6)).Select
(新)vb程序调用excel数据
Visual Basic调用Excel之技巧吴声松 (湖北省水利水电勘测设计院地质大队湖北 430070) Visual Basic(以下简称VB)是一套可视化、面向对象、事件驱动方式的结构化程序设计语言，已经成为许多程序设计者甚至专业程序员用来开发WINDOWS应用程序的首选开发工具。但用过VB的程序设计人员都知道，要想用VB输出复杂的表格来，是十分困难的。能不能用VB调用EXCEL呢？Active技术标准为我们解决了这个问题。最近笔者为单位开发“土工试验数据整理”的某个模块时，涉及到复杂数据表格的输出问题，经过笔者的摸索，用VB调用EXCEL，取得了很好的效果。本文从编程实践的角度对使用VB控制EXCEL的技术作简要说明。 1 EXCEL的对象模型 如果一个应用程序支持自动化技术，那么其它的应用就可以通过其暴露的对象，对它进行控制，控制程序称为客户机，而被控制的一方就称为服务器，被控制的对象就是Active对象。VB正是通过EXCEL显露的各级对象来控制EXCEL工作的。每个对象都有各自的方法和属性，通过方法可以实现对对象的控制，而属性则可以改变对象的各种状态。 理解EXCEL的对象模型是对其编程的基础。EXCEL是以层次结构组织对象的，其对象模型中含有许多不同的对象元素，这些对象元素就是VB可以操纵的。在EXCEL对象的层次结构中，最顶层是Application对象，是Excel本身。从该对象开始往下依次是： .workbooks对象集，是Application对象的下层，其指的是Excel的工作簿文件。 .worksheets对象集，是Workbooks对象集的下层，它表示的是Excel 的一个工作表。 .Cells和Range对象，它们是worksheets对象的下层，它则指向Excel 工作表中的一个或多个单元格。 以上介绍的四个对象是Excel中最重要也是用得最多的对象，而且从上面的介绍中也不难看出，要控制Excel中的某个具体对象，如某个工作簿中某一表格中的单元格，就必须从Excel层次结构对象的最上层即Application对象开始遍历。 2 Excel对象的使用
实习十四 测距仪常数的测定
实习十四测距仪常数的测定 电磁波测距仪是光、机、电三者的统一体，仪器构件的位移与元件的老化都可能带来常数的变化，而常数正确与否将直接影响到测量成果的准确性，因此作业前应对仪器常数进行精确测定。 测距仪加常数是测距信号在传输路径上起、迄零点与仪器几何中心不一致（包括反射镜）而产生的。用户所指的加常数，实质上是剩余加常数。 乘常数是一个与距离成正比的比例因子，其产生的原因很多，主要有频率漂移、相位不均和幅相误差等影响。对于长距离的测量影响特别显著。 测距仪常数的测定主要是剩余加常数（也称加常数）和乘常数两项。测定仪器常数的方法很多，在此仅以解析法测定加常数为例。 一、实习目的 1．了解用六段解析法和六段比较法测定仪器常数的作业过程。 2．学会六段法测定仪器加常数的记录和测距改正计算。 二、实习要求 1．要复习好有关内容，做好作业前的一切准备工作。 2．每个人要有明确分工，各自完成所承担的任务，要服从统一指挥。 3．每人作一份记录表格并作测距改正计算。 三、仪器及工具 领用全站仪主机一台、反射棱镜（单棱镜）二个、脚架七个、基座六个、电池一个、温度计一支、气压计一个、记录板一块、测伞二把、细麻绳七根；自备铅笔、小刀、记录手薄。 四、实习步骤 六段解析法是在一个长度为未知的直线上进行，全长划分为六段，应用全组合观测法观测21个线段，经过平差计算，求得仪器的加常数。 1．置一条直线（其长度大约几百米至一公里左右），将其分为六段（见图2-6）。 图2—6 分段原则： （1）21个被量测的长度应均匀分布于仪器的整个测程以内。但考虑到需要获得最佳的观测成果（为了避免气象条件对长测线的影响，整个测线长度最好选取仪器的最佳测程之内），故不宜过长。 （2）应使21个被测距离的不足半波长的尾数（即各段距离的米、分米数）尽可能均匀分布在半波长内，以便由平差所得的距离改正数的分布图象，可以粗略判断仪器的周期误差是否明显存在。 2．观测 将仪器设置在基线的0号点，棱镜依次架设于1号点、2号点、……、6号点，分别测
用VB操作excel方法汇总
用VB操作excel方法汇总 Private Sub Command3_Click() Dim i As Long Dim j As Long Dim objExl As Excel.Application '声明对象变量 Me.MousePointer = 11 '改变鼠标样式 Set objExl = New Excel.Application '初始化对象变量 objExl.SheetsInNewWorkbook = 1 '将新建的工作薄数量设为1 objExl.Workbooks.Add '增加一个工作薄 objExl.Sheets(objExl.Sheets.Count).Name = "book1" '修改工作薄名称 objExl.Sheets.Add , objExl.Sheets("book1") '增加第二个工作薄在第一个之后 objExl.Sheets(objExl.Sheets.Count).Name = "book2" objExl.Sheets.Add , objExl.Sheets("book2") '增加第三个工作薄在第二个之后 objExl.Sheets(objExl.Sheets.Count).Name = "book3" objExl.Sheets("book1").Select '选中工作薄
距离观测值的改正等
4.3距离观测值的改正和光电测距仪的检验 第一类仪器本身所造成的改正：加常数 置平 乘常数（频率） 周期误差 第二类大气折光而引起的改正：气象 波道弯曲 第三类归算方面的改正：归心（下册P95） 倾斜和投影到椭球面上（下册P25） 说明：由于现在测距仪的性能和自动化程度不同，测距仪的精度要求也各异，故有些改正可不需进行，有的在观测时只需在仪器中直接输入有关数值或改正值即可。 光电测距仪的检验 《光电测距仪的检定规范》CH8001。 4.3.1气象改正n D ? 这是电磁波测距最重要的改正，因为电磁波在大气中传输时受气象条件的影响很大。实质是大气折射率对距离的改正，因大气折射率与气压、气温、湿度有关，因此习惯叫气象改正。 1有关公式 ⑴光在真空中传播速度c 0=299792458±1.2(m/s) (25) 1975年国际大地测量与地球物理学联合会（IUGG ）第十六届年会。 如果测定空气的折射率n ，则可求出空气中的光速c=c 0/n (26) ⑵光在空气中的折射率与波长关系式（色散公式）柯希（Cauchy ）公式： 421λ λC B A n +++= (27) 1963年IUGG 决定使用巴雷尔-西尔(Barrell-Sears)给出的实用公式： 4 7 2 7 7 10136.010288.161004.28761λ λ ---?+ ?+ ?+=n (28) 上式是在温度00C ，气压760mmHg 毫米汞柱高（或1013.2mb 毫帕）， 0﹪湿度，含0.03﹪CO 2的标准大气压条件下的单一波长(单位μm)的光折射率与波长关系式，也称巴雷尔-西尔公式. ⑶ (狭窄光谱) 群速的空气中折射率与波长关系式 42531λ λC B A n g +++= (29)
怎样实现用VB对EXCEL的操作
用VB操作excel方法 Private Sub Command3_Click() Dim i As Long Dim j As Long Dim objExl As Excel.Application'声明对象变量 Me.MousePointer=11'改变鼠标样式 Set objExl=New Excel.Application'初始化对象变量 objExl.SheetsInNewWorkbook=1'将新建的工作薄数量设为1 objExl.Workbooks.Add'增加一个工作薄 objExl.Sheets(objExl.Sheets.Count).Name="book1"'修改工作薄名称 objExl.Sheets.Add,objExl.Sheets("book1")'增加第二个工作薄在第一个之后 objExl.Sheets(objExl.Sheets.Count).Name="book2" objExl.Sheets.Add,objExl.Sheets("book2")'增加第三个工作薄在第二个之后 objExl.Sheets(objExl.Sheets.Count).Name="book3" objExl.Sheets("book1").Select'选中工作薄
测距边长改正计算
测距边长改正计算 测距仪测距的过程中，由于受到仪器本身的系统误差以及外界环境影响，会造成测距精度的下降。为了提高测距的精度，我们需要对测距的结果进行改正，可以分为三种类型的改正：仪器常数的改正、气象改正和倾斜改正。 仪器常数改正 仪器常数包括加常数和乘常数。 加常数改正：加常数K产生的原因是由于仪器的发射面和接收面与仪器中心不一致，反光棱镜的等效反射面与反光棱镜的中心不一致，使得测距仪测出的距离值与实际距离值不一致。因此，测距仪测出的距离还要加上一个加常数K进行改正。 乘常数改正：光尺长度经一段时间使用后，由于晶体老化，实际频率与设计频率有偏移，使测量成果存在着随距离变化的系统误差，其比例因子称乘常数R。我 们由测距的公式可以看出，如果光尺长度变化，则对距离的影响是成比例的影响。所以测距仪测出的距离还要乘上一个乘常数R进行改正。 对于加常数和乘常数，我们在测距前先进行检定。目前的测距仪都具有设置常数的功能，我们将加常数和乘常数预先设置在仪器中，然后在测距的时候仪器会自动改正。如果没有设置常数，那么可以先测出距离，然后按照下面公式进行改正： 气象改正 测距仪的测尺长度是在一定的气象条件下推算出来的。但是仪器在野外测量时的气象条件与标准气象不一致，使测距值产生系统误差。所以在测距时应该同时测定环境温度和气压。然后利用厂家提供的气象改正公式计算改正值，或
者根据厂家提供的对照表查找对应的改值。对于有的仪器，可以将气压和温度输入到仪器中，由仪器自动改正。 倾斜改正 由于测距仪测得的是斜距，应此将斜距换算成平距时还要进行倾斜改正。目前的测距仪一般都与经纬仪组合，测距的同时可以测出竖直角α或天顶距z，然后按上面公式计算平距。 测距仪的标称精度 测距误差可以分为两类：一类是与待测距离成比例的误差，如乘常数误差，温度和气压等外界环境引起的误差；另一类是与待测距离无关的误差，如加常数误差。所以一般将测距仪的精度表达为下面两种形式： m D = ± (A+B·10-6 D) 或 m D = ± (A+B·ppm·) 式中：A为固定误差，即测一次距离总会存在这么多的误差；B为比例误差系数，表示每测量一公里就会存在这么多误差。1ppm＝1mm/1km＝1×10-6；D为所测距离，单位km。 举例：如某台测距仪的标称精度为±（3mm+5ppm），那么固定误差为3mm，比例误差系数为5。 二、全站仪测距的温度和气压改正 通常是开机后将观测时的温度和气压输入全站仪，仪器自动对距离进行温度和气压改正。 测定气温通常使用通风干湿温度计，测定气压通常使用空盒气压表。气压表所用单位有mb（102Pa）和mmHg（133.322Pa）两种，而1mb＝0.7500617mmHg。气温读数至1度，气压读数至1mmHg。 小知识：《温度和气压对测距的影响》 在一般的气象条件下，在1Km的距离上，温度变化1度所产生的测距误差为 0.95mm，气压变化1mmHg所产生的测距误差为0.37mm，湿度变化1mmHg所产生的测距误差为0.05mm。湿度的影响很小，可以忽略不计，当在高温、高湿的夏季作业时，就应考虑湿度改正。 注意： 1、只要温度精度达到1度，气压精度达到27mmHg，则可保证1Km的距离上，由此引起的距离误差约在1mm左右。 2、当气温t＝35度，相对湿度为94％，则在1Km距离上湿度影响的改正值约为2mm。由此可见，在高温、高湿的气象条件下作业，对于高精度要求的测量成果，这一因素不能不予以考虑。 3、由于地铁轨道工程测量以“两站一区间”分段进行，从导线复测到控制基标测量，再到加密基标测量所涉及的距离测量都属短距离测量，上述改正值较小，
VB中读写EXCEL文件
VB中读写EXCEL文件 在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel 版本不同，所以这个选项的版本号可能不同 。定义EXCEL对象 Dim XlsObj As Excel.Application 'Excel对象 Dim XlsBook As Excel.Workbook '工作簿 Dim XlsSheet As Excel.Worksheet '工作表 。打开或创建EXCEL Set XlsObj = CreateObject("Excel.Application") '创建EXCEL对象XlsObj.Visible = True '设置EXCEL对象可见（或不可见） '打开已经存在的test.xls工件簿文件 Set xlbook = xlapp.Workbooks.Open(App.Path & "\test.xls") '创建有一个工作表的工作簿 XlsObj.SheetsInNewWorkbook = 1 Set XlsBook = XlsObj.Workbooks.Add 。设置活动工作表 '或者Set XlsSheet = XlsObj.Worksheets(1) 代表第1个Sheet Set XlsSheet = XlsObj.Worksheets("表名") 给单元格（row,col）赋值 XlsSheet.Cells(row, col) =值 给合并的单元格赋值，如（A3：A9） XlsSheet.Range("A3:A9") =值 运行 EXCEL 宏 XlsBook.RunAutoMacros ("宏名") 插入一行
VB6[1].0_导出excel_方法源代码
往链点点通共享资源，了解更多请登录https://www.wendangku.net/doc/50828911.html, VB6.0 导出excel 方法源代码 方法一： 用Msflexgrid的Textmatrix属性取Msflexgrid中每一个单元格的内容，然后填到Excel表中，或者写成CSV格式 方法二： 直接把查询结果导出成Excel工作表 Public Sub Export(formname As Form, flexgridname As String) Dim xlApp As Object 'Excel.Application Dim xlBook As Object 'Excel.Workbook Dim xlSheet As Object 'Excel.Worksheet Screen.MousePointer = vbHourglass On Error GoTo Err_Proc Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1) 'Begin to fill data to sheet Dim i As Long Dim j As Integer Dim k As Integer With formname.Controls(flexgridname) For i = 0 To .rows - 1 k = 0 For j = 0 To .Cols - 1 If .colwidth(j) > 20 Or .colwidth(j) < 0 Then k = k + 1 xlSheet.Cells(i + 1, k).Value = "'" & .TextMatrix(i, j) End If Next j Next i End With xlApp.Visible = True Screen.MousePointer = vbDefault Exit Sub Err_Proc: Screen.MousePointer = vbDefault MsgBox "请确认您的电脑已安装Excel！", vbExclamation,"提示"
vb读取excel数据
取得excel文件所有内容： 'add microsoft ado frist. Private Sub Command2_Click() Dim adoConnection As New ADODB.Connection Dim adoRecordset As New ADODB.Recordset CommonDialog1.ShowOpen 'OLE DB + ODBC Driver 方式: 'adoConnection.Open "Data Provider=MSDASQL.1;driver=Microsoft Excel Driver (*.xls);DBQ=e:\temp\book2.xls" 'Microsoft.Jet.OLEDB.4.0 方式,(建?) adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & CommonDialog1.FileName & ";Extended Properties='Excel 8.0;HDR=Yes'" adoRecordset.Open "select * from [sheet1$]", adoConnection, adOpenKeyset, adLockOptimistic Debug.Print adoRecordset.RecordCount Dim i As Integer Do Until adoRecordset.EOF For i = 0 To adoRecordset.Fields.Count - 1 Debug.Print adoRecordset.Fields.Item(0).Name Debug.Print adoRecordset.Fields.Item(0).Value Next i adoRecordset.MoveNext Loop End Sub 但还不知道如何取得sheet名，不好意思，那位老鸟知道请告知，谢谢 sheet名用Excel.Application对象 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Set xlApp = New Excel.Application Set xlBook = xlApp.Workbooks.Open("C;\123.xls")) For i = 1 To intSheetSum strTemp=xlBook.Worksheets(i).name Next i Dim xlsconn As New ADODB.Connection
精密导线测量 边长改正 高程归化 投影改化
精密导线测量边长改正高程归化投影改化 (2011-07-30 23:03:29) 转载▼ 标签： 分类：工程测量 精密导线 测量 边长 改正 杂谈 整个地铁建设过程中，测量起到关键的作用，它相当于人的眼睛
指引着开挖方向,测量方法与精度直接关系到隧道最终是否能够按照要求贯通。地面控制网在整个测量过程起到框架作用，对精度要求高，工作量大，其中精密导线测量（包括近井导线测量）几乎贯穿于整个测量过程。 精密导线网边长应进行气象改正、仪器加（乘）常数改正、平距改正、边长的高程归化和投影改化。 1、气象改正，根据仪器提供的公式进行改正；也可以将气象数据输入全站仪内自动改正。 2、仪器加、乘常数改正值S，应按下式计算： 式中：So——改正前的距离 C——仪器加常数 K——仪器乘常数
3、利用垂直角计算水平距离D时应按下式计算： 式中： K：大气折光系数；
S：经气象改正、加（乘）常数改正后的斜距（m）; R：地球平均曲率半径（m）; f：地球曲率和大气折光对垂直角的修正量（"）； p：弧与度的换算常数，206265（"） 4、高程归化。归化到城市轨道交通线路测区平均高程面上的测距边长度D，应按下式计算： 式中： ：测距两端点平均高程面上的水平距离（m）；
Ra：参考椭球体在测距边方向法截弧的曲率半径（m）； Hp：现有城市坐标系统投影面高程或城市轨道交通工程线路 的平均高程（m）； Hm：测距两端点的平均高程（m）； 地铁工程精密导线网高程归化的影响非常小，基本可以忽略不计... 5、投影改化：测距边在高斯投影面上的长度Dz，按下式计算： 式中： Ym：测距边两端点横坐标平均值（m）； Rm：测距边中点的平均曲率半径（m）; ：测距边两端点近似横坐标的增量（m） 这里要特别说明的是，上式中的Y值的几何意义是：该点到城市坐标系投影子午线的距离（并非是该点的城市坐标的Y值）。这个距离可以用近似公式计算：
[整理]中铁十二局测量选择题.
中铁十二局集团三公司2007年测量比武复习题（三） 二、选择 1.四等水准测量,前后视距离不等差在两个水准点间的累积不得超过( C )。 A.5米 B.8米 C.10米 2.罗盘仪是测定直线的( C )的仪器。 A.子平方位角 B.方位角 C.磁方位角 3.平板仪测图时,平板仪的安置包括( B )。 A.对中、整平及观测 B.对中、整平及定向 C.对中、定向及观测 4.水准测量是精密高程测量的( B )。 A.唯一方法 B.主要方法 C.基本方法 5.水准测量视距读数取( B )。 A.中丝 B.上丝,中丝 C.上丝,下丝 6.5 7.32°换算成度分秒应为( C )。 A.57°30’20” B.57°19’20” C.57°19’12” 7.微倾水准仪水准管轴与视准轴应( A )。 A.平行 B.垂直 C.无关 8.高差闭合差应为零的水准路线布设形式为( B )水准路线。 A.附合 B.闭合 C.支 9.距离丈量时,由于地面起伏较大需进行( B )。 A.温度改正 B.倾斜改正 C.尺长改正 10.导线外业检校内容为( B )检校。 A.距离 C.距离角度 C.角度 11.测定水平角时,仪器对中偏心不得大于( A )mm。 A.±1.5 B.±2.0 C.±1.0 12.测定水平角时,目标偏心不得大于( A )mm。 A.2.5 B.2 C.3 13.钢尺量距的精度通常用( C )来表示。 A.中误差 B.极限误差 C.相对中误差。
14.视准轴与水准管的水准轴的夹角在竖直角上的投影称为( A )。 A.i角误差 B.交叉误差 C.i角误差与交叉误差 15.某一竖直角为17°23’40”,化为弧度值为( B )。 A.0.72 B.0.304 C.0.605 16.水平角观测,测回法适用于( A )。 A.两个方向之间的夹角 B.三个方向之间的夹角 C.多方向水平角 17.直线定向采用盘左、盘右两次投点取中是为了消除( C )。 A.度盘偏心差 B.度盘分划误差 C.视准轴不垂直于横轴误差 18.地球曲率对视距测量影响误差属于( A )。 A.系统误差 B.偶然误差 C.疏忽误差 19.水准测量成果平差计算采用( B )。 A.测站平差 B.距离平差 C.平均匀配 20.地形图上不同高程等高线( B )。 A.可能重合 B.不能交叉 C.可以交叉。 21.精密水准标尺刻划必须精密,其最大误差每米不得大于( A )。 A.±0.1mm B.±0.2mm C.±0.01mm 22.国家水准测量分为( C )水准测量。 A.一、二等 B.一、二、三等 C.一、二、三、四等 23.在一幅图上,等高距离是( A )。 A.相等的 B.不相等的 C.不一定相等的 24.在1:1000比例尺地形图上,量得某一电厂的面积为50Cm2,实地面积是(A )。 A.0.005Km2 B.0.5Km2 C.50Km2 25.1:1000地形图的比例尺精度为( A )。 A.0.1m B.0.5m C.0.2m 26.若对水准仪检验i角的技术规定i≤20”,设一测站的前后视距差为50m,则由此产生的测站高差误差最大为( B )。 A.5mm B.4.8mm C.4.6mm 27.由纵坐标轴的北端按顺时针方向量到一直线的水平角称为直线的( B )。
vb读取excel内容
1、定义Excel操作变量 Dim objExcelFile As Excel.Application Dim objWorkBook As Excel.Workbook Dim objImportSheet As Excel.Worksheet 2、打开Excel进程，并打开目标Excel文件 Set objExcelFile = New Excel.Application objExcelFile.DisplayAlerts = False Set objWorkBook = objExcelFile.Workbooks.Open(strFileName) Set objImportSheet = objWorkBook.Sheets(1) 3、获取Excel有效区域的行和列数 intLastColNum = https://www.wendangku.net/doc/50828911.html,edRange.Columns.Count intLastRowNum = https://www.wendangku.net/doc/50828911.html,edRange.Rows.Count 4、逐行读取Excel中数据 由于前两行为Header部分，所以需要从第三行读取 如果第1到第10个单元格的值均为空或空格，则视为空行 For intCountI = 3 To intLastRowNum ''Check if Empty Data Row blnNullRow = True For intI = 1 To 10 If Trim$(objImportSheet.Cells(intCountI, intI).Value) <> "" Then blnNullRow = False End If Next intI 若不是空行，则进行读取动作，否则继续向后遍历Excel中的行 If blnNullRow = False Then 获取单元格中的数据，做有效性Check，并将合法数据创建为实体存入对象数组中objImportSheet.Cells(intCountI, 1).Value …… End If Next intCountI 5、退出Excel进程，并关闭Excel相关操作对象 objExcelFile.Quit Set objWorkBook = Nothing Set objImportSheet = Nothing Set objExcelFile = Nothing
VB读取excel表
我给你个简单的例子，假设有文件＂c:\1.xls＂ '要在VB中操作Excel，需要引用Excel对象模型 '方法，在菜单里选择[工程] -- [引用]，在窗口里勾选Microsoft Excel XX.X Object Library '其中，XX.X取决于你安装的Office的版本号 Private Sub Command6_Click() Dim excel_App As Excel.Application Dim excel_Book As Excel.Workbook Dim excel_sheet As Excel.Worksheet '启动Excel Set excel_App = CreateObject("Excel.Application") '引用程序对象实例 '设置Excel为不可见 excel_App.Visible = False '打开文件 Set excel_Book = excel_App.Workbooks.Open("C:\1.XLS") '工作簿实例Set excel_sheet = excel_Book.Worksheets("Sheet1") '数据表实例excel_sheet.Range("C1").Value = "你好!" '设置单元格C1的值为"你好!" excel_sheet.Range("A1").Value = 100 '设置单元格A1的值为100 excel_sheet.Range("A2").Value = 9 '设置单元格A2的值为9 excel_sheet.Range("A3").Value = excel_sheet.Range("A1").Value + excel_sheet.Range("A2").Value '计算 ''''''''''''''''''''''''''''''''''' '关闭Excel文件 Set excel_sheet = Nothing excel_App.ActiveWorkbook.Close savechanges:=True '保存对EXCELL进行更改。 Set excel_Book = Nothing excel_App.Quit Set excel_App = Nothing End Sub 追问 你好，高手！ 我的想法是这样的，编一个软件，这个软件用excel表格当做它的数据库。这个软件只能对表格进行读写操作。比如： 当text1读入A行a内容时，text2自动读取A行b内容，代码里不要对表格进行赋值。 69978084
VB中调用Excel生成图表(精品文档)
VB中调用Excel生成图表 添加时间：2004-9-3 查看：298次 编写数据库程序的最后步骤一般都是通过查询检索生成各种报表、图形等，在VB中通过调用Exc el的图表制作功能可以生成各种复杂的图表，使编程过程得以简化。举例如下：新建工程，在Form1窗口添加Command1按钮，编写程序在Excel中添加数据并生成饼图。 Private Sub Command1_Click() Dim x1 As Excel.Application '声明数据类型 Set x1 = CreateObject(""Excel.Application"") '创建实例 x1.Workbooks.Add '添加工作簿 x1.Visible = True x1.Range(""A1"").Value = 1 'A1格赋值 x1.Range(""B1"").Value = 2 'B1格赋值 x1.Range(""C1"").Value = 3 'C1格赋值 x1.Range(""D1"").Value = 4 'D1格赋值 x1.Range(""A1"", ""D1"").Borders.LineStyle = xlContinuous '单元格边框 x1.ActiveSheet.Rows.HorizontalAlignment = xlVAlignCenter x1.ActiveSheet.Rows.VerticalAlignment = xlVAlignCenter '上下、左右居中 Set ct = x1.Worksheets(""sheet1"").ChartObjects.Add(10, 40, 220, 120) '插入图形 ct.Chart.ChartType = xl3DPie '图形类型为饼图 ct.Chart.SetSourceData Source:=Sheets(""Sheet1"").Range(""A1:D1""), PlotBy:=xl Rows '图形数据来源 With ct.Chart
VB处理EXCEL数据方法
在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel 版本不同，所以这个选项的版本号也是不同的。 因为EXCEL是以层次结构组织对象的，其对象模型中含有许多不同的对象元素。 第一层：Application对象，即Excel本身； 第二层：workbooks对象集，指Excel的工作簿文件； 第三层：worksheets对象集，表示的是Excel的一个工作表； 第四层：Cells和Range对象，指向Excel工作表中的单元格。 新建立一个VB的工程，先放一个button，名称为Excel_Out。先定义好各层： Dim xlapp As Excel.Application 'Excel对象 Dim xlbook As Excel.Workbook '工作簿 Dim xlsheet As Excel.Worksheet '工作表 我们打算做的是：打开/新建一个excel，在其中对某工作表的一些单元格修改其值，然后另存为test.xls文件。 Private Sub Excel_Out_Click() Dim i, j As Integer Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象 'Set xlbook = xlapp.Workbooks.Open(App.Path & "\test.xls") '打开已经存在的test.xls工件簿文件 Set xlbook = xlapp.Workbooks.Add '新建EXCEL工件簿文件 'xlbook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏 'xlbook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏 xlapp.Visible = True '设置EXCEL对象可见（或不可见） Set xlsheet = xlbook.Worksheets(1) '设置活动工作表'' ''~~~当前工作簿的第一页,这里也可以换成“表名” '下面就是简单的在一些单元格内写入数字 For i = 7 To 15 For j = 1 To 10 xlsheet.Cells(i, j) = j '当前工作簿第一页的第I行第J列 Next j Next i With xlsheet '设置边框为是实线 .Range(.Cells(7, 1), .Cells(28, 29)).Borders.LineStyle =
- VB6[1].0_导出excel_方法源代码
- VB中调用Excel生成图表
- vb调用excel方法大全
- VB调用Excel方法大全
- (完整word版)Vb操作excel的命令.docx
- (新)vb程序调用excel数据
- 用VB操作excel方法汇总
- VB处理EXCEL数据方法
- VB调用EXCEL
- VISUAL BASIC调用EXCEL之技巧
- vb调用excel方法大全
- vb与EXCEL几乎所有的操作方法
- vb调用excel及access
- vb操作excel的常见方法
- 在VB应用程序中调用Excel2000
- 在VB6.0应用程序中调用Excel2000
- (完整版)vb调用excel方法大全,推荐文档
- VB读取excel表
- vb中调用excel等应用程序
- 用VB操作Excel的方法