验证中...
码云 IDEA 插件最新版本发布,支持 Pull Request
语言: 其他
分类: 其他
最后更新于 2018-12-09 10:12
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 )

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

搜索帮助