我有一个很多表格的文档。有谁知道如何编写一个宏来将这些表导出到不同的Excel工作表?

坐看云起时坐看云起时提问于
帅的惊动我国计算机大神回答于

可以这样

Option Explicit Sub ImportWordTable() Dim wdDoc As Object Dim wdFileName As Variant Dim tableNo As Integer 'table number in Word Dim iRow As Long 'row index in Excel Dim iCol As Integer 'column index in Excel Dim resultRow As Long Dim tableStart As Integer Dim tableTot As Integer On Error Resume Next ActiveSheet.Range("A:AZ").ClearContents wdFileName = Application.GetOpenFilename("Word files (*.doc),*.doc", , _ "Browse for file containing table to be imported") If wdFileName = False Then Exit Sub '(user cancelled import file browser) Set wdDoc = GetObject(wdFileName) 'open Word file With wdDoc tableNo = wdDoc.tables.Count tableTot = wdDoc.tables.Count If tableNo = 0 Then MsgBox "This document contains no tables", _ vbExclamation, "Import Word Table" ElseIf tableNo > 1 Then tableNo = InputBox("This Word document contains " & tableNo & " tables." & vbCrLf & _ "Enter the table to start from", "Import Word Table", "1") End If resultRow = 4 For tableStart = 1 To tableTot With .tables(tableStart) 'copy cell contents from Word table cells to Excel cells For iRow = 1 To .Rows.Count For iCol = 1 To .Columns.Count Cells(resultRow, iCol) = WorksheetFunction.Clean(.cell(iRow, iCol).Range.Text) Next iCol resultRow = resultRow + 1 Next iRow End With resultRow = resultRow + 1 Next tableStart End With End Sub

回答过的其他问题

我的SSL证书手动添加了解析还是通过不了?

帅的惊动我国计算机大神
由于CA机构的反钓鱼机制,一般是域名信息中包含敏感词,例如bank、pay等,会引起安全审查失败,具体敏感词由CA机构定义,同时部分不常用的根域名也可能会审核失败,例如 www.qq.pw www.qcloud.pw 等以.pw 根域名后缀的无法通过审核。 因为域名型SSL证书...... 展开详请

万象优图会对图片进行无损压缩么 ?

远程监控系统需要使用哪种服务器?

帅的惊动我国计算机大神

个人推荐尝试下计算型 C3服务器,

不过现在服务器的基础配置都可以慢慢调整。题主也可以先购买小一些的配置,然后根据自己的业务需要慢慢调整配置是最划算的。,

不知道服务器防御怎么样,比如CC防御、DDOS防御等?

帅的惊动我国计算机大神
CC和DDOS有专业的服务器基础防御, https://console.cloud.tencent.com/dayu/basic 入侵检测还有云镜, https://console.cloud.tencent.com/yunjing 而且服务的基础版都是免费的 [图片] ... 展开详请

云主机centos ext3 转 ext4?

帅的惊动我国计算机大神
首先需要确保 Linux 的发行版是支持 ext4 的,其次要注意 /boot 分区最好使用 ext3,因为现在系统上的 grub 很可能不支持 ext4,需要有这个 commit 的特别版本 grub 才能支持 ext4. 用下面的命令转换:   # cd /; umoun...... 展开详请

点播:如何检测已上传过某个视频,比如md5信息?

帅的惊动我国计算机大神
点播也是上传到COS的 可以看下COS是如何返回MD5参数: 上传较大文件应该使用分块上传 文档在这里: https://cloud.tencent.com/document/product/436/14112 上传一个分块到指定的 UploadId 中,单个大小不得超...... 展开详请

所属标签

扫码关注云+社区