验证中...
助力高校计算机教育 —— 码云为老师推出免费高校版,高达 200 人的协作团队
语言: 其他
分类: 其他
最后更新于 2018-06-14 11:04
Word VBA 提取表格内容
原始数据 复制代码
'初始序号是从1开始的,不是0!
Public Sub x()
Debug.Print ThisDocument.Tables.Item(1).Cell(1, 1).Range.Text
Open "tb.csv" For Output As #1
Dim i As Integer
For i = 2 To 59
Print #1, Chr(34) & ThisDocument.Tables.Item(1).Cell(i, 3).Range.Text & Chr(34) & "," & _
ThisDocument.Tables.Item(1).Cell(i, 4).Range.Text
Next
Close #1
End Sub

评论列表( 0 )

你可以在登录后,发表评论

10_float_left_people 10_float_left_close