|
本帖最后由 zldccmx 于 2021-9-8 23:07 编辑
- Sub zldccmx()
- Dim T As Table
- Dim Arr(1 To 1000, 1 To 12)
- brr = Array("姓名", "性别", "学籍号", “出生日期", "身份证号", "家庭地址", "关系", "姓名", "联系电话", "关系", "姓名", "联系电话")
- For i = 0 To UBound(brr)
- Arr(1, i+1) = brr(i)
- Next
- i = 1
- For Each T In ThisDocument.Tables
- T.Select
- v = Split(Selection.Text, Chr(13) & Chr(7))
- i = i + 1
- Arr(i, 1) = v(3)
- Arr(i, 2) = v(5)
- Arr(i, 3) = v(11)
- Arr(i, 4) = v(15)
- Arr(i, 5) = "'" & v(21)
- Arr(i, 6) = v(45)
- Arr(i, 7) = v(52)
- Arr(i, 8) = v(53)
- Arr(i, 9) = "'" & v(54)
- Arr(i, 10) = v(56)
- Arr(i, 11) = v(57)
- Arr(i, 12) = "'" & v(58)
- Next
- ' Set v = Selection 这一句不需要,调试时留下的垃圾
- Set xls = CreateObject("excel.Application")
- With xls.workbooks.Add.activesheet
- .[a1].Resize(i + 1, 12) = Arr
- .Name = "学生信息"
- End With
- xls.activeworkbook.SaveAs ThisDocument.Path & "\学生信息表.xls", 56
- xls.Quit
- End Sub
复制代码 |
|