Tables("学校建筑物信息1_Table6").Fill(")
Tables("学校建筑物信息1_Table6").SetColVisibleWidth("XXQHM|100|xxmc|200|jzwmc|200|jglx|100|cs|50|sfyzssj|100|jgsj|80|jcsj|100|czaqyhqk|150|zhpddj|100|sfcqcs|100")
'设置列标题
With DataTables("学校建筑物信息1_Table6")
.DataCols("XXQHM").Caption = "所属区县"
.DataCols("xxmc").Caption = "学校名称"
.DataCols("jzwmc").Caption = "建筑物名称"
.DataCols("jglx").Caption = "结构类型"
.DataCols("cs").Caption = "层数"
.DataCols("sfyzssj").Caption = "是否有正式设计"
.DataCols("jgsj").Caption = "竣工时间"
.BuildHeader()
End With