vba如何写word

 我来答
折柳成萌
高粉答主

2021-07-12 · 繁杂信息太多,你要学会辨别
知道顶级答主
回答量:4.4万
采纳率:96%
帮助的人:6254万
展开全部
  • 在工作表中,点击菜单栏【开发工具】,在其工具栏内,点击【visual basic】!

    请点击输入图片描述

  • 会进入VBA编辑界面!点击菜单栏【插入】,在其下拉菜单中,选择【模块】!

    请点击输入图片描述

  • 会弹出模块编辑窗口!

    请点击输入图片描述

  • 在模块编辑窗口输入以下代码:

    Sub 在word中写入数据()

    Dim wdapp As Object

    Set wdapp = CreateObject("word.application")

    wdapp.Documents.Open Filename:=ThisWorkbook.Path & "\DEMO\9-3.demo.docx"

    wdapp.Visible = True

    With wdapp.Documents(1).Tables(1).Range

    For i = 1 To .Cells.Count

    .Cells(i).Range = i

    Next

    End With

    Set wdapp = Nothing

    End Sub

    请点击输入图片描述

  • 点按F8键,一步步运行代码!同时可以检查代码编写是否有误!

    请点击输入图片描述

  • 运行完毕后,会看到word文档中数据写入成功!

    请点击输入图片描述

已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式