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

坐看云起时坐看云起时提问于
砸蛋大叔回答于
已采纳

下面是将表从Word读入Excel活动工作表的代码。

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

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
    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 table number of table to import", "Import Word Table", "1")
    End If
    With .tables(TableNo)
        'copy cell contents from Word table cells to Excel cells
        For iRow = 1 To .Rows.Count
            For iCol = 1 To .Columns.Count
                Cells(iRow, iCol) = WorksheetFunction.Clean(.cell(iRow, iCol).Range.Text)
            Next iCol
        Next iRow
    End With
End With

Set wdDoc = Nothing

End Sub

回答过的其他问题

MySQL数据库应如何备份与恢复?

mysqldump+binlog 命令的语法格式 mysqldump [OPTIONS] database [tables]:备份单个库,或库指定的一个或多个表mysqldump [OPTIONS] --databases [OPTIONS] DB1 [DB2 DB3...]...... 展开详请

如何搭建小程序音视频?

如果想将腾讯云提供的Demo换成自己的服务器,可以做以下步骤。 1. 搭建 <webrtc-room> 的服务器 1.1 这个服务器能做什么? 点击demo里的互动课堂 <webrtc-room> 功能,您会看到一个房间列表,这个房间列表是怎么实现的呢? 在看到视频房间列表以后,...... 展开详请

视频检测和处理领域的现状和前景怎么样?

近几年深度学习在图像识别领域得到了飞速的发展,但是在日常生活中,基于视频的目标检测有着更加广泛的需求。由于视频中存在着运动模糊、遮挡、变化等等问题,如果单单将视频拆分成一张一张的图像很难 达到理想的识别检测效果。视频检测技术在图像识别的基础上还要利用到视频中目标的时序变化信息来提...... 展开详请

面部识别解锁需要用到什么技术?

面部识别技术又叫做人脸识别技术,属于生物特征识别技术,一般来说面部识别技术包括有人脸定位、图像摄取、图像处理以及身份确认和查找等多种技术,工作时首先通过人脸定位确认数据采集的焦点,然后由图像摄取系统进行拍照,处理系统提取当中的关键数据,在通过查找系统对比数据库中的信息,从而完成面...... 展开详请

直播答题为什么会这么火?

其实从心理学的角度,这是一种消费心理的考量。人们对于金钱的收入和支出是会放入不一样的心理账户中进行比较和考量的。比如人们在赚钱的时候,往往会对付出的时间以及努力和所得的收入进行一个直观的评价,付出要和收获在一定程度上成正比。但是在休闲的时间,大多数人就不太重视这些“意外”的金钱的...... 展开详请

申请了SSL DV证书,礼拜一下午添加了验证文件,到现在还没通知验证通过?是没通过验证吗?

确认文件存放位置没有问题吗?建议还是使用前两种验证方式呢。

关于作者

所属标签

扫码关注云+社区