模版对应信息

  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