VBA excel,word代码连载(2)_真理空间站_百度空间


'*********************************
'数据导入reporting(2)


'导入第1~2页

Set wDoc = wApp.Documents.Open(ThisWorkbook.Path & "\模板文件\reporting(2).doc")
wApp.Visible = False

Documents("reporting(2).doc").Activate
Dim table201(40) As String
Dim table202(40, 1) As String
Dim str01 As String
Dim Nameuse As Integer
Dim GBuse As Integer

Dim a0 As Integer
Dim a1 As Integer
Dim a2 As Integer
Dim a3 As Integer
Dim a4 As Integer
Dim a5 As Integer
a1 = 0
a2 = 0
a3 = 0
a4 = 0
a5 = 0
str01 = StatInf(i, 5)
m = 0
n = 0
For i = 0 To Table2RowNum
If StatInf(i, 5) = "实测" Then
    Select Case StatInf(i, 1)
      Case "排气污染物(怠速法)"
           table201(m) = "排气污染物(怠速法)"
           m = m + 1
           table202(n, 0) = "GB 14621-2002"
           table202(n, 1) = "    摩托车和轻便摩托车排气污染物排放限值及测量方法(怠速法)" & Chr(13)
           n = n + 1
      Case "摩托车排气污染物(工况法)(I型)"
           table201(m) = "排气污染物(工况法)"
           m = m + 1
           table202(n, 0) = "GB 14622-2007"
           table202(n, 1) = "    摩托车污染物排放限值及测量方法(工况法,中国第Ⅲ阶段)" & Chr(13)
           n = n + 1
      Case "轻便摩托车排气污染物(工况法)(I型)"
           table201(m) = "排气污染物(工况法)"
           m = m + 1
           table202(n, 0) = "GB 14622-2007"
           table202(n, 1) = "    摩托车污染物排放限值及测量方法(工况法,中国第Ⅲ阶段)" & Chr(13)
           n = n + 1
      Case "加速行驶噪声"
           table201(m) = "加速行驶噪声"
           m = m + 1
           table202(n, 0) = "GB 16169-2005"
           table202(n, 1) = "    摩托车和轻便摩托车加速行驶噪声限值及测量方法" & Chr(13)
           n = n + 1
      Case "无线电骚扰"
           table201(m) = "无线电骚扰"
           m = m + 1
           table202(n, 0) = "GB 14023-2006"
           table202(n, 1) = "    车辆、船和由内燃机驱动的装置 无线电骚扰特性 限值和测量方法" & Chr(13)
           n = n + 1
      Case "制动性能"
           table201(m) = "制动性能"
           m = m + 1
           If a0 = 0 Then
           table202(n, 0) = "GB 20073-2006"
           table202(n, 1) = "    摩托车和轻便摩托车制动性能要求及试验方法" & Chr(13)
           n = n + 1
           a0 = a0 + 1
           End If
      Case "转向装置"
           table201(m) = "转向装置"
           m = m + 1
           If a1 = 0 Then
           table202(n, 0) = "GB 7258-2004"
           table202(n, 1) = "     机动车运行安全技术条件" & Chr(13)
           n = n + 1
           a1 = a1 + 1
           End If
      Case "车速表指示误差值"
           table201(m) = "车速表指示误差值"
           m = m + 1
           If a1 = 0 Then
           table202(n, 0) = "GB 7258-2004"
           table202(n, 1) = "     机动车运行安全技术条件" & Chr(13)
           n = n + 1
           a1 = a1 + 1
           End If
      Case "车辆标志"
           table201(m) = "车辆标志"
           m = m + 1
           If a1 = 0 Then
           table202(n, 0) = "GB 7258-2004"
           table202(n, 1) = "     机动车运行安全技术条件" & Chr(13)
           n = n + 1
           a1 = a1 + 1
           End If
      Case "经济车速油耗"
           table201(m) = "燃油消耗量"
           m = m + 1
           table202(n, 0) = "GB 15744-2008"
           table202(n, 1) = "    摩托车燃油消耗量限值及测量方法" & Chr(13)
           n = n + 1
      Case "摩托车油耗"
           table201(m) = "燃油消耗量"
           m = m + 1
           table202(n, 0) = "GB 15744-2008"
           table202(n, 1) = "    摩托车燃油消耗量限值及测量方法" & Chr(13)
           n = n + 1
      Case "轻便摩托车油耗"
           table201(m) = "燃油消耗量"
           m = m + 1
           table202(n, 0) = "GB 15744-2008"
           table202(n, 1) = "    摩托车燃油消耗量限值及测量方法" & Chr(13)
           n = n + 1
      Case "图形符号"
           table201(m) = "图形符号"
           m = m + 1
           table202(n, 0) = "GB 15365-2008"
           table202(n, 1) = "    摩托车燃油消耗量限值及测量方法" & Chr(13)
           n = n + 1
           If a1 = 0 Then
           table202(n, 0) = "GB 7258-2004"
           table202(n, 1) = "     机动车运行安全技术条件" & Chr(13)
           n = n + 1
           a1 = a1 + 1
           End If
           i = i + 1
      Case "外廓尺寸"
           table201(m) = "外廓尺寸"
           m = m + 1
           If a1 = 0 Then
           table202(n, 0) = "GB 7258-2004"
           table202(n, 1) = "     机动车运行安全技术条件" & Chr(13)
           n = n + 1
           a1 = a1 + 1
           End If
      Case "侧倾稳定角"
           table201(m) = "侧倾稳定角"
           m = m + 1
           If a1 = 0 Then
           table202(n, 0) = "GB 7258-2004"
           table202(n, 1) = "     机动车运行安全技术条件" & Chr(13)
           n = n + 1
           a1 = a1 + 1
           End If
      Case "两轮摩托车驻车性能"
           table201(m) = "两轮摩托车驻车性能"
           m = m + 1
           table202(n, 0) = "GB/T 15363-1994"
           table202(n, 1) = " 摩托车和轻便摩托车驻车性能要求" & Chr(13)
           n = n + 1
      Case "三轮摩托车驻车性能"
           table201(m) = "三轮摩托车驻车性能"
           m = m + 1
           table202(n, 0) = "GB/T 15363-1994"
           table202(n, 1) = " 摩托车和轻便摩托车驻车性能要求" & Chr(13)
           n = n + 1
           table201(m) = "侧倾稳定角"
           m = m + 1
           If a1 = 0 Then
           table202(n, 0) = "GB 7258-2004"
           table202(n, 1) = "     机动车运行安全技术条件" & Chr(13)
           n = n + 1
           a1 = a1 + 1
           End If
           If a0 = 0 Then
           table202(n, 0) = "GB 20073-2006"
           table202(n, 1) = "    摩托车和轻便摩托车制动性能要求及试验方法" & Chr(13)
           n = n + 1
           a0 = a0 + 1
           End If
           i = i + 1
      Case "前照灯光束照射位置及发光强度"
           table201(m) = "前照灯光束照射位置及发光强度"
           m = m + 1
           If a1 = 0 Then
           table202(n, 0) = "GB 7258-2004"
           table202(n, 1) = "     机动车运行安全技术条件" & Chr(13)
           n = n + 1
           a1 = a1 + 1
           End If
      Case "前照灯配光性能"
           table201(m) = "前照灯配光性能"
           m = m + 1
           table202(n, 0) = "GB5948-1998"
           table202(n, 1) = "     摩托车白炽丝光源前照灯配光性能" & Chr(13)
           n = n + 1
      Case "喇叭"
           table201(m) = "喇叭性能"
           m = m + 1
           If a2 = 0 Then
           table202(n, 0) = "GB 15742-2001"
           table202(n, 1) = "    机动车用喇叭的性能要求及试验方法" & Chr(13)
           n = n + 1
           a2 = a2 + 1
           End If
      Case "装于摩托车上喇叭的性能要求"
           table201(m) = "装于摩托车上喇叭的性能要求"
           m = m + 1
           If a1 = 0 Then
           table202(n, 0) = "GB 7258-2004"
           table202(n, 1) = "     机动车运行安全技术条件" & Chr(13)
           n = n + 1
           a1 = a1 + 1
           End If
           If a2 = 0 Then
           table202(n, 0) = "GB 15742-2001"
           table202(n, 1) = "    机动车用喇叭的性能要求及试验方法" & Chr(13)
           n = n + 1
           a2 = a2 + 1
           End If
           i = i + 1
      Case "后视镜"
           table201(m) = "后视镜性能"
           m = m + 1
           If a3 = 0 Then
           table202(n, 0) = "GB 17352-1998"
           table202(n, 1) = "    摩托车和轻便摩托车后视镜及其安装要求" & Chr(13)
           n = n + 1
           a3 = a3 + 1
           End If
      Case "后视镜的安装要求"
           table201(m) = "后视镜的安装要求"
           m = m + 1
           If a3 = 0 Then
           table202(n, 0) = "GB 17352-1998"
           table202(n, 1) = "    摩托车和轻便摩托车后视镜及其安装要求" & Chr(13)
           n = n + 1
           a3 = a3 + 1
           End If
      Case "转向锁止防盗装置"
           table201(m) = "转向锁止防盗装置"
           m = m + 1
           table202(n, 0) = "GB 17353-1998"
           table202(n, 1) = "    摩托车和轻便摩托车转向锁止防盗装置" & Chr(13)
           n = n + 1
      Case "两轮摩托车照明和光信号装置的安装"
           table201(m) = "照明和光信号装置的安装"
           m = m + 1
           table202(n, 0) = "GB 18100-2000"
           table202(n, 1) = "    两轮摩托车及轻便摩托车照明和光信号装置的安装规定" & Chr(13)
           n = n + 1
      Case "三轮摩托车照明和光信号装置的安装"
           table201(m) = "照明和光信号装置的安装"
           m = m + 1
           If a1 = 0 Then
           table202(n, 0) = "GB 7258-2004"
           table202(n, 1) = "     机动车运行安全技术条件" & Chr(13)
           n = n + 1
           a1 = a1 + 1
           End If
      Case "前回复反射器"
           table201(m) = "前回复反射器"
           m = m + 1
           If a4 = 0 Then
           table202(n, 0) = "GB 11564-2008"
           table202(n, 1) = "    机动车回复反射器" & Chr(13)
           n = n + 1
           a4 = a4 + 1
           End If
      Case "侧回复反射器"
           table201(m) = "侧回复反射器"
           m = m + 1
           If a4 = 0 Then
           table202(n, 0) = "GB 11564-2008"
           table202(n, 1) = "    机动车回复反射器" & Chr(13)
           n = n + 1
           a4 = a4 + 1
           End If
      Case "后回复反射器"
           table201(m) = "后回复反射器"
           m = m + 1
           If a4 = 0 Then
           table202(n, 0) = "GB 11564-2008"
           table202(n, 1) = "    机动车回复反射器" & Chr(13)
           n = n + 1
           a4 = a4 + 1
           End If
      Case "脚踏板回复反射器"
           table201(m) = "脚踏板回复反射器器"
           m = m + 1
           If a4 = 0 Then
           table202(n, 0) = "GB 11564-2008"
           table202(n, 1) = "    机动车回复反射器" & Chr(13)
           n = n + 1
           a4 = a4 + 1
           End If
      Case "前位灯配光性能器"
           table201(m) = "前位灯配光性能"
           m = m + 1
           If a5 = 0 Then
           table202(n, 0) = "GB 17510-2008"
           table202(n, 1) = "    摩托车光信号装置配光性能" & Chr(13)
           n = n + 1
           a5 = a5 + 1
           End If
      Case "后位灯配光性能"
           table201(m) = "前位灯配光性能"
           m = m + 1
           If a5 = 0 Then
           table202(n, 0) = "GB 17510-2008"
           table202(n, 1) = "    摩托车光信号装置配光性能" & Chr(13)
           a5 = a5 + 1
           n = n + 1
           End If
      Case "制动灯配光性能"
           table201(m) = "制动灯配光性能"
           m = m + 1
           If a5 = 0 Then
           table202(n, 0) = "GB 17510-2008"
           table202(n, 1) = "    摩托车光信号装置配光性能" & Chr(13)
           n = n + 1
           a5 = a5 + 1
           End If
      Case "前转向信号灯配光性能"
           table201(m) = "前转向信号灯配光性能"
           m = m + 1
           If a5 = 0 Then
           table202(n, 0) = "GB 17510-2008"
           table202(n, 1) = "    摩托车光信号装置配光性能" & Chr(13)
           n = n + 1
           a5 = a5 + 1
           End If
      Case "后转向信号灯配光性能"
           table201(m) = "后转向信号灯配光性能"
           m = m + 1
           If a5 = 0 Then
           table202(n, 0) = "GB 17510-2008"
           table202(n, 1) = "    摩托车光信号装置配光性能" & Chr(13)
           n = n + 1
           a5 = a5 + 1
           End If
      Case "后牌照灯配光性能"
           table201(m) = "后牌照灯配光性能"
           m = m + 1
           If a5 = 0 Then
           table202(n, 0) = "GB 17510-2008"
           table202(n, 1) = "    摩托车光信号装置配光性能" & Chr(13)
           n = n + 1
           a5 = a5 + 1
           End If
      Case "燃油箱"
           table201(m) = "摩托车燃油箱"
           m = m + 1
           table202(n, 0) = "GB19482-2004"
           table202(n, 1) = "     摩托车和轻便摩托车燃油箱安全性能要求和试验方法" & Chr(13)
           n = n + 1
      Case "外部凸出物"
           table201(m) = "摩托车外部凸出物"
           m = m + 1
           table202(n, 0) = "GB 20074-2006"
           table202(n, 1) = "    摩托车和轻便摩托车外部凸出物" & Chr(13)
           n = n + 1
      Case "乘员扶手"
           table201(m) = "乘员扶手"
           m = m + 1
           table202(n, 0) = "GB 20075-2006"
           table202(n, 1) = "    摩托车乘员扶手" & Chr(13)
           n = n + 1
      Case "发动机{zd0}扭矩和{zd0}净功率"
           table201(m) = "发动机{zd0}扭矩和{zd0}净功率"
           m = m + 1
           table202(n, 0) = "GB/T 20076-2006"
           table202(n, 1) = " 摩托车和轻便摩托车发动机{zd0}扭矩和{zd0}净功率测量方法" & Chr(13)
           n = n + 1
       Case "蒸发污染物"
           table201(m) = "蒸发污染物"
           m = m + 1
           table202(n, 0) = "GB 20998-2007"
           table202(n, 1) = "    摩托车和轻便摩托车燃油蒸发污染物排放限值及测量方法" & Chr(13)
           n = n + 1
     End Select
End If
Next i
Nameuse = m
GBuse = n
table202(GBuse, 0) = "GB/T 5378-1994"
table202(GBuse, 1) = "   摩托车和轻便摩托车道路试验总则" & Chr(13)
table202(GBuse + 1, 0) = "GB/T 5373-2006"
table202(GBuse + 1, 1) = "   摩托车和轻便摩托车尺寸和质量参数的测定方法" & Chr(13)
table202(GBuse + 2, 0) = "GB/T 15364-1994"
table202(GBuse + 2, 1) = " 摩托车和轻便摩托车驻车性能试验方法" & Chr(13)
table202(GBuse + 3, 0) = "QC/T 67-1993"
table202(GBuse + 3, 1) = "     摩托车喇叭声级测量方法" & Chr(13)

With wDoc.Tables(1)
        .Cell(1, 2).range.Text = MotoInf(11)
        .Cell(1, 4).range.Text = MotoInf(3)
        .Cell(2, 2).range.Text = MotoInf(0)
        .Cell(2, 4).range.Text = MotoInf(2)
        .Cell(3, 2).range.Text = MotoInf(0)
   
End With

Dim str5 As String, str6 As String, str7 As String
str5 = LTrim(table201(0))
str6 = LTrim(table202(0, 0))
str7 = ""
For i = 1 To Nameuse - 1
   str5 = str5 & "、" & LTrim(table201(i))
Next i
str5 = str5 & ",共" & Nameuse & "项"

For i = 1 To GBuse - 1
   str6 = str6 & "、" & LTrim(table202(i, 0))
Next i
For i = 0 To GBuse + 3
str7 = str7 & LTrim(table202(i, 0)) & (table202(i, 1))
Next i
str7 = str7 & "企业标准"
With wDoc.Tables(1)
        .Cell(7, 2).range.Text = str5
        .Cell(8, 2).range.Text = str6
End With
wDoc.Tables(3).Cell(4, 1).range.Text = str7




郑重声明:资讯 【VBA excel,word代码连载(2)_真理空间站_百度空间】由 发布,版权归原作者及其所在单位,其原创性以及文中陈述文字和内容未经(企业库qiyeku.com)证实,请读者仅作参考,并请自行核实相关内容。若本文有侵犯到您的版权, 请你提供相关证明及申请并与我们联系(qiyeku # qq.com)或【在线投诉】,我们审核后将会尽快处理。
—— 相关资讯 ——