1261 编制直线曲线及转角表.pptxVIP

第6章 编制直线、曲线及转角表程序设计方法 ;VB自动制表 可用方法 ;ActiveX部件;6.2.2 用VB创建外部EXCEL对象 ;3. 打开工作簿Workbooks：即打开Excel文件;4.工作簿及工作表操作;6.3 编制直线、曲线及转角表程序设计方法与步骤 ;6.3 编制直线、曲线及转角表程序设计方法与步骤 ;6.3 编制直线、曲线及转角表程序设计方法与步骤 ; 在母表下面复制一张空表，供填入数据 ; 在母表下面复制一张空表，供填入数据 ;Dim xlApp As Excel.Application Private Sub Command1_Click() Dim path As String path = Text1.text Open path + \sjcszl.dat For Input As #1 Input #1, ldmc Close FileCopy App.path + \直线、曲线及转角表.xls, path + \zjb.xls“ Open path + \zqzbsj.dat For Input As #3 ; 在母表下面复制一张空表，供填入数据 ; Set xlApp = CreateObject(excel.application) xlApp.Visible = False ‘关闭Excel显示 xlApp.Workbooks.Open (path + \zjb.xls) xlApp.Sheets(1).Select ‘选定当前工作表 Range(“A1：w37”).Copy ‘复制选定范围到粘贴板; 在母表下面复制一张空表，供填入数据 ; Row = 38 ：hs = 0：pg = 0 Do While Not EOF(3) If Row 36 Then Cells(38+hs,1).Select ActiveSheet.Paste ‘粘贴空表 Row = 8 ：hs = hs + 37 ：pg = pg + 1 For i = 7 To 36 xlApp.Rows(i + hs).RowHeight = 19 Next i End If ; 在母表下面复制一张空表，供填入数据 ; Input #3, num, qxlx, jd, pj_r, r, ls, ls2, t, t2, l, e, j, zh, hy, qz, yh, hz, zxjl, jdjl, fwj If qxlx = 1 Then Input #1, jda, pja_r, jdb pj_dms = rad_dms(Abs(pj_r)) fwj_dms = rad_dms(fwj) 弧度化度分秒 If Sgn(pj_r) = 1 Then pj_dms = 右 + pj_dms Else pj_dms = 左 + pj_dms End If zh_s = km_lcz(zh) ： hy_s = km_lcz(hy) qz_s = km_lcz(qz) ： yh_s = km_lcz(yh) hz_s = km_lcz(hz) ; 在母表下面复制一张空表，供填入数据 ; Cells(Row + hs, 1).Value = num Cells(Row + hs, 2).Value = jd_s Cells(Row + hs, 3).Value = Format(x_jd, 0.00) Cells(Row + hs, 4).Value = Format(y_jd, 0.00) If r 0 Then Cells(Row + hs, 5).Value = pj_dms ‘ … … … … Cells(Row + hs, 11).Value = Format(j, 0.00) If zh hy Then Cells(Row + hs