关于Excel

Question

'说明,以下是实际应用的程序,其中,已知了 MeprintRs 是 adodb.recordset 类型
        Dim wkbObj As Workbook  '定义工作空间
        Dim wksObj As New Worksheet  '定义表单
        If Not MeprintRs.EOF Then  '判断是否有记录存在，有打开模板写代码
        Set wkbObj = Workbooks.Open(App.Path & "\report\xs_zjggb.xls") '打开模版
        Set wksObj = wkbObj.Worksheets(1)           '打开表单模版
        '报表内容
        wksObj.Cells(3, 14) = Trim(MeprintRs!v_batchnu) '批号
        wksObj.Cells(3, 6) = Trim(MeprintRs!v_patternnu) '款号
        '--------
        wksObj.Cells(5, 2) = Trim(MeprintRs!v_clofase) '衫身面
        wksObj.Cells(5, 4) = Trim(MeprintRs!v_clofasel) '衫身面横拉
        wksObj.Cells(6, 2) = Trim(MeprintRs!v_clobot) '衫身底
        wksObj.Cells(6, 4) = Trim(MeprintRs!v_clobotl) '衫身底横拉
        wksObj.Cells(7, 1) = Trim(MeprintRs!v_add1name) 'add1名称
        wksObj.Cells(7, 2) = Trim(MeprintRs!v_add1) 'add1数据
        wksObj.Cells(7, 4) = Trim(MeprintRs!v_add1l) 'add1横拉
        wksObj.Cells(8, 2) = Trim(MeprintRs!v_clofoot) '衫脚
        wksObj.Cells(8, 4) = Trim(MeprintRs!v_clofootl) '衫脚横拉
        wksObj.Cells(9, 2) = Trim(MeprintRs!v_clomou) '袖咀
        wksObj.Cells(9, 4) = Trim(MeprintRs!v_clomoul) '袖咀横拉
        wksObj.Cells(10, 2) = Trim(MeprintRs!v_usher) '领贴
        wksObj.Cells(10, 4) = Trim(MeprintRs!v_usherl) '领贴横拉
        wksObj.Cells(11, 2) = Trim(MeprintRs!v_bosom) '胸贴
        wksObj.Cells(11, 4) = Trim(MeprintRs!v_bosoml) '胸贴横拉
        '-----------
         wksObj.Cells(5, 8) = Trim(MeprintRs!v_colfaser) '衫身用
         wksObj.Cells(6, 8) = Trim(MeprintRs!v_colbotr) '衫脚用
         wksObj.Cells(7, 8) = Trim(MeprintRs!v_colmour) '衫咀用
         wksObj.Cells(8, 8) = Trim(MeprintRs!v_usherr) '领用
         wksObj.Cells(9, 8) = Trim(MeprintRs!v_attachr) '贴用
         '-------------
         wksObj.Cells(5, 14) = Trim(MeprintRs!v_clipf) '夹花
         wksObj.Cells(6, 14) = Trim(MeprintRs!v_armf) '膊花
         wksObj.Cells(7, 14) = Trim(MeprintRs!v_usherf) '领花
         wksObj.Cells(8, 14) = Trim(MeprintRs!v_waistf) '收腰
         wksObj.Cells(9, 12) = Trim(MeprintRs!v_add2name) 'add2名称
         wksObj.Cells(9, 14) = Trim(MeprintRs!v_add2f) 'add2
        '--------------
        wksObj.Cells(5, 17) = Trim(MeprintRs!v_frontw) '前幅重
        wksObj.Cells(6, 17) = Trim(MeprintRs!v_backw) '后幅重
        wksObj.Cells(7, 17) = Trim(MeprintRs!v_xiuw) '袖幅重
        wksObj.Cells(8, 17) = Trim(MeprintRs!v_usherw) '领贴重
        wksObj.Cells(9, 16) = Trim(MeprintRs!v_add3name) 'add3名称
        wksObj.Cells(9, 17) = Trim(MeprintRs!v_add3w) 'add3
        '--------------
        wksObj.Cells(13, 2) = Trim(MeprintRs!v_sewun) '缝领针数
        wksObj.Cells(13, 8) = Trim(MeprintRs!v_xiudrag) '袖拉
        wksObj.Cells(13, 16) = Trim(MeprintRs!v_backdrag) '后幅拉
        wksObj.Cells(13, 22) = "前幅拉:" & Trim(MeprintRs!v_frontdrag) '前幅拉
        wksObj.Cells(13, 12) = Trim(MeprintRs!v_xzzs) & "转 )" '袖总转数
        wksObj.Cells(13, 18) = Trim(MeprintRs!v_hfzzs) '后幅总转数
        wksObj.Cells(13, 25) = Trim(MeprintRs!v_qfzzs) '前幅总转数
        wksObj.Cells(33, 6) = Trim(MeprintRs!v_xkz) & " 针" '袖开针
        wksObj.Cells(33, 15) = Trim(MeprintRs!v_hfkz) & " 针" '后幅开针
        wksObj.Cells(33, 22) = Trim(MeprintRs!v_qfkz) & " 针" '前幅开针
        
        wksObj.Cells(31, 6) = Trim(MeprintRs!v_xjzs) & " 转" '袖脚转数
        wksObj.Cells(31, 14) = Trim(MeprintRs!v_yjzs) & " 转" '后幅衣脚转数
        wksObj.Cells(31, 21) = Trim(MeprintRs!v_yjzs) & " 转" '前幅衣脚转数
        wksObj.Cells(29, 14) = "下夹:" & Trim(MeprintRs!v_hfxjzs) & " 转" '后幅下夹转数
        wksObj.Cells(29, 21) = "下夹:" & Trim(MeprintRs!v_qfxjzs) & " 转" '前幅下夹转数
        wksObj.Cells(28, 14) = "转数:" & Trim(MeprintRs!v_hfyzhuans) '后幅第一次收针转数
        wksObj.Cells(28, 16) = "针数:" & Trim(MeprintRs!v_hfyzhens) '后幅第一次收针针数
        wksObj.Cells(22, 14) = "   " & "转数:" & Trim(MeprintRs!v_hfezhuans) '后幅第二次收针转数
        wksObj.Cells(22, 16) = "针数:" & Trim(MeprintRs!v_hfezhens) '后幅第二次收针转数
        wksObj.Cells(16, 15) = "剩针:" & Trim(MeprintRs!v_hfsz) '后幅剩针
        wksObj.Cells(21, 18) = "上夹:" & Trim(MeprintRs!v_hfsjzs) & " 转" '后幅上夹转数
        wksObj.Cells(28, 21) = "转数:" & Trim(MeprintRs!v_qfyzhuans) '前幅第一次收针转数
        wksObj.Cells(28, 23) = "针数:" & Trim(MeprintRs!v_qfyzhens) '前幅第一次收针针数
        wksObj.Cells(22, 22) = "转数:" & Trim(MeprintRs!v_qfezhuans) '前幅第二次收针转数
        wksObj.Cells(22, 23) = "针数:" & Trim(MeprintRs!v_qfezhens) '前幅第二次收针针数
        wksObj.Cells(16, 22) = "剩针:" & Trim(MeprintRs!v_qfsz) '前幅剩针
        wksObj.Cells(21, 25) = "上夹:" & Trim(MeprintRs!v_qfsjzs) & " 转" '前幅上夹转数
        wksObj.Cells(16, 6) = "剩针:" & Trim(MeprintRs!v_xsz) '袖剩针数
        wksObj.Cells(29, 6) = "转数:" & Trim(MeprintRs!v_xyzhuans) '袖第一次加针转数
        wksObj.Cells(28, 6) = "针数:" & Trim(MeprintRs!v_xyzhens) '袖第一次加针针数
        wksObj.Cells(21, 6) = "转数:" & Trim(MeprintRs!v_xezhuans) '袖第二次加针转数
        wksObj.Cells(21, 8) = "针数:" & Trim(MeprintRs!v_xezhens) '袖第二次加针针数
                   wkbObj.Application.Visible = True
                     '打印预兰
                     wksObj.PrintPreview
                     '关闭
                     wkbObj.Close SaveChanges:=False
                     Workbooks.Close
                     MeprintRs.Close