论坛风格切换切换到宽版
  • 4384阅读
  • 3回复

[分享]使用VB读取word中的表格内容到excel表格中 [复制链接]

上一主题 下一主题
离线米修娜儿
 

发帖
47
金币
1475
威望
190
股份
37
只看楼主 倒序阅读 使用道具 楼主  发表于: 2013-11-17

Sub 测试wordexcel()
Dim excel As Object
Dim workbook As Object
Dim worksheet As Object


Dim i As Integer
Dim row As Integer
Dim str As String




Set excel = CreateObject("excel.application")
Set workbook = excel.WorkBooks.Open("c:\temp.xls")
Set worksheet = workbook.WorkSheets(1)




row = 2


For i = 1 To ActiveDocument.Tables(1).Rows.count




str = ActiveDocument.Tables(1).Cell(i, 3).Range.Text


worksheet.Cells(row, 1).Value = str


MsgBox "行:" & i & " 内容:" & str


row = row + 1


Next


excel.Visible = True


End Sub
1条评分好评+1
chongl 好评 +1 谢谢@Thanks! 2013-11-17



离线chongl

发帖
54
金币
4361
威望
8631
股份
871
只看该作者 沙发  发表于: 2013-11-17
谢谢@Thanks!
离线enemyfordemo

发帖
23
金币
3
威望
0
股份
23
只看该作者 板凳  发表于: 2015-12-27
好教程
离线andycow

发帖
20
金币
0
威望
0
股份
20
只看该作者 地板  发表于: 01-15
感谢楼主分享10
快速回复
限100 字节
批量上传需要先选择文件,再选择上传
 
上一个 下一个