利用VBA实现Excel与Word的交互（下）

最新推荐文章于 2024-10-17 12:37:04 发布

VBAMatrix

最新推荐文章于 2024-10-17 12:37:04 发布

阅读量492

点赞数 8

分类专栏： VBA代码文章标签： excel word

本文链接：https://blog.csdn.net/VBAMatrix/article/details/142963307

版权

VBA代码专栏收录该内容

14 篇文章

订阅专栏

续上篇：利用VBA实现Excel与Word的交互（上），介绍了如何利用Excel VBA将Excel的表格导入到Word。今天分享如何利用Word VBA将Word表格导入到Excel。

Word VBA代码和详细注释

Sub Word表格导入到Excel()
    '创建Excel应用程序对象
    Dim excelApp As Object
    Set excelApp = CreateObject("Excel.Application")
    '设置Excel应用程序为可见
    excelApp.Visible = True
    '新建Excel工作簿
    Dim wb As Object
    Set wb = excelApp.Workbooks.Add
    '复制Word当前光标所在的表格到Excel
    With Selection.Tables(1)
        .Select
        Selection.Copy
        wb.Sheets(1).Range("A1").Select
        excelApp.ActiveSheet.Paste
    End With
End Sub