1 '模板对应信息 2 Function getExportCell(exportCell As TypeValueCell) 3 If exportCell.cellName = "" Then 4 Return 5 End If 6 Dim columnName As String 7 columnName = exportCell.cellName 8 Select Case columnName 9 Case "学校标识码" 10 exportCell.exportRow = 2 11 exportCell.exportColumn = 6 12 Case "姓名" 13 exportCell.exportRow = 5 14 exportCell.exportColumn = 3 15 Case "性别" 16 exportCell.exportRow = 6 17 exportCell.exportColumn = 3 18 Case "出生日期" 19 exportCell.exportRow = 7 20 exportCell.exportColumn = 3 21 Case "出生地行政区划代码" 22 exportCell.exportRow = 8 23 exportCell.exportColumn = 3 24 Case "籍贯" 25 exportCell.exportRow = 9 26 exportCell.exportColumn = 3 27 Case "民族" 28 exportCell.exportRow = 10 29 exportCell.exportColumn = 3 30 Case "国籍/地区" 31 exportCell.exportRow = 5 32 exportCell.exportColumn = 6 33 Case "身份证件类型" 34 exportCell.exportRow = 6 35 exportCell.exportColumn = 6 36 Case "身份证件号" 37 exportCell.exportRow = 7 38 exportCell.exportColumn = 6 39 Case "港澳台侨外" 40 exportCell.exportRow = 8 41 exportCell.exportColumn = 6 42 Case "政治面貌" 43 exportCell.exportRow = 10 44 exportCell.exportColumn = 6 45 Case "健康状况" 46 exportCell.exportRow = 9 47 exportCell.exportColumn = 6 48 49 50 Case "曾用名" 51 exportCell.exportRow = 12 52 exportCell.exportColumn = 3 53 Case "身份证件有效期" 54 exportCell.exportRow = 13 55 exportCell.exportColumn = 3 56 Case "血型" 57 exportCell.exportRow = 14 58 exportCell.exportColumn = 3 59 Case "户口所在地行政区划" 60 exportCell.exportRow = 12 61 exportCell.exportColumn = 6 62 Case "户口性质" 63 exportCell.exportRow = 13 64 exportCell.exportColumn = 6 65 Case "特长" 66 exportCell.exportRow = 14 67 exportCell.exportColumn = 6 68 69 70 Case "学籍辅号" 71 exportCell.exportRow = 16 72 exportCell.exportColumn = 3 73 Case "班内学号" 74 exportCell.exportRow = 17 75 exportCell.exportColumn = 3 76 Case "校区号" 77 exportCell.exportRow = 18 78 exportCell.exportColumn = 3 79 Case "班号" 80 exportCell.exportRow = 20 81 exportCell.exportColumn = 3 82 Case "入学年月" 83 exportCell.exportRow = 16 84 exportCell.exportColumn = 6 85 Case "入学方式" 86 exportCell.exportRow = 17 87 exportCell.exportColumn = 6 88 Case "就读方式" 89 exportCell.exportRow = 18 90 exportCell.exportColumn = 6 91 Case "学生来源" 92 exportCell.exportRow = 19 93 exportCell.exportColumn = 6 94 95 96 97 Case "现住址" 98 exportCell.exportRow = 22 99 exportCell.exportColumn = 3 100 Case "通信地址" 101 exportCell.exportRow = 23 102 exportCell.exportColumn = 3 103 Case "家庭地址" 104 exportCell.exportRow = 24 105 exportCell.exportColumn = 3 106 Case "联系电话" 107 exportCell.exportRow = 25 108 exportCell.exportColumn = 3 109 Case "邮政编码" 110 exportCell.exportRow = 22 111 exportCell.exportColumn = 6 112 Case "电子信箱" 113 exportCell.exportRow = 23 114 exportCell.exportColumn = 6 115 Case "主页地址" 116 exportCell.exportRow = 24 117 exportCell.exportColumn = 6 118 119 120 121 Case "是否独生子女" 122 exportCell.exportRow = 27 123 exportCell.exportColumn = 3 124 Case "是否受过学前教育" 125 exportCell.exportRow = 28 126 exportCell.exportColumn = 3 127 Case "是否留守儿童" 128 exportCell.exportRow = 29 129 exportCell.exportColumn = 3 130 Case "是否农村留守儿童" 131 exportCell.exportRow = 30 132 exportCell.exportColumn = 3 133 Case "是否随迁子女" 134 exportCell.exportRow = 31 135 exportCell.exportColumn = 3 136 Case "是否进城务工人员随迁子女" 137 exportCell.exportRow = 32 138 exportCell.exportColumn = 3 139 Case "是否孤儿" 140 exportCell.exportRow = 27 141 exportCell.exportColumn = 6 142 Case "是否享受一补" 143 exportCell.exportRow = 28 144 exportCell.exportColumn = 6 145 Case "是否由政府购买学位" 146 exportCell.exportRow = 29 147 exportCell.exportColumn = 6 148 Case "是否残疾人" 149 exportCell.exportRow = 30 150 exportCell.exportColumn = 6 151 Case "是否需要申请资助" 152 exportCell.exportRow = 31 153 exportCell.exportColumn = 6 154 Case "是否烈士或优抚子女" 155 exportCell.exportRow = 32 156 exportCell.exportColumn = 6 157 '' Case "随班就读" 158 '' exportCell.exportRow = 27 159 '' exportCell.exportColumn = 6 160 '' Case "残疾类型" 161 '' exportCell.exportRow = 28 162 '' exportCell.exportColumn = 6 163 164 165 Case "上下学距离" 166 exportCell.exportRow = 34 167 exportCell.exportColumn = 3 168 Case "上下学交通方式" 169 exportCell.exportRow = 35 170 exportCell.exportColumn = 3 171 Case "是否乘坐校车" 172 exportCell.exportRow = 34 173 exportCell.exportColumn = 6 174 175 176 Case "成员1姓名" 177 exportCell.exportRow = 37 178 exportCell.exportColumn = 3 179 Case "成员1关系" 180 exportCell.exportRow = 38 181 exportCell.exportColumn = 3 182 Case "成员1关系说明" 183 exportCell.exportRow = 39 184 exportCell.exportColumn = 3 185 Case "成员1民族" 186 exportCell.exportRow = 40 187 exportCell.exportColumn = 3 188 Case "成员1工作单位" 189 exportCell.exportRow = 41 190 exportCell.exportColumn = 3 191 Case "成员1现住址" 192 exportCell.exportRow = 42 193 exportCell.exportColumn = 3 194 Case "成员1户口所在地行政区划" 195 exportCell.exportRow = 37 196 exportCell.exportColumn = 6 197 Case "成员1联系电话" 198 exportCell.exportRow = 38 199 exportCell.exportColumn = 6 200 Case "成员1是否监护人" 201 exportCell.exportRow = 39 202 exportCell.exportColumn = 6 203 Case "成员1身份证件类型" 204 exportCell.exportRow = 40 205 exportCell.exportColumn = 6 206 Case "成员1身份证件号" 207 exportCell.exportRow = 41 208 exportCell.exportColumn = 6 209 Case "成员1职务" 210 exportCell.exportRow = 42 211 exportCell.exportColumn = 6 212 213 Case "成员2姓名" 214 exportCell.exportRow = 44 215 exportCell.exportColumn = 3 216 Case "成员2关系" 217 exportCell.exportRow = 45 218 exportCell.exportColumn = 3 219 Case "成员2关系说明" 220 exportCell.exportRow = 46 221 exportCell.exportColumn = 3 222 Case "成员2民族" 223 exportCell.exportRow = 47 224 exportCell.exportColumn = 3 225 Case "成员2工作单位" 226 exportCell.exportRow = 48 227 exportCell.exportColumn = 3 228 Case "成员2现住址" 229 exportCell.exportRow = 49 230 exportCell.exportColumn = 3 231 Case "成员2户口所在地行政区划" 232 exportCell.exportRow = 44 233 exportCell.exportColumn = 6 234 Case "成员2联系电话" 235 exportCell.exportRow = 45 236 exportCell.exportColumn = 6 237 Case "成员2是否监护人" 238 exportCell.exportRow = 46 239 exportCell.exportColumn = 6 240 Case "成员2身份证件类型" 241 exportCell.exportRow = 47 242 exportCell.exportColumn = 6 243 Case "成员2身份证件号" 244 exportCell.exportRow = 48 245 exportCell.exportColumn = 6 246 Case "成员2职务" 247 exportCell.exportRow = 49 248 exportCell.exportColumn = 6 249 End Select 250 End Function