Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3286|回复: 7

[已解决]VBA读取Word报名表信息,小黑点是怎么出来的

[复制链接]
发表于 2015-1-22 22:47 | 显示全部楼层 |阅读模式
VBA读取Word报名表信息,小黑点是怎么出来的
如图:请老师们帮我看看,谢谢大家了!
VBA读取Word报名表信息.rar (17.81 KB, 下载次数: 8)
 楼主| 发表于 2015-1-23 08:51 | 显示全部楼层
如图:请老师们帮我看看,谢谢大家了!
回复

使用道具 举报

发表于 2015-1-23 09:40 | 显示全部楼层
本帖最后由 dsmch 于 2015-1-23 09:44 编辑

增加一句代码
Sheets(表名).UsedRange.Replace "", ""
文件名 = Dir
建议将结果改为二维表格,这样更直观

VBA读取Word报名表信息.zip

17.53 KB, 下载次数: 3

回复

使用道具 举报

 楼主| 发表于 2015-1-23 09:52 | 显示全部楼层
本帖最后由 yjwdjfqb 于 2015-1-23 10:21 编辑
dsmch 发表于 2015-1-23 09:40
增加一句代码
Sheets(表名).UsedRange.Replace "", ""
文件名 = Dir

老师你好,这个方法是,将 小黑点 替换成 空,对吧
但这个小黑点是从哪儿出来的呀。
另外请教老师下,什么是二维表格呀,能帮我做个吗老师,谢谢了!


哦,这个是个好办法,可以麻烦老师帮我做个这样的程序吗,谢谢老师了!

点评

把姓名、年龄等作为标题行,每个报名表的信息反映为一行数据  发表于 2015-1-23 10:03
回复

使用道具 举报

 楼主| 发表于 2015-1-23 10:21 | 显示全部楼层
dsmch 发表于 2015-1-23 09:40
增加一句代码
Sheets(表名).UsedRange.Replace "", ""
文件名 = Dir

老师二维表


哦,这个是个好办法,可以麻烦老师帮我做个这样的程序吗,谢谢老师了!
回复

使用道具 举报

发表于 2015-1-23 10:31 | 显示全部楼层
  1. Sub Macro1()
  2. On Error Resume Next
  3. Dim mypath$, wj$, s%, wd
  4. Application.ScreenUpdating = False
  5. Range("a2:h2000").ClearContents
  6. Set wd = CreateObject("word.Application")
  7. mypath = ThisWorkbook.Path & "\报名表"
  8. wj = Dir(mypath & "*.doc")
  9. s = 1
  10. Do While wj <> ""
  11.     s = s + 1
  12.     With wd.Documents.Open(mypath & wj)
  13.         Cells(s, 1) = .Tables(1).Cell(1, 2).Range
  14.         Cells(s, 2) = .Tables(1).Cell(1, 4).Range
  15.         Cells(s, 3) = .Tables(1).Cell(1, 6).Range
  16.         Cells(s, 4) = .Tables(1).Cell(2, 2).Range
  17.         Cells(s, 5) = .Tables(1).Cell(2, 4).Range
  18.         Cells(s, 6) = .Tables(1).Cell(3, 2).Range
  19.         Cells(s, 7) = .Tables(1).Cell(3, 4).Range
  20.         Cells(s, 8) = .Tables(1).Cell(4, 2).Range
  21.         .Close False
  22.     End With
  23. wj = Dir
  24. Loop
  25. wd.Quit
  26. ActiveSheet.UsedRange.Replace "", ""
  27. Application.ScreenUpdating = True
  28. End Sub
复制代码
回复

使用道具 举报

发表于 2015-1-23 10:32 | 显示全部楼层    本楼为最佳答案   
………………

VBA读取Word报名表信息.zip

14.6 KB, 下载次数: 7

回复

使用道具 举报

 楼主| 发表于 2015-1-23 10:40 | 显示全部楼层
dsmch 发表于 2015-1-23 10:32
………………

非常感谢老师,这样的表,更直观,好用!
如果读取速度再快点就好了!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 18:21 , Processed in 0.805123 second(s), 16 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表